|
楼主 |
发表于 2012-1-10 19:55:59
|
显示全部楼层
广东省广州市
OnLy, 发表于 2012-1-10 19:51
把内容发出来
找到一些标志性区分各个情况的文本就是了呗
.版本 2
.支持库 webbrowser新版中文版
.程序集 窗口程序集1
.子程序 __启动窗口_创建完毕
子_跳到申请页 ()
百度号码存放处.内容 = 到文本 (读入文件 (取运行目录 () + “bdhm.txt”))
.子程序 子_跳到申请页
WebBrowser1.跳转 (“https://passport.baidu.com/?reg&tpl=mn”, , , , )
.子程序 _按钮1_被单击
.局部变量 局_计次, 整数型
普通填表.初始化 (WebBrowser1.取窗口句柄 ())
普通填表.文本框_写内容 (“username”, 到文本 (编辑框1.内容))
普通填表.文本框_写内容 (“loginpass”, 到文本 (编辑框2.内容))
普通填表.文本框_写内容 (“verifypass”, 到文本 (编辑框3.内容))
普通填表.文本框_写内容 (“email”, 到文本 (编辑框4.内容))
普通填表.文本框_写内容 (“verifycode”, 到文本 (编辑框5.内容))
' ---------------------------------------------------------------'
普通填表.文本框_置焦点 (“编辑框1”)
.计次循环首 (5, 局_计次)
键盘_单击 (#Tab键)
程序_延时 (50)
.计次循环尾 ()
' ---------------------------------------------------------------'
普通填表.按钮_点击 (“submit”)
时钟1.时钟周期 = 1000
.子程序 _时钟1_周期事件
.局部变量 普通填表, 普通填表
.局部变量 局_文本, 文本型
普通填表.初始化 (WebBrowser1.取窗口句柄 ())
局_文本 = 普通填表.网页_取文本 ()
.判断开始 (寻找文本 (局_文本, “正在检查用户名,请稍候……”, , 假) ≠ -1)
.默认
.判断结束
.如果真 (寻找文本 (局_文本, “1 填写信息 注册成功 ”, , 假) ≠ -1)
时钟1.时钟周期 = 0
局_文本 = 文本_取出中间文本 (局_文本, “填写信息 注册成功 ”, “,恭喜您已经成功注册为百度会员。 ”)
.如果真结束
百度号码存放处.加入文本 (局_文本 + #换行符)
写到文件 (取运行目录 () + “\bdhm.txt”, 到字节集 (百度号码存放处.内容))
子_跳到申请页 ()
.子程序 _编辑框1_内容被改变
.子程序 _重启软件_被单击
程序_重启 ()
.子程序 _图片框1_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
图片框1.图片 = 网页_验证码同步 (WebBrowser1.取窗口句柄 (), “https://passport.baidu.com/?verifypic”)
这是源码内容 |
|