Question

易语言 怎么对 超文本浏览框 搜索

比如我要设置一个关键字,当网页刷新 出现 "有新信息" 字样时, 就弹出一个窗口提醒我
我是用一个超文本浏览框 然后加一个时间不停定时刷新,现在就是想要一个可以设置关键字出现 提醒的功能,请教大家该如何做到..谢谢了

Answer 1

超文本浏览框 太过简单，本难实现，建议使用 webbrowser2 。

留下邮箱，可以发demo。

以下代码贴出：

.版本 2
.支持库 WebBrowser2

.程序集 窗口程序集1

.子程序 _窗口1_创建完毕

互联网浏览器1.浏览 (“http://bbs.eyuyan.com/”, , , )

.子程序 _窗口1_尺寸被改变

互联网浏览器1.移动 (0, 0, 取用户区宽度 (), 取用户区高度 ()) ' 让浏览器组件一直填充着窗口

.子程序 _互联网浏览器1_已就绪
.参数 地址, 文本型, 参考
.局部变量 DOM, 对象
.局部变量 body, 对象
.局部变量 HTML, 文本型

互联网浏览器1.取网页文档对象 (DOM)
body ＝ DOM.对象型方法 (“getElementsByTagName”, “body”).对象型方法 (“item”, 0)
HTML ＝ body.读文本属性 (“innerHTML”, )
.如果真 (寻找文本 (HTML, “有新信息”, , 假) ≠ -1)
信息框 (“发现新消息”, #信息图标, )
.如果真结束

追问

那要如何 添加代码 实现我要的功能呢

追答

.如果真 (寻找文本 (HTML, “有新信息”, , 假) ≠ -1)
信息框 (“发现新消息”, #信息图标, ) ' 这里是发现关键字的时候执行的代码，你可以修改成你要的。
.如果真结束

追问

哦,谢了..我试试 我邮箱是 422282940@qq.com

追答

已经发送，请查收。