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
