Question

我尝试使用以下代码来确定网页是否已打开，但此代码对我不起作用。系统只闪烁第一个打开的网页网址。

surl ="http://www.google.com/"
set shapp=createobject("shell.application")
For Each owin In shapp.Windows
  msgbox owin.document.location.href
  if Instr(1,owin.document.location.href,surl)>0 then
    msgbox "Window opened"
  end if
Next
set shapp=Nothing

错误消息是：

脚本＆＃34; D：\ ie_open.vbs＆＃34;超出了脚本执行时间。脚本执行已终止

Answer 1

如果出现错误消息“超出脚本执行时间...”，则问题可能是由于超时时间过短造成的。见here。使用类似的东西：

cscript //T:0 "D:\ie_open.vbs"

测试这个假设。

默认超时值可以存储在以下任一位置的注册表中：

HKCU\Software\Microsoft\Windows Script Host\Settings（每位用户）
HKLM\Software\Microsoft\Windows Script Host\Settings（全球）

删除Timeout值会删除预设超时。

Answer 2

而不是owin.document.location.href使用oWin.locationURL

如何使用VBScript查看是否打开了网页

2 个答案: