none
Passar o comando para VB RRS feed

 > 

  • Discussão Geral

  • Discussion
    Entrar para Votar
    0
    Entrar para Votar

    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

  • Discussion
    Entrar para Votar
    0
    Entrar para Votar

    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
  • Discussion
    Entrar para Votar
    0
    Entrar para Votar

    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
    |
  • Discussion
    Entrar para Votar
    0
    Entrar para Votar

    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
  • Discussion
    Entrar para Votar
    0
    Entrar para Votar
    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
    |
  • Discussion
    Entrar para Votar
    0
    Entrar para Votar

    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
  • Discussion
    Entrar para Votar
    0
    Entrar para Votar
    Não, salvei no desktop e dei um duplo-clique
    segunda-feira, 23 de agosto de 2010 20:28
    |
  • Discussion
    Entrar para Votar
    0
    Entrar para Votar

     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
  • Discussion
    Entrar para Votar
    0
    Entrar para Votar

    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
    |
  • Discussion
    Entrar para Votar
    0
    Entrar para Votar

    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
  • Discussion
    Entrar para Votar
    0
    Entrar para Votar
    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
    |
  • Discussion
    Entrar para Votar
    0
    Entrar para Votar

    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
    |