VB'de ile Cdrom kapağı acıp kapatmak

B

bykzlu-x

Üye
9 Ocak 2008
190
5
'Formunuza 1 tane form 1 tanede command butonu ekleyin
'command butonunun adına(Name özelliğine)CDROM yazın
'Ve Aşağıdaki formun code sayfasına yapıştırın
'Kolay Gelsin


Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long

Private Sub CDROM_Click()
If CDROM.Caption = "CD-ROM Kapağını Aç" Then
mciExecute ("set cdaudio door open")
CDROM.Caption = "CD-ROM Kapağını Kapat"
CDROM.ToolTipText = "Tıklarsanız Cd-Rom Kapağı Kapanır"

Else
If CDROM.Caption = "CD-ROM Kapağını Kapat" Then
mciExecute ("set cdaudio door closed")
CDROM.Caption = "CD-ROM Kapağını Aç"
CDROM.ToolTipText = "Tıklarsanız Cd-Rom Kapağı Açılır"
cevap = MsgBox("Programı Kapatmak istiyormusunuz ?", vbYesNo + vbQuestion, "Çıkış")
If cevap = vbYes Then
End
Else
Cancel = True
End If
End If
End If
End Sub

NOT. ALINTIDIR.
 
Cevap yazmak için giriş yap yada kayıt ol.
Üst

Turkhackteam.org internet sitesi 5651 sayılı kanun’un 2. maddesinin 1. fıkrasının m) bendi ile aynı kanunun 5. maddesi kapsamında "Yer Sağlayıcı" konumundadır. İçerikler ön onay olmaksızın tamamen kullanıcılar tarafından oluşturulmaktadır. Turkhackteam.org; Yer sağlayıcı olarak, kullanıcılar tarafından oluşturulan içeriği ya da hukuka aykırı paylaşımı kontrol etmekle ya da araştırmakla yükümlü değildir. Türkhackteam saldırı timleri Türk sitelerine hiçbir zararlı faaliyette bulunmaz. Türkhackteam üyelerinin yaptığı bireysel hack faaliyetlerinden Türkhackteam sorumlu değildir. Sitelerinize Türkhackteam ismi kullanılarak hack faaliyetinde bulunulursa, site-sunucu erişim loglarından bu faaliyeti gerçekleştiren ip adresini tespit edip diğer kanıtlarla birlikte savcılığa suç duyurusunda bulununuz.