باز و بسته کردن در سی دی رم

[hossein-jam]

با سلام خدمت تمامی دوستان
کسی میدونه با وی بی چطور میشه در سی دی رم رو باز و بسته کرد
با تشکر

[Payman62]

سلام.



Private Declare Function mciSendStringA Lib "winmm.dll" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

Private Function OpenCDROM() As Long
On Error Resume Next
Dim tReturn As String
OpenCDROM = mciSendStringA("set CDAudio door open", tReturn, 127, 0)
End Function

Private Function CloseCDROM() As Long
On Error Resume Next
Dim tReturn As String
CloseCDROM = mciSendStringA("set CDAudio door closed", tReturn, 127, 0)
End Function

بدون شرح.

[hossein-jam]

با تشکر از شما دوست عزیز
میرم تست کنم

[killer-star]

سلام

یک راه خیلی خیلی ساده بلد بودم اما یادم رفته !!
یک خط کد بود فقط

یادم اومد مینویسم :لبخند:

[hossein-jam]

با سلام خدمت تمامی دوستان
اقا پیمان خیلی ممنون از جوابی که دادین این کد جوای داد
متشکرم

[Payman62]

سلام

یک راه خیلی خیلی ساده بلد بودم اما یادم رفته !!
یک خط کد بود فقط

یادم اومد مینویسم :لبخند:

سلام.
اینم یه خطه دیگه. باز و بسته کردن به صورت تابع هست. ولی اگه تابع نباشه کد باز کردن فقط یه خطه.

[killer-star]

سلام.
اینم یه خطه دیگه. باز و بسته کردن به صورت تابع هست. ولی اگه تابع نباشه کد باز کردن فقط یه خطه.
:لبخند: :لبخند: