|
发表于 2013-2-2 21:18:28
|
显示全部楼层
广东省清远市

[e]
.版本 2
.支持库 eAPI
.支持库 HtmlView
.程序集 窗口程序集1
.程序集变量 tb1, 网页填表
.程序集变量 tb2, 网页填表
.程序集变量 当前网页地址, 文本型
.程序集变量 外部浏览器句柄, 整数型
.子程序 __启动窗口_创建完毕
打开指定网址 (“www.euudy.com”)
.判断开始 (进程_是否存在 (“QQ.exe”))
时钟1.时钟周期 = 30000
超文本浏览框1.跳转 (“http://127.0.0.1”, , )
.默认
结束 ()
.判断结束
.子程序 _时钟1_周期事件
.局部变量 枚举窗口信息, 精易_窗口信息, , "0"
.局部变量 o, 整数型
.局部变量 标题1, 文本型
.局部变量 句柄1, 整数型
.局部变量 影片内容, 文本型
.局部变量 次数, 整数型
窗口_枚举 (枚举窗口信息)
影片内容 = “高清在线观看-”
.计次循环首 (取数组成员数 (枚举窗口信息), o)
标题1 = 枚举窗口信息 [o].窗口标题
句柄1 = 枚举窗口信息 [o].窗口句柄
.判断开始 (寻找文本 (标题1, 影片内容, , 假) ≠ -1)
时钟1.时钟周期 = 0
.如果 (信息框 (“是否分享当前影片到QQ空间?”, 1 + 65536, ) = #确认钮)
外部浏览器句柄 = 句柄1
外部浏览器初始化 ()
.否则
tb1.销毁 ()
tb2.销毁 ()
结束 ()
.如果结束
.默认
.判断结束
.计次循环尾 ()
次数 = 次数 + 1
.如果真 (次数 = 30)
tb1.销毁 ()
tb2.销毁 ()
结束 ()
.如果真结束
.子程序 外部浏览器初始化, , , 取得当前页面的地址
.判断开始 (tb1.初始化 (外部浏览器句柄, , ))
当前网页地址 = tb1.网页_取地址 ()
tb1.销毁 ()
内部浏览器初始化 ()
.默认
外部浏览器初始化 ()
.判断结束
.子程序 内部浏览器初始化
.判断开始 (tb2.初始化 (超文本浏览框1.取窗口句柄 ()))
tb2.网页_跳转 (“http://sns.qzone.qq.com/cgi-bin/qzshare/cgi_qzshare_onekey?url=” + 当前网页地址)
tb2.就绪判断_智能 (超文本浏览框1.取窗口句柄 (), 5000, )
tb2.按钮_点击 (“value==快速登录”)
tb2.就绪判断_智能 (超文本浏览框1.取窗口句柄 (), 5000, )
tb2.链接_点击 (“Id==postButton”)
程序_延时 (10000)
tb2.销毁 ()
结束 ()
.默认
内部浏览器初始化 ()
.判断结束
[/e] |
|