باز کردن درب cd-rom ?

[hostage]

برای باز شدن درب سی دی رام از چه کدی باید استفاده کنم(لطفا کد را دقیق بنویسید)

[soltanalidj]

توی 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]

من برای ویژوال بیسیک 2005 می خوام(ممنون)

[Xcalivorse]

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