Cs.Aviara.Ro War3 + Respawn
Salut Daca Esti Vizitator Inregistreazate !!
Daca Esti Membru Logheazate !!
Multumesc pentru Intelegere
Te asteptam pe ....
Connect cs-aviara.malware-site.www:27013


Adresa Connectare : cs-aviara.malware-site.www:27013
 
AcasaInregistrareConectare

Distribuiţi | 
 

 Funny . vbs

In jos 
AutorMesaj
NoFeAr

avatar

Numarul mesajelor : 31
Varsta : 23
Localizare : Braila
Reputatie : 6
Data de inscriere : 16/03/2009

MesajSubiect: Funny . vbs   Vin Mar 20, 2009 10:07 pm

Deschizi un notepad si scri:

msgbox "Sa te vad daca shtii sa ma rogi frumos sa itzi las compul in pace"
Set kader = WScript.CreateObject("SAPI.SpVoice" )
kader.Speak "computer infected"
msgbox"O sa itzi deschid primele 10 porturi...apoi o sa itzi dezactivez firewallul..shi ma mai gandesc",,"Nuca"
msgbox"Gata,te-ai ars!!!",,"Nuca"
kader.Speak "1, 2, 3"
kader.Speak "opening port number 1 "
kader.Speak "opening port number 2"
kader.Speak "opening port number 3"
kader.Speak "opening port number 4"
kader.Speak "opening port number 5"
kader.Speak "opening port number 6"
kader.Speak "opening port number 7"
kader.Speak "opening port number 8"
kader.Speak "opening port number 9"
kader.Speak "opening port number 10"
kader.Speak "all 10 sistem ports are opened"
msgbox"In momentul de fatza ai la comp cela mai importante 10 de porturi deschise",,"Nuca"
msgbox "Acum itzi dezactivez protectzia compului",,"Nuca"
kader.Speak "starting proces"
kader.speak " "
kader.Speak "disabling antivirus"
kader.speak " "
kader.Speak "loading"
kader.speak " "
kader.speak " "
kader.speak "antivirus disabled"
kader.speak " "
kader.Speak "disabling firewall"
kader.speak " "
kader.Speak "loading"
kader.speak " "
kader.speak "firewall disabled"
kader.speak "operation completed"
msgbox" Incepe infectarea compului gazda"
kader.Speak "Extracting viruses"
kader.Speak "extracting Trad3r.trojan"
kader.Speak " "
kader.Speak "loading"
kader.Speak "Trad3r.trojan has been succesfull extracted"
msgbox" Ce sa itzi fac , daca ai suparat pe cine nu trebuia "
kader.Speak "anyway your personal computer will be functionable only 10 more seconds"
kader.Speak "say bye to your pc"
kader.Speak "10, 9, 8, 7, 6, 5, 4, 3, 2, 1, 0"
kader.Speak "shutdown and saving infected"
kader.Speak " MADE BY Programmer"
Dim wshshell
set wshshell = wscript.Createobject("WScript.Shell" )
wshshell.run "shutdown -s -t 30 -c Mas"

Salvati .vbs

E
foarte funny programu...mai ales cand numare alea 10 secunde in 3
secunde adevarate Nu cred ca sperie pe nimeni oricum...dar e foarte
funny
Sus In jos
http://cscalibru.forumz.ro
 
Funny . vbs
Sus 
Pagina 1 din 1
 Subiecte similare
-
» mini bloguri-mini scenarii

Permisiunile acestui forum:Nu puteti raspunde la subiectele acestui forum
Cs.Aviara.Ro War3 + Respawn :: Diverse :: Altele-
Mergi direct la: