Windows Configurando a inibição Mais de 2 guias para abrir a partir do arquivo de script

Question

Eu tenho vários sites que preciso monitorar como parte do meu trabalho. Eu criei um .vbs (embora na solução de problemas desse problema, eu também criei e tive o mesmo problema com arquivos .js e .bat). Este arquivo simplesmente abre uma nova janela do Internet Explorer e, em seguida, colocaria uma nova guia para cada site que eu precisaria. Este é o código:

Const navOpenInBackgroundTab = &H1000

site1 = "http://www.google.com"
site2 = "http://www.yahoo.com"
site3 = "http://www.bing.com"
site4 = "http://www.duckduckgo.com"

Set oIE = CreateObject("InternetExplorer.Application")

oIE.Visible = True
oIE.Navigate2 site1
oIE.Navigate2 site2,navOpenInBackgroundTab
oIE.Navigate2 site3,navOpenInBackgroundTab
oIE.Navigate2 site4,navOpenInBackgroundTab

Set oIE = Nothing

A execução desse arquivo foi perfeita para mim e consegui configurá-lo para executar automaticamente o agendador para automatizar meu monitoramento de tarefas até recentemente. Agora, quando eu o executo, ele só abre as duas primeiras guias, independentemente de quantos links eu tenho como parte do script.

Eu tenho vasculhado a internet em busca de uma solução e não encontrei nada. Existem alguns outros computadores em que eu posso fazer isso funcionar corretamente, mas não o meu mais. Isso é apenas uma configuração do Windows que está inibindo o script de abrir corretamente todas as guias? Onde devo procurar mudar / consertar?

Agradecemos antecipadamente por qualquer ajuda.

    

Answer 1

Faça uma tentativa para este vbscript:

Option Explicit
Dim oIE,site1,URL,ArrayURLS
Set oIE = CreateObject("InternetExplorer.Application")
site1 = "http://www.duckduckgo.com"
oIE.Visible = True
oIE.Navigate2 site1

ArrayURLS = Array("http://www.google.com","http://www.yahoo.com","https://superuser.com",_
"https://stackoverflow.com","https://security.stackexchange.com/","https://pastebin.com")

For Each URL In ArrayURLS
    Call OpenTab(URL)
Next

Set oIE = Nothing
wscript.quit
'**********************************************
Sub OpenTab(URL)
Const navOpenInBackgroundTab = &H1000
    oIE.Visible = True
    oIE.Navigate2 URL,navOpenInBackgroundTab
    Do
        WScript.Sleep 100
    Loop While oIE.Busy
End sub
'********************************************