none
Script em VB para alternar abas no IE RRS feed

  • Pergunta

  • 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

  • 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