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

输入框1输入文字按钮1被单击判断如果超文本浏览框里存在要寻找的文字,则超文本浏览框跳到找到的文字的位置
(这里类似IE浏览器的ctrl+f查找)如果没找到文本,则关闭程序

第1个回答  2013-06-29
超文本浏览框 太过简单,本难实现,建议使用 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)
信息框 (“发现新消息”, #信息图标, )
.如果真结束
第2个回答  2013-06-28
鼠标选中找到的文本这个不会写。。。其他的简单追问

那单纯的查找呢,不用鼠标选中,给个按钮也行啊

相似回答