منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] عايز كود فتح وإغلاق الديفيدي - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] عايز كود فتح وإغلاق الديفيدي (/showthread.php?tid=38015)



عايز كود فتح وإغلاق الديفيدي - حسن الجلب - 14-03-21

عايز كود فتح وإغلاق الديفيدي


RE: عايز كود فتح وإغلاق الديفيدي - ابو روضة - 14-03-21

جرب هذا أخى


كود :
Imports Microsoft.Win32.Registry
Imports Microsoft.Win32
Public Class Form1
   Public Pont As Point
   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

   Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
       Try
           Call mciSendString("Set CDAudio Door Open", 0, 0, 0)
       Catch ex As Exception

       End Try
   End Sub



RE: عايز كود فتح وإغلاق الديفيدي - حسن الجلب - 14-03-21

الكود مش شغال


RE: عايز كود فتح وإغلاق الديفيدي - 3booody - 15-03-21

لايوجد خطأ في كود الاخ ابو روضة تأكد جيدا من شغلك
واذا عندك خطأ معين صورلنا الخطأ

الوصول ل Api ويكون ملكان هذا الدالة بداخل الكلاس مباشرة أي ليس بحدث


كود :
Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" _
   (ByVal lpszCommand As String, ByVal lpszReturnString As String, _
   ByVal cchReturnLength As Long, ByVal hwndCallback As Long) As Long


فتح ويكون بحدث معين

كود :
mciSendString("set CDAudio door open", 0, 0, 0)

اغلاق يكون ايضا بحدث معين

كود :
mciSendString("set CDAudio door closed", 0, 0, 0)



RE: عايز كود فتح وإغلاق الديفيدي - حسن الجلب - 15-03-21

انا فاهم بي والله حصل مشكله


RE: عايز كود فتح وإغلاق الديفيدي - 3booody - 15-03-21

(15-03-21, 01:08 AM)حسن الجلب كتب : انا فاهم بي والله حصل مشكله

ماهي المشكلة اخي ياريت تاخذلها صوره