Cd room açıcı

[kral234576]

Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection

if colCDROMs.Count >=1 then
For i=0 to colCDROMs.COunt -1
colCDROMs.Item(i).Eject
Next ' cdrom
End If

Bu kodları not defterine yapıştırın .vbs olarak kaydedin programa tıkladığınızda cd room açılır

Gereksiz olduğunu biliyorum ama işinize yarar belki

 

[xPury]

böyle troller çok oluyor kapanmayan uyarı vs. Buda trollemek için iyi yöntem

 

[KusursuzHacker]

Eyw easy troll kodu

 

[kral234576]

Bu cd açıcı troll değil

 

[OGAX]

vay be denedim oldu

 

[ErP]

Eyvallah

 

[Jacquelyn]

Basit bir paylaşım ve netten kolayca bulunabilecek bir kod dizini

 

[vashabi]

eyvallah kardeşim

 

[rgn]

eyvallah dostum

 

[#Chriss]

Eyvallah

 

[xPury]

Bu cd açıcı troll değil

Evet Cd açıcı fakat mesela kardeşinin oynadıgı bi oyunun yerini değiştirip bu trollü koyabilirsin sadece simgesini değiştirirsin Kısayola tıklandıgında Cd açılır bence iyi troll olur

 

[nahiko]

teşekkürler

 

[Spankerr]

Bu kodlar kişisel yazılmamış demekki internetten kopyala yapıştır yapmışsın