Forum de Counter Strike
Doriți să reacționați la acest mesaj? Creați un cont în câteva clickuri sau conectați-vă pentru a continua.

Forum de Counter Strike

Cel mai tare forum de Counter Strike!!!
 
AcasaUltimele imaginiCăutareÎnregistrareConectare

 

 Deschide Cd-Romul de 20 de ori

In jos 
AutorMesaj
Syker[BenQ]
Admin
Syker[BenQ]


Mesaje : 266
Data de înscriere : 13/03/2010
Localizare : Sibiu

Deschide Cd-Romul de 20 de ori Empty
MesajSubiect: Deschide Cd-Romul de 20 de ori   Deschide Cd-Romul de 20 de ori Icon_minitimeMier 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
Deschide Cd-Romul de 20 de ori 11hqcjpk
Sus In jos
https://arenavips.forumotion.com
 
Deschide Cd-Romul de 20 de ori
Sus 
Pagina 1 din 1

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