|
100精币
直接上图上源码.
测试运行的时候出现好几十个[* 获取IES句柄失败,请确认【网页加载完成】后再调用初始化命令。]
静态编译后打开几个网页就会自动关闭软件.
请高手们帮我看看问题出在哪里!
多谢了!
.版本 2
.支持库 HtmlView
.支持库 iext
.程序集 窗口程序集6
.程序集变量 百度搜索, 文本型
.子程序 _百度搜索_任务窗口_创建完毕
百度搜索_任务窗口.位置 = 2
百度搜索_任务窗口.标题 = 主窗口.编辑框2.内容 + “ - 百度一下,你就知道”
超文本浏览框1.地址 = “www.baidu.com”
.子程序 初始化
网页填表.就绪判断_智能 (超文本浏览框1.取窗口句柄 ())
.子程序 _百度搜索_任务窗口_首次激活
.局部变量 关键词, 文本型
.局部变量 定义标题, 文本型
.局部变量 随机数, 整数型
.局部变量 i, 整数型
.局部变量 搜索引擎, 文本型
初始化 ()
关键词 = 主窗口.编辑框2.内容
定义标题 = 主窗口.编辑框3.内容
网页填表.文本框_写内容 (“Name==wd”, 关键词, , 1)
置随机数种子 ()
随机数 = 取随机数 (3000, 8000)
延时 (随机数)
网页填表.按钮_点击 (“value==百度一下”, , 1)
初始化 ()
.计次循环首 (10, i)
初始化 ()
.如果 (网页填表.链接_点击 (定义标题, , 2, ) = 真)
状态条1.置文本 (0, “状态:成功”)
初始化 ()
置随机数种子 ()
随机数 = 取随机数 (7000, 15000)
延时 (随机数)
' 信息框 (“程序将自动退出!”, 0 + #信息图标, “已找到”)
跳出循环 ()
.否则
置随机数种子 ()
随机数 = 取随机数 (6, 15)
状态条1.置文本 (0, “状态:延时 ” + 到文本 (随机数) + “ 秒”)
公用.程序_延时 (随机数, 1)
网页填表.SPAN_点击 (“innerText==” + 到文本 (i + 1), , 1)
状态条1.置文本 (0, “状态:跳转到 ” + 到文本 (i + 1) + “ 页”)
.如果结束
.计次循环尾 ()
网页填表.销毁 ()
百度搜索_任务窗口.销毁 ()
.子程序 _百度搜索_任务窗口_将被销毁
结束 ()
|
|