فتح واغلاق الباب الخاص بمحرك السي دي من خلال الفيجوال بيسك

يقوم هذا الكود بفتح واغلاق باب محرك السي دي وهي الخاصية المتاحة من خلال ويندوز من خلال دالة API اسمها mciSendString موجودة في winmm.dll ، لذا قم بكتابة هذا الكود في موديول أو في General :

رمز
Private Declare Function mciSendString Lib "winmm.dll" _
Alias "mciSendStringA" _
(ByVal lpstrCommand As String, _
ByVal lpstrReturnString As String, _
ByVal uReturnLength As Long, _
ByVal hwndCallback As Long) As Long

ومن ثم هذه الدالتان لفتح واغلاق السي دي :

Public Sub EjectCD()
Call mciSendString("set CDAudio Door Open Wait", 0&, 0&, 0&)
bopen = True
End Sub

Public Sub CloseCD()
Call mciSendString("set CDAudio Door Closed Wait", 0&, 0&, 0&)
bopen = False
End Subأخيراً زري أمر للفتح والإغلاق .

أخيراً زري أمر للفتح والإغلاق .

Private Sub Command1_Click()
EjectCD
End Sub
Private Sub Command2_Click()
CloseCD
End Sub

بالتوفيق للجميع ‘‘‘

» قوانين منتدى الفبجوال بيسك
» الجمارك تضبط 43 مليون حبة مخدرة خلال عام