如何仅刷新DEFAULT浏览器中的特定选项卡，其他选项卡不应刷新

Posted 2021-05-05

当批处理调用此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

答案

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浏览器对象。