|
板凳

楼主 |
发表于 2013-7-2 23:05:44
|
只看该作者
山西省运城市
[e]
.版本 2
.支持库 spec
.程序集 窗口程序集1
.程序集变量 网页, 普通填表
.子程序 _按钮1_被单击
.局部变量 句柄
.局部变量 标题数组, 文本型, , "0"
.局部变量 地址数组, 文本型, , "0"
' 百度一下,你就知道 - Windows Internet Explorer
功能_取句柄 ()
句柄 = 功能_取句柄 ()
调试输出 (句柄)
网页.初始化 (句柄)
' = 网页.框架_取数量 ()
' 网页.链接_枚举 (标题数组, 地址数组)
' ' 调试输出 (地址数组)
' 调试输出 ()
' 调试输出 (标题数组)
网页.网页_执行脚本 (“javascript:loginNew(100700930,29,'release');”)
.子程序 功能_取句柄, 整数型, , 本子程序采用【精易编程助手】生成,成功返回窗口句柄,失败返回0
.局部变量 局_1级句柄, 整数型
.局部变量 局_2级句柄, 整数型
.局部变量 局_3级句柄, 整数型
.局部变量 局_4级句柄, 整数型
.局部变量 局_5级句柄, 整数型
局_1级句柄 = 窗口_取句柄 (, , “#32770”, “屠龙浏览器”)
.如果真 (局_1级句柄 = -1)
返回 (0)
.如果真结束
局_2级句柄 = 窗口_取句柄 (局_1级句柄, , “AfxFrameOrView100su”, 字符 (0))
.如果真 (局_2级句柄 = -1)
返回 (0)
.如果真结束
局_3级句柄 = 窗口_取句柄 (局_2级句柄, , “Shell Embedding”, 字符 (0))
.如果真 (局_3级句柄 = -1)
返回 (0)
.如果真结束
局_4级句柄 = 窗口_取句柄 (局_3级句柄, , “Shell DocObject View”, 字符 (0))
.如果真 (局_4级句柄 = -1)
返回 (0)
.如果真结束
局_5级句柄 = 窗口_取句柄 (局_4级句柄, , “Internet Explorer_Server”, 字符 (0))
.如果真 (局_5级句柄 = -1)
返回 (0)
.如果真结束
返回 (局_5级句柄)
[/e] |
|