Question

如何自动随机点击易语言超文本浏览框里面内容

问题1：我用易语言写一个超文本浏览框，如何随机打开里面的链接，如百度，新浪，搜狐，随机的打开。而且依然在易语言里面运行。
问题2：请问，用易语言写的超文本浏览框是在IE里面运行的吗？

谢谢各位大师，解决小弟问题，必当重金答谢。

Answer 1

先枚举网页所有链接，然后全部打开

.版本 2
.局部变量 链接, 文本型, , "0"
.局部变量 i, 整数型

枚举网页链接 (超文本浏览框1.取窗口句柄（）, , 链接)

.版本 2
.支持库 eAPI
.计次循环首 (枚举网页链接 (句柄, , 链接), i)
打开指定网址 (链接 [i])
.计次循环尾 ()

想弹多少个随便你了……

以下是模块源码
============================================
.版本 2
.子程序 枚举网页链接, 整数型
.参数 浏览器句柄
.参数 链接标题, 文本型, 参考 可空 数组
.参数 链接地址, 文本型, 参考 可空 数组
.局部变量 网页源码, 对象
.局部变量 links, 对象
.局部变量 link, 对象
.局部变量 i, 整数型
取网页文档对象 (浏览器句柄, 网页源码)
links ＝ 网页源码.对象型方法 (“getElementsByTagName”, “A”)
.计次循环首 (links.读数值属性 (“length”, ), i)
link ＝ links.读对象型属性 (“item”, i － 1)
加入成员 (链接标题, link.读文本属性 (“innerText”, ))
加入成员 (链接地址, link.读文本属性 (“href”, ))
.计次循环尾 ()
返回 (取数组成员数 (链接地址))
.子程序 取网页文档对象, 逻辑型, , 通过浏览器窗口句柄取网页文档
.参数 浏览器窗口句柄, 整数型
.参数 文档对象, 对象, 参考, 返回的网页文档对象，只能提供变量
.局部变量 窗口类名, 文本型
.局部变量 资源编号, 整数型
.局部变量 结果, 整数型
.局部变量 消息值, 整数型
.局部变量 对象, 对象
.局部变量 是否IES窗口, 逻辑型
.局部变量 子窗口句柄, 整数型
窗口类名 ＝ 取空白文本 (255) ' 缓冲区
GetClassName (浏览器窗口句柄, 窗口类名, 255) ' 取窗口类名
.如果真 (窗口类名 ≠ “Internet Explorer_Server”)
浏览器窗口句柄 ＝ 取IES窗口句柄 (浏览器窗口句柄)
.如果真 (浏览器窗口句柄 ＝ 0)
返回 (假)
.如果真结束

.如果真结束
消息值 ＝ RegisterWindowMessage (“WM_HTML_GETOBJECT”)
SendMessageTimeout (浏览器窗口句柄, 消息值, 0, 0, 2, 1000, 资源编号)
结果 ＝ ObjectFromLresult (资源编号, { 32, 197, 111, 98, 30, 164, 207, 17, 167, 49, 0, 160, 201, 8, 38, 55 }, 0, 文档对象)
.如果真 (结果 ＝ 0)
返回 (真) ' 获取成功
.如果真结束
返回 (假)
.子程序 取IES窗口句柄, 整数型
.参数 窗口句柄, 整数型
.局部变量 窗口类名, 文本型
.局部变量 Hwnd
.局部变量 x
Hwnd ＝ FindWindowExA (窗口句柄, 0, 0, 0)
.判断循环首 (Hwnd ＞ 0)
窗口类名 ＝ 取空白文本 (255) ' 缓冲区
GetClassName (Hwnd, 窗口类名, 255) ' 取窗口类名
.如果真 (窗口类名 ＝ “Internet Explorer_Server”)
返回 (Hwnd)
.如果真结束
x ＝ 取IES窗口句柄 (Hwnd)
.如果真 (x ≠ 0)
返回 (x)
.如果真结束
Hwnd ＝ FindWindowExA (窗口句柄, Hwnd, 0, 0)
.判断循环尾 ()
返回 (0)
.版本 2
.DLL命令 GetClassName, , , "GetClassNameA"
.参数 h, 整数型
.参数 t, 文本型
.参数 n, 整数型
.DLL命令 RegisterWindowMessage, 整数型, "user32", "RegisterWindowMessageA", , 获取分配给一个字串标识符的消息编号　&C000 到 &FFFF之间的一个消息编号。零意味着出错
.参数 lpString, 文本型, , 注册消息的名字;
.DLL命令 ObjectFromLresult, 整数型, "OLEACC.DLL", "ObjectFromLresult", , 　
.参数 lResult, 整数型
.参数 riid, 字节集
.参数 wParam, 整数型
.参数 ppvObject, 对象
.DLL命令 SendMessageTimeout, 整数型, "user32", "SendMessageTimeoutA", , 向窗口发送一条消息。如窗口位于不同的线程中，则利用这个函数可以指定一个超时值，以便在另一个进程挂起的时候防止调用进程也永远挂起　成功时返回TRUE，失败时返回FALSE。会设置GetLastError
.参数 MSG, 整数型, , 消息的标识符
.参数 hwnd, 整数型, , 要接收消息的一个窗口的句柄
.参数 wParam, 整数型, , 由消息决定
.参数 lParam, 整数型, , 由消息决定
.参数 fuFlags, 整数型, , 下述常数的一个或多个;SMTO_ABORTIFHUNG：如目标进程挂起，则函数立即返回;SMTO_BLOCK：除非函数返回，否则调用线程不能处理消息;SMTO_NORMAL：允许调用线程处理消息，同时保持函数继续执行
.参数 uTimeout, 整数型, , 超时值，采用毫秒为单位
.参数 lpdwResult, 整数型, 传址, 用于装载函数结果的一个变量;
.DLL命令 FindWindowExA, 整数型, "user32", "FindWindowExA", , 在窗口列表中寻找与指定条件相符的第一个子窗口 找到的窗口的句柄。如未找到相符窗口，则返回零。会设置GetLastError
.参数 窗口句柄1, 整数型, , 在其中查找子的父窗口。如设为零，表示使用桌面窗口（通常说的顶级窗口都被认为是桌面的子窗口，所以也会对它们进行查找）
.参数 窗口句柄2, 整数型, , 从这个窗口后开始查找。这样便可利用对FindWindowEx的多次调用找到符合条件的所有子窗口。如设为零，表示从第一个子窗口开始搜索
.参数 欲搜索的类名1, 整数型, , 欲搜索的类名。“”表示忽略
.参数 欲搜索的类名2, 整数型, , 欲搜索的类名。“”表示忽略;

Answer 2

.版本 2.支持库 HtmlView
.程序集 窗口程序集1.程序集变量 网站, 文本型, , "0"
.子程序 __启动窗口_创建完毕
加入成员 (网站, “www.baidu.com”)
加入成员 (网站, “www.bing.com”)
加入成员 (网站, “www.qq.com”)
加入成员 (网站, “www.renren.com”)
置随机数种子 ()
超文本浏览框1.地址 ＝ 网站 [取随机数 (1, 4)]

Answer 3

用的是IE内核

先枚举链接，然后取随机数模拟链接点击，在超文本浏览框的事件下（即将跳转 这个事件）写上，
这里放一个变量，取到即将跳转的地址
超文本浏览框1.跳转=假
超文本浏览框1.地址=将跳转的地址变量

Answer 4

这个可以使用doc模块完成

Answer 5

如果 随机数=1
打开指定网址（）
以此类推