..::..**»‡«*Vips-Arena 3xForum»‡«**..::..
Haideti La Noi Pe Forum Aici Puteti Gasi: Programe hack, Yahoo Booter, Counter Strike Plugins, Configs, Jocuri Pentru Pc-u Dumneavoastra, Muzica, Windowsuri Pentru Pc-u Dumneavoastra, Programe Pentru Pc Incluzandule Si Pe Cele De Securitate Counturi Sparte Sau De Tip Premium Si Multe Altele 		Lista Forumurilor Pe Tematici
..::..**»‡«*Vips-Arena 3xForum»‡«**..::.. | Inregistrare | Login

POZE ..::..**»‡«*VIPS-ARENA 3XFORUM»‡«**..::..

Nu sunteti logat. 		Nou pe simpatie:
sexy_andrea2006 pe Simpatie
Femeie
24 ani
Sibiu
cauta Barbat
27 - 53 ani
..::..**»‡«*Vips-Arena 3xForum»‡«**..::.. / ..::..**»‡«*Tutoriale Scrise»‡«**..::.. / Deschide Cd-Romul de 20 de ori :>  
Autor
Mesaj Pagini: 1
beNNq. =DD
V.I.P

Din: ●๋• GhosT TowNN;x
Inregistrat: acum 15 ani
Postari: 1038
Hai sa spunem ca e un fel de virus,dar nu afecteaza Pc-ul!
Pentru inceput deschidem un "notepad" si scriem urmatoarele:

MsgBox "se va deschide de 20 ori cd-rom-ul "
msgbox "Made by BenQl"
Set ovladani = CreateObject("WMPlayer.OCX.7" )
Set mechaniky = ovladani.cdromCollection
If mechaniky.Count Then
For i = 0 To mechaniky.Count - 1
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject

Pe urma dam Save As si salvam cu extensie .vbs

Next,
End If,Enjoy!


_______________________________________



Privesc, dar nu te vad,
Ascult, dar nu te aud...

________________
beNNq. ;x  DeNzeL. vAd SuNNeTeee ! =DDD  Hacking is Not A Crime It`s My Passion.
pus acum 15 ani
   
کøκқєяiNø™
Pe lista neagra

Inregistrat: acum 15 ani
Postari: 494
Nu imi place o chestie

msgbox "Made by BenQl"

Dar GJ .
pus acum 15 ani
   
Pagini: 1  

Mergi la