易语言 如何取IE 窗口标题与取IE浏览地址?

.版本 2

.支持库 spec

.程序集 窗口程序集1

.程序集变量 源码1, 整数型

.程序集变量 源码2, 整数型

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

源码1 ＝ 窗口_取句柄 (, , “IEFrame”, )

源码2 ＝ 窗口_取句柄 (, , “Edit”, )

功能_取句柄 ()

_启动窗口.标题 ＝ 窗口_取标题 (源码1)

.子程序 功能_取句柄, 整数型

.局部变量 局_1级句柄, 整数型

.局部变量 局_2级句柄, 整数型

.局部变量 局_3级句柄, 整数型

.局部变量 局_4级句柄, 整数型

.局部变量 局_5级句柄, 整数型

局_1级句柄 ＝ 窗口_取句柄 (, , “IEFrame”, )

.如果真 (局_1级句柄 ＝ -1)

    返回 (0)

.如果真结束

局_2级句柄 ＝ 窗口_取句柄 (局_1级句柄, , “WorkerW”, )

.如果真 (局_2级句柄 ＝ -1)

    返回 (0)

.如果真结束

局_3级句柄 ＝ 窗口_取句柄 (局_2级句柄, , “ReBarWindow32”, )

.如果真 (局_3级句柄 ＝ -1)

    返回 (0)

.如果真结束

局_4级句柄 ＝ 窗口_取句柄 (局_3级句柄, , “Address Band Root”, )

.如果真 (局_4级句柄 ＝ -1)

    返回 (0)

.如果真结束

局_5级句柄 ＝ 窗口_取句柄 (局_4级句柄, , “Edit”, )

.如果真 (局_5级句柄 ＝ -1)

    返回 (0)

.如果真结束

返回 (局_5级句柄)

.子程序 _按钮1_被单击

功能_取句柄 ()

调试输出 (功能_取句柄 ())

编辑框1.内容 ＝ 窗口_取控件内容 (功能_取句柄 ())

上边说的对啊