Forum de Counter Strike

Cel mai tare forum de Counter Strike!!!
 
AcasaCalendarFAQCautareMembriGrupuriInregistrareConectare

Distribuiti | 
 

 Deschide Cd-Romul de 20 de ori

Vezi subiectul anterior Vezi subiectul urmator In jos 
AutorMesaj
Syker[BenQ]
Admin


Mesaje : 266
Data de inscriere : 13/03/2010
Localizare : Sibiu

MesajSubiect: Deschide Cd-Romul de 20 de ori   Mier Mai 12, 2010 4:20 pm

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!Smile


Privesc, dar nu te vad,
Ascult, dar nu te aud...
___________________
[benQ] ;x
Sus In jos
Vezi profilul utilizatorului http://arenavips.forumn.biz
 
Deschide Cd-Romul de 20 de ori
Vezi subiectul anterior Vezi subiectul urmator Sus 
Pagina 1 din 1

Permisiunile acestui forum:Nu puteti raspunde la subiectele acestui forum
Forum de Counter Strike  :: Tutoriale-
Mergi direct la: