[حسن الجلب]

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

[ابو روضة]

جرب هذا أخى

كود :

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

[حسن الجلب]

الكود مش شغال

[3booody]

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

الوصول ل 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)

[حسن الجلب]

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

[3booody]

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

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