|
楼主 |
发表于 2011-1-9 15:46:53
|
显示全部楼层
福建省龙岩市
本帖最后由 xgdxdn 于 2011-1-9 15:48 编辑
测试成功!感谢果子的大力支持...
.版本 2
.支持库 iext
.支持库 webbrowser新版中文版
.子程序 _WebBrowser1_状态文本被改变
.参数 状态栏文本, 文本型
状态条1.置文本 (1, 状态栏文本)
.如果真 (乐豆登入地址 = “”)
.如果真 (寻找文本 (状态栏文本, “index.aspx?service”, 30, 假) ≠ -1)
乐豆登入地址 = 文本_取出中间文本 (状态栏文本, “等待 ”, “...”)
WebBrowser1.停止 ()
WebBrowser1.跳转 (乐豆登入地址, , , , )
' 子程序_网页判断 ()
网页填表.就绪判断_文本关键字 (webHwnd, “GASH樂點卡上哪買?”, , “BDA0”)
程序_延时 (3000)
_启动窗口.图 片框_验证码.图 片 = 网页填表.网页_验证码同步 (webHwnd, “BDA0”, “LanapCaptcha.aspx?”)
状态条1.置文本 (1, 到文本 (取现行时间 ()) + “-->>请输入验证码!”)
_启动窗口.编辑框_验证码.获取焦点 ()
播放音乐 (#提示音, )
.如果真结束
.如果真结束 |
|