Tutorial Fácil: Criando VBScript

Good Night!

Olá pessoal, hoje como estou muito disposto decidi vim postar para vocês como criar um VBScript. "Mas Wesley, o que é VBScript?", simples, veja um pequeno resumo:

VBScript (acrônimo de Microsoft Visual Basic Scripting Edition) é um sub-sistema do Visual Basic usado em Active Server Pages e em Windows Scripting Hosts como uma linguagem de aplicação universal (general-purpose).

O VBScript é frequentemente usado em substituição aos arquivos de lote do DOS. VBScript usa o Component Object Model para acessar os elementos do ambiente no qual ele está sendo executado; por exemplo, o FileSystemObject (FSO) é usado para criar, ler, atualizar e excluir arquivos.

Os arquivos VBscript têm normalmente a extensão .vbs.

VBScript foi instalado por padrão em todas as versões desktop do Microsoft Windows desde o Windows 98, Windows Server desde o Windows NT 4.0 Option Pack.

Se o Windows Scripting Host estiver corretamente instalado e ativo, o programa é executado assim que se clica duas vezes no ícone do arquivo.

Fonte: Wikipedia

Vendo isso, você já deve ter uma pequena ideia do que é, agora vamos ao tutorial:

Abra o bloco de notas e digite:

msgbox"Mensagem que aparecera na janela",vbInformation,"Titulo da janela"

O que está de vermelho é editável. Após editar, clique em "Arquivo" > "Salvar como...", e nomeie o arquivo seguido da extensão ".vbs", exemplo:

(clique na imagem para ampliar)

Salve na area de trabalho para melhor localização, agora clique duas vezes nele e vai ficar mais ou menos assim:

(clique na imagem para ampliar)

Existe a possibilidade de criar uma sequencia de mensagens, que simula um ataque de vírus, para brincar com seus amigos, basta apenas fazer o mesmo que o tutorial acima, mudando apenas o que você vai colar no bloco de notas:

msgbox"Seu HD está sendo infectado",vbInformation,"Vírus Worm"
msgbox"10% Concluído",vbInformation,"Vírus Worm"
msgbox"Corrompendo arquivos",vbInformation,"Vírus Worm"
msgbox"20% 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"50% Concluído",vbInformation,"Vírus Worm"
msgbox"Carregando",vbInformation,"Vírus Worm"
msgbox"Computador infectado",vbInformation,"Vírus Worm"
msgbox"Desativando Windows em 24 horas",vbInformation,"Vírus Worm"
msgbox"100%",vbInformation,"Vírus Worm"

Não se esqueça de salvar com o final .vbs.

Agora aprenda a adicionar ações a um dos botões:

Dim window
intOpcao = msgbox("Quer entrar no site Wesley Ferreira BR?",vbYesNo,"Windows")
if intOpcao = vbyes then
   set window = CreateObject ("InternetExplorer.Application")
Window.RegisterAsBrowser = True
Window.Navigate("www.wesleyferreirabr.blogspot.com.br")
Window.MenuBar = True
Window.ToolBar = True
Window.AddressBar = True
Window.StatusBar = false
Window.FullScreen = false
Window.Resizable = True
Window.Visible = True
end if

O que está de vermelho é editável. Agora, como adicionar ação interna dos botões:

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

Veja abaixo alguns caminhos do sistema para editar ao código acima:

%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 usar, basta seguir o mesmo procedimento do primeiro tutorial, sempre salvar usando ".vbs" no final.

Pronto, seu VBScript está feito!

Tutorial editado por Wesley Ferreira.

Fonte: www.variedadesedicas.com.

Tags adicionais:

wesley, wesley ferreira, wesley ferreira br, tutoriais, criando mensagem no windows, criando mensagem, criando mensagem de texto, como fazer mensagem vbs, como criar arquivo vbs