VBSCRIPT - MENSAGENS DO WINDOWS

Hoje vamos ensinar como criar caixas de diálogo para o Windows, aquelas mensagens que o sistema emite em determinadas ações que realizamos. Faremos isso usandoVBscript (Acrônimo de Visual Basic Scripting).

Em um artigo anterior mostramos diversos tipos de caixa de diálogo para seu site, o princípio é quase o mesmo.

Abra o bloco de notas e digite:

msgbox"Mensagem que será exibida na janela",vbInformation,"Título da janela"

Os trechos do código em azul são substituíveis, não esqueça de manter as aspas. Depois de editar o texto e o título da janela, clique em arquivo/salvar como, e em seguida dê um nome ao arquivo seguido da extensão .vbs  Exemplo: Arquivo.vbs

Irá ficar assim:

Você também pode criar uma sequência de mensagens, que serve até para brincar com seus amigos simulando um ataque  de vírus no computador. Veja o Código:

msgbox"Seu Hd está sendo infectado",vbInformation,"Vírus Worm"
msgbox"80% Concluído",vbInformation,"Vírus Worm"
msgbox"Corrompendo arquivos",vbInformation,"Vírus Worm"
msgbox"50% Concluído",vbInformation,"Vírus Worm"
msgbox"Roubando informações",vbInformation,"Vírus Worm" 
msgbox"30% Concluído",vbInformation,"Vírus Worm"
msgbox"Substituindo System32",vbInformation,"Vírus Worm"
msgbox"10% Concluído",vbInformation,"Vírus Worm"
msgbox"Carregando",vbInformation,"Vírus Worm"
msgbox"100% concluído computador infectado",vbInformation,"Vírus Worm"

Basta copiar e colar no bloco de notas, não esqueça de salvar com extensão .vbs Exemplo: Worm.vbs, teste e veja o resultado. Se quiser troque o ícone do script.

Ainda existem outros atributos que podem ser utilizados na caixa, botões, ícones, ações etc.. Veja alguns exemplos:

MsgBox"Mensagem da janela",vbOkCancel,"Título da janela"

O trecho do código em vermelho, acrescenta os botões Ok e Cancelar. Este valor pode ser alterado por:

1- vbCritical  - Exibe o ícone de situação crítica.

2- vbQuestion - Exibe o ícone de pergunta.

3- vbRetryCancel - Botões repetir e cancelar.

4- vbYesNoCancel - Botões sim, não, cancelar.

5- vbAbortRetryIgnore - Botões anular, repetir, ignorar.

Agora vamos atribuir uma ação a um dos botões.

Dim window
intOpcao = msgbox("Você quer conhecer um site muito legal?",vbYesNo,"Windows") 
if intOpcao = vbyes then
   set window = CreateObject ("InternetExplorer.Application")

Window.RegisterAsBrowser = True
Window.Navigate("www.variedadesedicas.com")
Window.MenuBar = True
Window.ToolBar = True
Window.AddressBar = True
Window.StatusBar = false
Window.FullScreen = false
Window.Resizable = True
Window.Visible = True
end if

Copie o código acima e cole no bloco de notas, salve sempre com a extensão .vbs agora clique no arquivo. Legal né?

Por fim vou mostrar como atribuir uma ação interna aos botões, utilizando caminhos dosistema.

Veja o código:

Dim wshshell
intOpcao = msgbox("Deseja que o windows abra o painel de controle?",vbyesno,"Windows")
if intOpcao = vbyes then
     Set WshShell = WScript.CreateObject("WScript.Shell")
  WshShell.Run("%systemroot%\system32\control.exe")

end if

A parte do código em vermelho, é o caminho do sistema para abrir o painel de controle, a ação está atribuída ao botão sim, portanto ao clicar em sim o windows abre opainel de controle.

Veja abaixo os principais caminhos do sistema que podem substituir o trecho em vermelho.

%windir%\notepad.exe  -  Abre o bloco de notas.

shutdown -s -t 00  -  Desliga o computador.

shell:::{645FF040-5081-101B-9F08-00AA002F954E}  -  Abre a lixeira.

shutdown -r -t 00  -  Reinicia o computador.

%systemroot%\system32\taskmgr.exe  -  Abre o gerenciador de tarefas.

%systemroot%\system32\mspaint.exe  -  Abre o paint.

%systemroot%\system32\cmd.exe  -  Abre o prompt de comando.

Para testar o código basta seguir o mesmo procedimento dos demais, colar no bloco de notas e salvar com a extensão .vbs

Se quiser que a ação seja executada ao clicar no botão Não, basta substituir o trecho do código em roxo por no, você também pode alterar a mensagem e o título da janela.

Existem outros caminhos e comandos para o Vbscript, pode-se até construir aplicações, programas, e vírus reais com esse tipo de script.

Que não iremos mostrar para o tutorial não ficar muito extenso, e por uma questão deética.