|
本帖最后由 萧阳天 于 2015-2-2 20:13 编辑
.版本 2
.子程序 就绪判断_源码关键字, 逻辑型, 公开, 通过【源码文本】关键字判断网页是否载入就绪,如果是就绪并且找到关键字,返回真,否则返回假。可设置是否区分大小写
.参数 浏览器窗口句柄, 整数型
.参数 欲判断的关键字, 文本型
.参数 超时返回, 整数型, 可空, 可空,单位为毫秒,默认为等待5000毫秒
.参数 网页文档对象, 对象, 可空, 如果此参数不为空,将以此参数为主。第1个参数可以直接填0
.参数 是否区分大小写, 逻辑型, 可空, 为空、假,默认为不区分大小写。 真,要区别大小写
.局部变量 局_文本, 文本型
.局部变量 局_时间, 整数型
局_时间 = 取启动时间 ()
.如果真 (是否区分大小写 = 假)
是否区分大小写 = 真
.如果真结束
.如果真 (是否为空 (超时返回))
超时返回 = 5000
.如果真结束
.判断循环首 (真)
.如果真 (窗口_句柄是否有效 (浏览器窗口句柄) = 假)
返回 (假)
.如果真结束
程序_延时 (300)
.如果 (是否为空 (网页文档对象))
初始化 (浏览器窗口句柄)
局_文本 = 网页_取源码 ()
.否则
局_文本 = 编码_Unicode到Ansi (网页文档对象.读对象型属性 (“documentElement”, ).读属性 (“outerHTML”, ).取字节集 ())
' 局_文本 = 网页文档对象.读对象型属性 (“documentElement”, ).读文本属性 (“outerHTML”, )
.如果结束
.判断开始 (寻找文本 (局_文本, 欲判断的关键字, , 是否区分大小写) ≠ -1)
返回 (真)
.判断 (取启动时间 () - 局_时间 > 超时返回)
返回 (假)
.默认
.判断结束
.判断循环尾 ()
返回 (假)
|
评分
-
查看全部评分
|