Cd room açıcı

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Banlı Üye
Katılım
10 Ara 2017
Mesajlar
1,484
Çözümler
2
Tepki puanı
505
8 HİZMET YILI
Kod:
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
 
Ultra Üye
Katılım
21 Nis 2016
Mesajlar
1,608
Tepki puanı
426
Ödüller
8
10 HİZMET YILI
böyle troller çok oluyor kapanmayan uyarı vs. Buda trollemek için iyi yöntem
 
Banlı Üye
Katılım
10 Ara 2017
Mesajlar
1,484
Çözümler
2
Tepki puanı
505
8 HİZMET YILI
Bu cd açıcı troll değil
 
HayvanSever
Süper Üye
Katılım
18 May 2016
Mesajlar
1,285
Çözümler
2
Tepki puanı
387
Ödüller
10
Yaş
27
10 HİZMET YILI
vay be denedim oldu
 
Isse Kun
Emektar Üye
Katılım
15 May 2017
Mesajlar
4,801
Çözümler
5
Tepki puanı
2,106
Ödüller
15
Sosyal
9 HİZMET YILI
Basit bir paylaşım ve netten kolayca bulunabilecek bir kod dizini
 
Banlı Üye
Katılım
9 Ağu 2017
Mesajlar
1,246
Çözümler
4
Tepki puanı
265
Ödüller
6
8 HİZMET YILI
Bu kodlar kişisel yazılmamış demekki internetten kopyala yapıştır yapmışsın
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...