باز کردن و بستن cd rom

بتدا برید به اولین سطر برنامه و کد زیر را قرار دهید:

کد:

Imports System.Runtime.InteropServices


بعد Function زیر را تعریف کنید:

کد:

<DllImport("winmm.dll", EntryPoint:="mciSendStringA", CharSet:=CharSet.Ansi)> _
Protected Shared Function mciSendString(ByVal lpstrCommand As String, ByVal lpstrReturnString As System.Text.StringBuilder, ByVal uReturnLength As Integer, ByVal hwndCallback As IntPtr) As Integer
End Function
​

سپس در رویدادی که مایلید با اجرای آن CD ROM بیرون بیاد(مثلا رویداد کلیک یک Button (دکمه) )، کد زیر رو قرار دهید:

کد:

Dim ret As Integer
ret = mciSendString("set cdaudio door open", Nothing, 0, IntPtr.Zero)


در رویدادی هم که میخواین با اجراش CD ROM بسته بشه، کد زیر رو قرار بدید:

کد:

Dim ret2 As Integer
ret2 = mciSendString("set cdaudio door closed", Nothing, 0, IntPtr.Zero)



امیدوارم مفید واقع شده باشه!