14-03-21, 01:54 AM
14-03-21, 02:23 AM
جرب هذا أخى
كود :
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
14-03-21, 11:25 PM
الكود مش شغال
15-03-21, 12:13 AM
لايوجد خطأ في كود الاخ ابو روضة تأكد جيدا من شغلك
واذا عندك خطأ معين صورلنا الخطأ
الوصول ل Api ويكون ملكان هذا الدالة بداخل الكلاس مباشرة أي ليس بحدث
فتح ويكون بحدث معين
اغلاق يكون ايضا بحدث معين
واذا عندك خطأ معين صورلنا الخطأ
الوصول ل 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)
15-03-21, 01:08 AM
انا فاهم بي والله حصل مشكله