none
Passar o comando para VB RRS feed

  • Discussão Geral

  • Olá pessoal gostaria da ajuda de vocês para passar o código abaixo para VB(lembrando que as opções devem ser mostrada na tela e depreferência em lista e chamar seus respectivos sites).Segue o código:

    @echo off
    :NW_CHOOSE
    color 0f
    cls
    ECHO                 #### QUAL SITE DESEJA ABRIR ??? ####
    ECHO.
    SET /P NW_CONF=(1)site1 (2)site2 (3)site3 (4)site4 (5)site5 (6)site6 (7)site7 (8)site8 (9)-SAIR
    ECHO.

    IF /I "%NW_CONF%" == "1" GOTO site1
    IF /I "%NW_CONF%" == "2" GOTO site2
    IF /I "%NW_CONF%" == "3" GOTO site3
    IF /I "%NW_CONF%" == "4" GOTO site4
    IF /I "%NW_CONF%" == "5" GOTO site5
    IF /I "%NW_CONF%" == "6" GOTO site6
    IF /I "%NW_CONF%" == "7" GOTO site7
    IF /I "%NW_CONF%" == "7" GOTO site8
    IF /I "%NW_CONF%" == "8" GOTO END


    :site1
    start endereço do site1
    GOTO END

    :site2
    start endereço do site2
    GOTO END

    :site3
    start endereço do site3
    GOTO END

    :site4
    start endereço do site4
    GOTO END

    :site5
    start endereço do site5
    GOTO END

    :site6
    start endereço do site6
    GOTO END

    :site7
    start endereço do site7
    GOTO END

    :site8
    start endereço do site8
    GOTO END

    :END
    exit

     

    Desde já agradeço pela atenção de todos.

    []´s

     

     


    sábado, 21 de agosto de 2010 13:15

Todas as Respostas

  • Eder,

    Veja se ficou parecido.

     Vc deve adicionar um case para cada opção, coloque apenas para 1 e 2, e no caso de alguma opção inválida (case else).

    Wscript.StdOut.WriteLine "#### QUAL SITE DESEJA ABRIR ??? ####"
    wscript.StdOut.WriteBlankLines (2)
    Wscript.StdOut.WriteLine "(1)site1 (2)site2 (3)site3 (4)site4 (5)site5 (6)site6 (7)site7 (8)site8 (9)-SAIR"
    strOpcao = Wscript.StdIn.ReadLine
    
    Wscript.StdOut.WriteLine strOpcao
    
    select case strOpcao
    	case 1 : OpenURL "www.microsoft.com"
    	case 2 : OpenURL "www.technetbrasil.com.br"
    	
    	case else
    		Wscript.StdOut.WriteLine "Nenhum site escolhido"
    		wscript.quit
    
    end select
    
    
    sub OpenURL(strURL)
    	Dim ie
    	Set ie = CreateObject("internetexplorer.application")
    	ie.Navigate strURL
    	ie.Visible=True
    end sub
     
     
     
     'Handling Input and Output 
    ' http://technet.microsoft.com/en-us/library/ee156599.aspx
    
    'open internet explorer and navigate to a url
    'http://www.bytemycode.com/snippets/snippet/199/
    

    Fábio de Paula Junior
    segunda-feira, 23 de agosto de 2010 11:50
    Moderador
  • olha o erro que mostrou

    Script : Endereço do script
    linha : 1
    Caract. 1
    Erro : identificador inválido
    Código : 80070006
    Origem(null)

     

    segunda-feira, 23 de agosto de 2010 17:50
  • Copiei do fórum, colei no bloco de notas e salvei com o nome URL.vbs, rodou normalmente.

    O erro que você indicou aconteceu na primeira linha no primeiro caractere, pode ser alguma "sujeira" - caractere perdido, apague a primeira linha e digite ao invés de colar, já vi isto acontecer.


    Fábio de Paula Junior
    segunda-feira, 23 de agosto de 2010 18:10
    Moderador
  • Digitei todo o código e mesmo assim não deu certo, deu o mesmo erro.
    segunda-feira, 23 de agosto de 2010 18:54
  • Eu executei o script da seguinte forma:

    A partir do prompt estando dentro da pasta onde está o script, que chamei de url.vbs, digitei cscript url.vbs

    É assim que você faz?


    Fábio de Paula Junior
    segunda-feira, 23 de agosto de 2010 20:04
    Moderador
  • Não, salvei no desktop e dei um duplo-clique
    segunda-feira, 23 de agosto de 2010 20:28
  •  Então já muda de figura. Tente o código abaixo.

    strOpcao = inputbox ("#### QUAL SITE DESEJA ABRIR ??? ####" & chr(10) & _
    			"(1)site1 (2)site2 (3)site3 (4)site4 (5)site5 (6)site6 (7)site7 (8)site8 (9)-SAIR")
    
    select case strOpcao
    	case 1 : OpenURL "www.microsoft.com"
    	case 2 : OpenURL "www.technetbrasil.com.br"
    	
    	case else
    		msgbox "Nenhum site escolhido"
    		
    end select
    
    
    sub OpenURL(strURL)
    	Dim ie
    	Set ie = CreateObject("internetexplorer.application")
    	ie.Navigate strURL
    	ie.Visible=True
    end sub
    
    

     

     


    Fábio de Paula Junior
    terça-feira, 24 de agosto de 2010 11:20
    Moderador
  • Fábio,

    Agora funcionou corretamente. Agora será que teria como me orientar a mostrar as opções em lista ? exemplo :

    " Site 1
    Site 2
    Site 3
    ETC "

    Desde já agradeço.

    terça-feira, 24 de agosto de 2010 11:38
  • Pelo que entendi vc quer que sejam mostrados um embaixo do outro, você deve concatena-los com o caractere ENTER (chr(10)

    strOpcao = inputbox ("#### QUAL SITE DESEJA ABRIR ??? ####" & chr(10) & _
    "(1)site1" & chr(10) & "(2)site2" & chr(10) &  "(3)site3" & chr(10) & "(4)site4 (5)site5 (6)site6 (7)site7 (8)site8 (9)-SAIR")

    Na linha acima fiz até o site 3, tente modificar o restante.

    Dica: Observe a abertura e fechamento das aspas.


    Fábio de Paula Junior
    terça-feira, 24 de agosto de 2010 11:51
    Moderador
  • Muito obrigado pela ajuda Fábio, funcionou perfeitamente.

    OBS: Não fechei essa thread porque não sei como faz.
    terça-feira, 24 de agosto de 2010 19:07
  • Boa tarde a todos,

           Olá Fábio JR, sem querer abusar da sua boa vontade(mais já abusando), você sabe me dizer se existe alguma possibilidade de quando abrir um site ele já preencher alguns dados(como no caso dos dados que ficam salvo), automaticamente ? Se tiver possibilidade, por favor como devo proceder ?.

           Desde já agradeço a sua atenção.

    sexta-feira, 3 de setembro de 2010 17:16