PDA

View Full Version : باز کردن درب cd-rom ?



hostage
شنبه 15 تیر 1387, 08:48 صبح
برای باز شدن درب سی دی رام از چه کدی باید استفاده کنم(لطفا کد را دقیق بنویسید)

soltanalidj
یک شنبه 16 تیر 1387, 15:10 عصر
توی VB6 اینجوریه:
درقسمت جنرال فرم بنویس

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
Sub OpenCDDoor()
mciSendString "Set CDAudio Door Open Wait", 0&, 0&, 0&
End Sub
و بعد هم روی یه دکمه:

Sub OpenCDDoor()
mciSendString "Set CDAudio Door Open Wait", 0&, 0&, 0&
End Sub
Sub CloseCDDoor()
mciSendString "Set CDAudio Door Closed Wait", 0&, 0&, 0&
End Sub

hostage
دوشنبه 17 تیر 1387, 10:22 صبح
من برای ویژوال بیسیک 2005 می خوام(ممنون)

Xcalivorse
سه شنبه 18 تیر 1387, 09:43 صبح
برای انجام این کار در VB.Net 2005 هم باید از API ذکر شده در بالا استفاده کنی.
فقط برای اینکه در برنامه ات RunTime Error نداشته باشی تابع رو به صورت
mciSendString "Set CDAudio Door Closed Wait Open", 0, 0, 0
فراخوانی کن