|
.版本 2
.子程序 _按钮1_被单击
.局部变量 句柄, 整数型
.局部变量 句柄1, 整数型
.局部变量 句柄2, 整数型
.局部变量 句柄3, 整数型
.局部变量 文本, 文本型
.局部变量 文本1, 文本型
.局部变量 i, 整数型
.局部变量 数字, 文本型
.局部变量 网页, 公用类
.局部变量 网页填表, 网页填表
置随机数种子 ()
_启动窗口.可视 = 真
文本 = 网页.文本_取随机字母 (1, ) + 网页.文本_取随机字符 (10)
文本1 = 网页.文本_取随机字符 (10)
句柄 = 超文本浏览框1.取窗口句柄 ()
句柄1 = 网页.窗口_取句柄 (超文本浏览框1.取窗口句柄 (), , “Shell Embedding”, )
句柄2 = 网页.窗口_取句柄 (句柄1, , “Shell DocObject View”, )
句柄3 = 网页.窗口_取句柄 (句柄2, , “Internet Explorer_Server”, )
后台_发送鼠标消息2 (句柄3, 486, 539, 1, 2)
延时 (500)
后台_发送鼠标消息2 (句柄3, 574, 375, 1, 2)
网页填表.初始化 (句柄)
网页填表.文本框_写内容 (“1”, 文本, )
网页填表.文本框_写内容 (“2”, 文本1, )
网页填表.文本框_写内容 (“3”, 文本1, )
信息框 (“请点确定进”, 0, )
网页填表.按钮_点击 (“1”, )
' 网页填表.链接_点击 (“18”, , , )
延时 (1000)
网页填表.链接_点击 (“19”, , 2, )
延时 (2000)
编辑框1.加入文本 (“ http://www.juntais.com/wb008.htm?from=158878&gid=” + 到文本 (i) + “----” + “游戏用户名” + 文本 + “----” + “游戏密码” + 文本1 + #换行符)
写到文件 (取运行目录 () + “\账号.txt”, 到字节集 (编辑框1.内容))
延时 (2000)
看看这段代码有毛病么?
在易语言里调试是成功的,编译后再点开一闪软件界面就没了,我查了是 网页填表.初始化 (句柄)
网页填表.文本框_写内容 (“1”, 文本, )
网页填表.文本框_写内容 (“2”, 文本1, )
网页填表.文本框_写内容 (“3”, 文本1, )
出毛病了,但又查不到,是易语言的问题么不知道,
浏览器里用的网站是“http://www.juntais.com/wb008.htm?from=158878&gid=4”
还是网站使用了什么检查手段关闭填表
注册.zip
(456.39 KB, 下载次数: 14)
|
|