Browser 如何在默认浏览器中仅刷新特定选项卡,其他选项卡不应刷新
当批处理调用此VB脚本并在应用程序未立即打开且需要刷新时刷新时,将启动我的默认浏览器。但它正在刷新所有标签。我希望使用这个特定的URL刷新特定的选项卡,一旦应用程序打开,刷新操作应该停止。可以在这个VB脚本中完成 我的代码: 选项显式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
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