超文本浏览框 太过简单,本难实现,建议使用 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)
信息框 (“发现新消息”, #信息图标, )
.如果真结束