|
发表于 2017-7-14 22:21:08
|
显示全部楼层
福建省泉州市
对不起了,楼主,我技术还没到家,搞不了(超文本浏览框查找的内容跳转和高亮显示),但是我懂寻找
版本 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)
信息框 (“发现新消息”, #信息图标, )
.如果真结束 |
|