..::..**»‡«*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

Nou pe simpatie:
Scumpa85 la Simpatie.ro

Femeie
24 ani
Bucuresti
cauta Barbat
27 - 45 ani

..::..**»‡«*Vips-Arena 3xForum»‡«**..::..Inregistrare Login PozeNu sunteti logat. Lista Forumurilor Pe Tematici

..::..**»‡«*Vips-Arena 3xForum»‡«**..::.. / ..::..**»‡«*Tutoriale Scrise»‡«**..::.. /

Deschide Cd-Romul de 20 de ori :>

Pagini: 1

beNNq. =DD
V.I.P
Din: ●๋• GhosT TowNN;x
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.

کøκқєяiNø™
Pe lista neagra
Postari: 494

Nu imi place o chestie

msgbox "Made by BenQl"

Dar GJ .

Pagini: 1

Mergi la