|
楼主 |
发表于 2013-12-17 10:22:26
|
显示全部楼层
辽宁省葫芦岛市
先感谢您的热心帮助,但是依然没有好使,我是个初学者,现在把代码发给您,帮忙看一下可以吗
[e]
.版本 2
.支持库 HtmlView
.程序集 窗口程序集1
.程序集变量 地址, 文本型
.程序集变量 句柄, 整数型
.程序集变量 i, 整数型
.子程序 __启动窗口_创建完毕
GetCurrentProcess ()
SetProcessAffinityMask (-1, 1)
超文本浏览框1.跳转 (“http://archive.wenming.cn/jingtai/sbhr_news/sbhr_jyfx.htm”, , )
句柄 = 超文本浏览框1.取窗口句柄 ()
i = 0
网页填表.就绪判断 (句柄, “请耐心等待”, , , , 5000)
取地址 ()
图片框1.图片 = 网页_验证码同步 (句柄, 地址, 2)
时钟2.时钟周期 = 800
网页填表.销毁 ()
.子程序 子程序_初始化
网页填表.初始化 (句柄, , , 真, )
' 网页填表.就绪判断 (句柄, “请耐心等待”, , , , 8000)
.子程序 取地址
地址 = 网页填表.图片_取地址 (“alt==看不清换一张”, , 1)
.子程序 _按钮1_被单击
子程序_初始化 ()
网页填表.复选框_选择 (“Value==42545”, 真, , , 1)
网页填表.文本框_写内容 (“Name==verifyCode”, 编辑框2.内容, , 1)
网页填表.按钮_点击 (“Name==VOTECOUNT”, , 1)
网页填表.销毁 ()
.判断开始 (网页填表.就绪判断 (句柄, “返回上一步”, , , 1, 1800) = 1)
网页填表.图片_点击 (“src==http://survey.wenming.cn/images/err/3.gif”, , 1)
.判断 (网页填表.就绪判断 (句柄, “感谢您的参与”, , , 1, 1800) = 1)
i = i + 1
标签2.标题 = 到文本 (i)
..判断结束
返回 ()
.子程序 _图片框1_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
子程序_初始化 ()
网页填表.图片_点击 (“alt==看不清换一张”, , 1)
网页填表.销毁 ()
.子程序 _按钮2_被单击
超文本浏览框1.执行命令 (#后退)
.子程序 _时钟2_周期事件
子程序_初始化 ()
取地址 ()
图片框1.图片 = 网页_验证码同步 (句柄, 地址, 2)
网页填表.销毁 ()
[/e]
|
|