|
发表于 2011-3-2 14:24:53
|
显示全部楼层
广东省深圳市
经测试,只会返回2种错误:验证码错误和用户信息错误。
访问网页的命令,需要自己更改。
[e].版本 2
.子程序 _按钮1_被单击
.局部变量 返回文本, 文本型
.局部变量 提交内容, 文本型
' 提交地址 http://www.longhu28.com/login.asp
' 访问方式 POST
' 提交内容 tfrom=&LoginName=” + 编辑框1.内容 + “&LoginPwd=” + 编辑框2.内容 + “&yzm=” + 编辑框3.内容 + “&imageField.x=68&imageField.y=24
提交内容 = “tfrom=&LoginName=” + 编辑框1.内容 + “&LoginPwd=” + 编辑框2.内容 + “&yzm=” + 编辑框3.内容 + “&imageField.x=68&imageField.y=24”
返回文本 = 到文本 (子程序_访问网页 (“http://www.longhu28.com/login.asp”, “POST”, , , 提交内容))
.如果真 (寻找文本 (返回文本, “信息错误”, , 假) ≠ -1)
信息框 (“账号或密码错误”, 0, )
_编辑框1_获得焦点 ()
返回 ()
.如果真结束
.如果真 (寻找文本 (返回文本, “输入错误”, , 假) ≠ -1)
信息框 (“验证码错误”, 0, )
编辑框3.获取焦点 ()
编辑框3.被选择字符数 = -1
_编辑框1_获得焦点 ()
返回 ()
.如果真结束
编辑框4.加入文本 (“登录成功” + #换行符)
取用户信息 ()[/e]
test.rar
(11.82 KB, 下载次数: 6)
|
|