![]() |
![]() |
![]() |
![]() |
#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 لو في احد يقدر يختصر الكود ياريت ايساعدني
__________________
![]() ![]() |
![]() |
![]() |
![]() |
#2 |
مبرمج المستحيل
تاريخ التسجيل: May 2010
الدولة: Libya
المشاركات: 2,924
معدل تقييم المستوى: 17 ![]() |
![]() طبعا هدا الكود يشتغل علي الفيجيوال بيسك القديم وما يخدمش علي الفي بي دوت نيت
__________________
![]() ![]() |
![]() |
![]() |
![]() |
#3 |
رابد ثانوي
تاريخ التسجيل: Nov 2009
المشاركات: 144
معدل تقييم المستوى: 15 ![]() |
![]()
مشكور على الكود خوي
|
![]() |
![]() |
![]() |
#4 |
مبرمج المستحيل
تاريخ التسجيل: May 2010
الدولة: Libya
المشاركات: 2,924
معدل تقييم المستوى: 17 ![]() |
![]()
__________________
![]() ![]() |
![]() |
![]() |
![]() |
#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 |