Sr. Charlles

VBSCRIPT - MENSAGENS DO WINDOWS

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:

Exemplo

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")