2011-09-13, 06:39 PM | #1 |
مبرمج المستحيل
تاريخ التسجيل: May 2010
الدولة: Libya
المشاركات: 2,924
معدل تقييم المستوى: 17 |
كود فتح وغلق باب السي دي للكمبيوتر
الكود بسيط جدا ويعتمد على مكتبة موجودة بالويندوز اسمها 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 لو في احد يقدر يختصر الكود ياريت ايساعدني
__________________
|
2011-09-18, 08:35 PM | #2 |
مبرمج المستحيل
تاريخ التسجيل: May 2010
الدولة: Libya
المشاركات: 2,924
معدل تقييم المستوى: 17 |
طبعا هدا الكود يشتغل علي الفيجيوال بيسك القديم وما يخدمش علي الفي بي دوت نيت
__________________
|
2011-09-27, 03:03 PM | #3 |
رابد ثانوي
تاريخ التسجيل: Nov 2009
المشاركات: 144
معدل تقييم المستوى: 15 |
مشكور على الكود خوي
|
2011-09-28, 01:31 PM | #4 |
مبرمج المستحيل
تاريخ التسجيل: May 2010
الدولة: Libya
المشاركات: 2,924
معدل تقييم المستوى: 17 |
__________________
|
2012-01-06, 02:46 AM | #5 |
سبحان الله وبحمدة
تاريخ التسجيل: Nov 2009
الدولة: طرابلس/سوق الجمعة /الحشان
المشاركات: 84
معدل تقييم المستوى: 15 |
جرب حمل برنامج تشفير تو تشفر (تختصره)
__________________
|
|
|
المواضيع المتشابهه | ||||
الموضوع | كاتب الموضوع | المنتدى | مشاركات | آخر مشاركة |
للبسه العربيه ((الليبيه)) الصح | جليسة البحر | مواضيع عامة | 1 | 2010-09-13 12:39 PM |
جحا يضع حدا للكمبيوتر | BLOODY ROAR | مواضيع عامة | 5 | 2010-08-26 02:16 PM |
امسح دنوبك أدخل وماراح تندم | عبسي الحمديني | مواضيع إسلامية عامة | 2 | 2010-07-15 03:39 PM |
الصد | عبسي الحمديني | مواضيع إسلامية عامة | 1 | 2010-05-13 09:46 PM |