|
楼主 |
发表于 2013-2-13 17:39:58
|
显示全部楼层
湖北省十堰市
[e]
.版本 2
.支持库 iext
.程序集 窗口程序集1
.子程序 _按钮1_被单击
.局部变量 POST地址, 文本型
.局部变量 POST数据, 文本型
.局部变量 返回信息, 文本型
.局部变量 结果内容, 文本型
POST地址 = “http://hbxingyu.qj171.wshost.cc/ ... hash=LjFNR&inajax=1”
POST数据 = “formhash=5cf11759&referer=http%3A%2F%2Fhbxingyu.qj171.wshost.cc%2Fbbs%2Fforum.php&loginfield=username&username=” + 编码_URL编码_GBK (删首尾空 (编辑框1.内容)) + “&password=” + 删首尾空 (编辑框2.内容) + “&questionid=0&answer=”
返回信息 = 彗星HTTP读文本 (POST地址, “POST”, , , POST数据)
结果内容 = 到文本 (网页_访问 (“http://hbxingyu.qj171.wshost.cc/ ... pacecp&ac=usergroup”))
.判断开始 (编辑框1.内容 = “”)
状态条1.置文本 (1, “请输入正确的帐号!”)
.判断 (编辑框1.内容 = “”)
状态条1.置文本 (1, “请输入正确的密码!”)
.判断 (寻找文本 (POST数据, “欢迎您回来”, , 假) > 0)
编辑框3.内容 = 文本_取出中间文本 (结果内容, “<h4>我的主用户组 - ”, “</h4></th>”)
.判断 (编辑框3.内容 = “注册会员”)
状态条1.置文本 (1, “恭喜你登录成功!欢迎使用辅助软件!”)
载入 (窗口1, , 假)
销毁 ()
.默认
状态条1.置文本 (1, “抱歉!你的权限不够,无法登录!”)
.判断结束
[/e] |
|