|
发表于 2012-9-7 20:49:16
|
显示全部楼层
广东省深圳市
唉!来迟了
.版本 2
.支持库 spec
.程序集 窗口程序集1
.子程序 _按钮1_被单击
.局部变量 提交地址, 文本型
.局部变量 提交数据, 文本型
.局部变量 返回信息, 文本型
.局部变量 a, 文本型
提交地址 = “http://jiaobenlingyu.5d6d.net/logging.php?action=login&loginsubmit=yes&inajax=1”
a = 编码_URL编码GBK (编辑框1.内容)
提交数据 = “formhash=d4ad18e4&referer=bbs.php&loginfield=username&username=” + a + “&password=” + 编辑框2.内容 + “&questionid=0&answer=”
返回信息 = 到文本 (网页_访问1 (提交地址, 1, , , 提交数据, , ))
调试输出 (返回信息)
.如果 (寻找文本 (返回信息, “欢迎您回来”, , 假) ≠ -1)
信息框 (“登录成功”, 0, )
.否则
信息框 (“登录失败”, 0, )
|
|