Inquiridor
Passar o comando para VB

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
exitDesde já agradeço pela atenção de todos.
[]´s
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 -
-
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 -
-
-
-
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 -
-
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 -
-
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.