none
Script em VB para alternar abas no IE RRS feed

 > 

  • Pergunta

  • Question
    Entrar para Votar
    0
    Entrar para Votar

    Olá,

    Consegui o seguinte script (aqui pelo fórum mesmo), porém gostaria de saber como faço para parar ele:

    Ele abre uma janela do IE com duas abas (microsoft e google), depois ele fica enviando Ctrl+Tab(linha sendekeys) de 2 em  2 segundos(sleep 2000) para alternar entre as abas.

    O Loop é inifinito (1 sempre diferente de 2)

    navflags = 2048

Set objShell = CreateObject("WScript.Shell")


set Window = CreateObject("InternetExplorer.Application")

Window.RegisterAsBrowser = True
Window.MenuBar = True
Window.ToolBar = True
Window.AddressBar = True
Window.StatusBar = True
Window.FullScreen = False
Window.Resizable = True
Window.Visible = True
Window.Width = 850
Window.Height = 720




Window.Navigate("www.microsoft.com")

wscript.sleep 5000

Window.Navigate2 "www.globo.com",navflags

while 1<>2

	wscript.sleep 2000
	objShell.SendKeys "^{TAB}"


wend

    ------------------------------------------------------------------------------

    Como parar de executar o script? Única maneira que encontrei é reiniciando o computador.

    quarta-feira, 23 de setembro de 2015 14:33
    |

Todas as Respostas

  • Question
    Entrar para Votar
    0
    Entrar para Votar

    Eduardo,

    Criei um variável em seu script chamada "counter" no instrução while  ira contar enquanto counter for 10, caso você precisa é só você altera o valor da variável conter

    Set objShell = CreateObject("WScript.Shell")


set Window = CreateObject("InternetExplorer.Application")

Window.RegisterAsBrowser = True
Window.MenuBar = True
Window.ToolBar = True
Window.AddressBar = True
Window.StatusBar = True
Window.FullScreen = False
Window.Resizable = True
Window.Visible = True
Window.Width = 850
Window.Height = 720




Window.Navigate("www.microsoft.com")

wscript.sleep 5000

Window.Navigate2 "www.globo.com",navflags

Dim counter
counter = 10

While counter > 0

	wscript.sleep 2000
	objShell.SendKeys "^{TAB}"


wend

    • Sugerido como Resposta Carlos_rodrigues quinta-feira, 1 de outubro de 2015 03:22
    quarta-feira, 23 de setembro de 2015 20:21
    |