Question

求用VB编写的控制光驱的代码

我有C#的代码,有人能翻译过来也行,{
[DllImport(@"C:\Windows\system32\winmm.dll", EntryPoint = "mciSendString", CallingConvention = CallingConvention.StdCall, SetLastError = true)]
public static extern unsafe int mciSendString(string lpszCommand, string lpszReturnString, System.UInt16 cchReturn, System.IntPtr hwndCallback);

public static void PopCD(IntPtr handle)
{
mciSendString("Set cdaudio door open wait", "", 0, handle);
}

public static void PushCD(IntPtr handle)
{
mciSendString("Set cdaudio door closed wait", "", 0, handle);
}
}

Answer 1

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

'打开光驱
mciSendString "set CDAudio door open", 0, 0, 0

'关闭光驱
mciSendString "set CDAudio door closed", 0, 0, 0

Answer 2

C:\Windows\system32\winmm.dll光驱驱动，用API加载即可