Question

您好。您这模块能发我一个么。我也很需要这个。麻烦您了。易语言取IE标题和地址

Answer 1

.版本 2
.支持库 eAPI
.支持库 spec

.程序集 窗口程序集1
.程序集变量 父窗口组, 整数型, , "0"
.程序集变量 子窗口组, 整数型, , "0"

.子程序 _按钮1_被单击
.局部变量 i, 整数型
.局部变量 临时标题, 文本型
.局部变量 j, 整数型
.局部变量 找到的地址, 文本型
.局部变量 IE标题, 文本型

清除数组 (父窗口组)
清除数组 (子窗口组)
枚举父窗口_ (&枚举父窗过程, 0)
.计次循环首 (取数组成员数 (父窗口组), i)
处理事件 ()
临时标题 ＝ 取窗口标题 (父窗口组 [i])
.如果真 (取文本右边 (临时标题, 25) ＝ “Windows Internet Explorer”)
IE标题 ＝ 临时标题
调试输出 (IE标题)
枚举子窗口_ (父窗口组 [i], &枚举子窗过程, 0)
.计次循环首 (取数组成员数 (子窗口组), j)
处理事件 ()
临时标题 ＝ 取窗口标题 (子窗口组 [j])
.如果真 (取文本左边 (临时标题, 7) ＝ “http://”)
找到的地址 ＝ 找到的地址 ＋ 临时标题 ＋ #换行符 ＋ #换行符
.如果真结束

.计次循环尾 () .如果真结束
.计次循环尾 ()信息框 (“当前IE标题：” ＋ IE标题 ＋ #换行符 ＋ #换行符 ＋ “存在的地址：” ＋ #换行符 ＋ 找到的地址, 0, )
.子程序 枚举父窗过程.参数 参数, 整数型
加入成员 (父窗口组, 参数)
.子程序 枚举子窗过程.参数 参数, 整数型
加入成员 (子窗口组, 参数)