批处理调用此VB脚本时会启动我的默认浏览器并刷新,因为应用程序无法立即打开并需要刷新。但它清除了所有标签。我希望使用此特定URL刷新特定选项卡,并且一旦应用程序打开,刷新操作应该停止。可以在这个VB脚本中完成。
我的代码:
选项明确
Dim myowmObj
Dim ObservedPort
Dim Counter
Set myowmObj=WScript.CreateObject("WScript.Shell")
ObservedPort = WScript.Arguments(0)
myowmObj.Run "http://localhost:"&port&"/HatsDemo"
'Wait for 3 seconds
Wscript.Sleep 3000
Counter = 20
Do While Counter > 0
Counter = Counter - 1
'Send the F5 key for a refresh
myowmObj.SendKeys "{F5}"
'Wait for 2 seconds
Wscript.Sleep 2000
Loop
答案 0 :(得分:1)
Set objShell = CreateObject("Shell.Application")
Do
Set AllWindows = objShell.Windows
Count = 0
For Each window in AllWindows
If window.locationname = "Newest 'vbscript' Questions - Stack Overflow" or window.locationname = "website2.com" then
window.refresh2 3
Count = Count + 1
End If
Next
If Count = 0 then Exit Do
Wscript.sleep 5000
Loop
使用Window的Shell中的Shell对象和Web浏览器对象。