Jak potrolit kámoše falešným virem, se spožděním které simuluje mazání :)
Kod dole zkopírujte do poznámkovýho bloku a uložte s příponou .vbs !!!

Vysvětlivky:
 Okno:       X=MsgBox("Text", čísla od 0 do 4, zkoušejte je měnit než se vám to bude líbit + 16,32,48,64 to samý"Jméno okna")

Zpoždění: WScript.Sleep (třeba) 1000  - 1 sekunda = 1000

Code:
 X=MsgBox("Byl nalezen virus! Chcete ho smazat?",3+16,"Virus")
X=MsgBox("Tento virus nejde smazat. Byl aktivován.",2+16,"Virus aktivován")
X=MsgBox("Mažu složku WINDOWS...",0+64,"Mažu ti data")
WScript.Sleep 5000
X=MsgBox("Smazání bylo dokončeno.",0+16,"Dokončeno")
X=MsgBox("Chcete odeslat svoje hesla hackerům?",4+16,"Chcete odelsat hesla hackerům?")
X=MsgBox("Je to jedno, odešlu je...",0+16,"Je to jedno.")
WScript.Sleep 8000
X=MsgBox("Tvoje hesla byla úspěšně poslána hackerům.",1+64,"Dokončeno")
X=MsgBox("Chcete smazat všechna data?",4+48,"Smazat data?")
X=MsgBox("Do toho ti nic není..!",0+16,"Do toho ti nic není!")
X=MsgBox("Mažu tvoje data...",0+16,"Mažu data")
WScript.Sleep 10000
X=MsgBox("Tvoje data byly úspěšně smazány.",0+16,"Dokončeno")
X=MsgBox("Chceš smazat BIOS?",4+16,"Smazat BIOS?")
X=MsgBox("Smažeme ho...",0+16,"Smažeme ho")    
X=MsgBox("Probíhá mazání BIOSu...",0+64,"mažu BIOS")
WScript.Sleep 3000
X=MsgBox("Byl úspěšně smazán. Nyní prosím restartuj svůj PC. :)",0+48,"Restart, prosím")
X=MsgBox("Sranda! :D I am kidding...",0+64,"I am kidding...")

Pokud vám to nejede, zde je download: http://uloz.to/xg1tUmv/nej-hra-vbs
Heslo: 12345

PS: Pokusím se vám najít converter souborů do EXE :)