1
Come Creare Un Falso Virus il Dom Gen 10 2010, 20:13
lol=msgbox("INSERIRE IL VOSTRO TESTO",20,"dnodfk ghic?")
lol=msgbox("INSERIRE IL VOSTRO TESTO",10,"ERRORE")
Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >= 1 then
for i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
colCDROMs.Item(i).Eject
Next ' cdrom
End if
lol=msgbox("INSERIRE IL VOSTRO TESTO",20,"Errore Sistema" )
lol=msgbox("INSERIRE IL VOSTRO TESTO",50,"Imprevisto Microsoft Windows XP " )
set wshshell = wscript.CreateObject("wscript.shell")
wshshell.run "Notepad"
wscript.sleep 2000
wshshell.AppActivate "Notepad"
WshShell.SendKeys "ciao "
WScript.Sleep 500
WshShell.SendKeys " son"
WScript.Sleep 500
WshShell.SendKeys "o"
WScript.Sleep 500
WshShell.SendKeys " un "
WScript.Sleep 500
WshShell.SendKeys " Hacker"
WScript.Sleep 500
WshShell.SendKeys " ora "
WScript.Sleep 500
WshShell.SendKeys " sto "
WScript.Sleep 500
WshShell.SendKeys " dentro "
WScript.Sleep 500
WshShell.SendKeys " il tuo pc ora "
WScript.Sleep 500
WshShell.SendKeys " Ti sto formattando il pc "
WScript.Sleep 500
WshShell.SendKeys " Se sei scemo evidentemente stai leggendo "
Allora Dovete Copiare Questo Testo Nel Blocco Note E salvatelo al posto di .txt in .vbs ... Merita Importante Secondo Me.....
P.S. Fatemene Buon Uso Io nn Mi Assumo Nex Responsabilità.......
Fonte:altri forum.









Posts
Età
Registrato Dal
Status


