|
楼主 |
发表于 2012-3-28 17:10:47
|
显示全部楼层
河北省承德市
[e]
.版本 2
.支持库 WebBrowser2
.程序集 窗口程序集1
.程序集变量 zhuci, 文本型
.程序集变量 fuci, 文本型
.程序集变量 zhouq, 整数型
.子程序 __启动窗口_创建完毕
窗口_热键注册 (_启动窗口.取窗口句柄 (), 2, 83, &Star_web, “开始”)
窗口_热键注册 (_启动窗口.取窗口句柄 (), 2, 69, &Star_web, “结束”)
输入框 (“请输入主词”, “提示”, “中国”, zhuci, )
输入框 (“请输入副词”, “提示”, “精易论坛”, fuci, )
输入框 (“请输入刷新频率 单位(秒)”, “提示”, “4”, zhouq, )
.如果 (zhouq = 1 - 2)
信息框 (“您输入的数值刷新频率太小,系统已为您自动调节.”, 0, “注意”)
zhouq = 3000
.否则
zhouq = zhouq × 1000
.如果结束
web1.浏览 (“http://www.baidu.com/”, , , )
.子程序 Star_web
Xweb_time.时钟周期 = zhouq
.子程序 End_web
Xweb_time.时钟周期 = 0
.子程序 _Xweb_time_周期事件
.局部变量 Xweb, 普通填表
.局部变量 Web_dizhi, 文本型
.局部变量 Web_jb, 整数型
Web_dizhi = “http://www.baidu.com/”
Web_jb = web1.取窗口句柄 ()
web1.浏览 (Web_dizhi, , , )
Xweb.初始化 (Web_jb)
Xweb.文本框_写内容 (“wd”, zhuci, )
Xweb.按钮_点击 (“百度一下”)
延时 (2000)
.如果 (Xweb.就绪判断_文本关键字 (Web_jb, “不代表百度赞成被搜索网站的内容或立场”, 5, ) = 真)
Xweb.文本框_写内容 (“wd”, fuci, )
Xweb.按钮_点击 (“百度一下”)
.否则
Xweb_time.时钟周期 = 0
Xweb_time.时钟周期 = zhouq
.如果结束
[/e]
|
|