1

目前我使用的是 IE 11,我打开了 4 个显示器。我想在特定时间间隔的选项卡之间切换。我们希望此设置用于监控目的。我需要这个任务的脚本。

4

1 回答 1

0

请参考以下代码:

set shellApp = createobject("shell.application")

do 
  for each sTitle in Array("v9", "Google", "Gmail", "ETC")
    ShowIEWindow sTitle, shellApp, 10 ' sec
  next
loop ' forever

sub ShowIEWindow(sTitle, oShell, nWaitsec)
  for each w in oShell.windows
      with w
        if lCase(.LocationName) = lcase(sTitle) and InStr(lCase(.FullName),"iexplore") > 0then
          w.Refresh
          'w.visible = true ' show
          wsh.sleep nWaitsec * 1000 ' milliseconds
         ' w.visible = false ' hide
        end if
      end with
  next
end sub

如果它们在 Internet Explorer 中打开,上面的代码将刷新数组中指定的选项卡。

现在,您需要找到在不同选项卡之间切换的方法,而不是刷新窗口。

我还测试了上面的代码并为我工作。希望这会有所帮助!:)

于 2016-01-12T06:20:07.683 回答