第二阶段-脚本模拟操作-录像15课(网页屏蔽器-句柄方式)
.版本 2
.程序集 程序集1
.子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行
.局部变量 局_填表, 网页填表
.局部变量 局_句柄, 整数型
.局部变量 局_当前地址, 文本型
.局部变量 局_被屏蔽的网站, 文本型, , "0"
.局部变量 局_次数, 整数型
局_被屏蔽的网站 ＝ { “hao.360.com”, “www.360.cn”, “taobao.com” }
' 取出IE内核窗口句柄
' 1.取出鼠标所在处窗口句柄
' 2.判断是否是IE内核
.判断循环首 (真)
局_句柄 ＝ 窗口_取鼠标处窗口句柄 ()
' Internet Explorer_Server
.如果真 (窗口_取类名 (局_句柄) ＝ “Internet Explorer_Server”)
.如果真 (局_填表.初始化 (局_句柄, , “1”) ＝ 真)
局_当前地址 ＝ 局_填表.网页_取地址 ()
.计次循环首 (取数组成员数 (局_被屏蔽的网站), 局_次数)
.如果真 (寻找文本 (局_当前地址, 局_被屏蔽的网站 [局_次数], , 假) ≠ -1)
局_填表.网页_跳转 (“bbs.125.la”)
.' 判断循环首 (真)
.' 如果真 (局_填表.初始化 (局_句柄, , “2”) ＝ 真)
.' 如果真 (寻找文本 (局_填表.网页_取地址 (), “bbs.125.la”, , 假) ≠ -1)
' 跳出循环 ()
.如果真结束
.如果真结束
.' 判断循环尾 ()
程序_延时 (2000, )
跳出循环 ()
.如果真结束
.计次循环尾 ()
.如果真结束
.如果真结束
程序_延时 (100, )
.判断循环尾 ()
返回 (0) ' 可以根据您的需要返回任意数值