Browser 如何在默认浏览器中仅刷新特定选项卡,其他选项卡不应刷新

Browser 如何在默认浏览器中仅刷新特定选项卡,其他选项卡不应刷新,browser,vbscript,Browser,Vbscript,当批处理调用此VB脚本并在应用程序未立即打开且需要刷新时刷新时,将启动我的默认浏览器。但它正在刷新所有标签。我希望使用这个特定的URL刷新特定的选项卡,一旦应用程序打开,刷新操作应该停止。可以在这个VB脚本中完成 我的代码: 选项显式 Dim myowmObj Dim ObservedPort Dim Counter Set myowmObj=WScript.CreateObject("WScript.Shell") ObservedPort = WScript.Arguments(0) my

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

使用窗口外壳中的外壳对象和web浏览器对象。

完成Mofi,删除注释。请在此声明窗口中解释2和3。刷新2 3这是一种更新的刷新方法。看看这里的差异,谷歌搜索会告诉你的。由于COM调用的参数已更改,因此无法更新原始函数,因此使用了新名称。1。这不会刷新页面。我添加了-myowmObj。在它之前运行以首先打开页面。2.此外,循环还从运行脚本的windows文件资源管理器目录中获取控件。它不控制任何浏览器3的任何选项卡。计数器正在增加,因此如何退出循环。
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