منتدى ليبياأرس - كود فتح وغلق باب السي دي للكمبيوتر

منتدى ليبياأرس (http://www.libyars.com/lrs/index.php)

- لغات البرمجة (http://www.libyars.com/lrs/forumdisplay.php?f=37)

- - كود فتح وغلق باب السي دي للكمبيوتر (http://www.libyars.com/lrs/showthread.php?t=4296)

كود فتح وغلق باب السي دي للكمبيوتر

الكود بسيط جدا ويعتمد على مكتبة موجودة بالويندوز
اسمها
winmm.dll

كود:

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 OpenCDDriveDoor(ByVal State As Boolean)

If State = True Then

Call mciSendString("Set CDAudio Door Open" , 0& , 0& , 0&)

Else

Call mciSendString("Set CDAudio Door Closed" , 0& , 0& , 0&)

End If

End Sub



Private Sub Command1_Click()

OpenCDDriveDoor (True)

End Sub



Private Sub Command2_Click()

OpenCDDriveDoor (False)

End Sub

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

طبعا هدا الكود يشتغل علي الفيجيوال بيسك القديم
وما يخدمش علي الفي بي دوت نيت

مشكور على الكود خوي

اقتباس:

المشاركة الأصلية كتبت بواسطة dixie (المشاركة 19656)

مشكور على الكود خوي

الشكر ليك يا dixie هيا نشطونا قسم اليرمجة

جرب حمل برنامج تشفير تو تشفر (تختصره)