易语言这个互联网浏览器这个组件怎么使用??是不是可以用来写浏览器的？？哪位大侠发一个哥源码...

Question

如题所述

Answer 1

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

留下邮箱，可以发demo。

以下代码贴出：

.版本 2
.支持库 WebBrowser2

.程序集 窗口程序集1

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

互联网浏览器1.浏览 (“”, , , )

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

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

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

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

Answer 2

这个组件和webbrowser差不多，但是用webbrowser不能静态编译，用互联网浏览器的话就可以静态编译了

Answer 3

.版本 2
.支持库 WebBrowser2

.程序集 窗口程序集1
.程序集变量 系统, 对象
.程序集变量 系统账号, 文本型
.程序集变量 系统密码, 文本型

.子程序 __启动窗口_创建完毕

互联网浏览器1.宽度 ＝ 取用户区宽度 ()
互联网浏览器1.高度 ＝ 取用户区高度 ()
互联网浏览器1.浏览 (“http://网址/”, , , )
系统账号 ＝ 读配置项 (“c:/test.ini”, “配置”, “系统账号”, 系统账号)
系统密码 ＝ 读配置项 (“c:/test.ini”, “配置”, “系统密码”, 系统密码)

.子程序 _互联网浏览器1_载入完毕

.如果真 (互联网浏览器1.地址 ＝ “http://网址/”)
互联网浏览器1.取网页文档对象 (系统)
系统.读对象型属性 (“getElementById”, “admin”).写属性 (“value”, 系统账号)
系统.读对象型属性 (“getElementById”, “tPassword”).写属性 (“value”, 系统密码)
系统.读对象型属性 (“getElementById”, “submit”).方法 (“click”, )
.如果真结束本回答被网友采纳