麻烦大家帮忙修改一下，光驱的打开与关闭的源代码

Question

Option Explicit
'说明：CDdoor函数是安装WINDOWS时所自带的winmm.dll文件中包含的函数
Private Declare Function CDdoor Lib "winmm.dll  " Alias "mciSendStringA  " _
( _
ByVal lpstrCommand As String, _
ByVal lpstrReturnString As String, _
ByVal uReturnLength As Long, _
ByVal hwndCallback As Long _
) As Long
 
'CDOpen用来标示光驱开与关的状态
Dim CDOpen   As Boolean
 
Private Sub Command1_Click()
On Error Resume Next
 
'如果关闭则打开，并且按钮做相应变化
If CDOpen = False Then
Call CDdoor("set  CDAudio  door  open  ", 0, 0, 0)
CDOpen = True
Command1.Caption = "点击关闭光驱  "
Else
'否则关闭
Call CDdoor("set  CDAudio  door  closed  ", 0, 0, 0)
CDOpen = False
Command1.Caption = "点击打开光驱  "
End If
End Sub
 
Private Sub Form_Load()
CDOpen = False
Call CDdoor("set  CDAudio  door  closed  ", 0, 0, 0)
End Sub

Answer 1

把API声明改为
Private Declare Function CDdoor Lib "winmm.dll" Alias "mciSendStringA" _
( _
ByVal lpstrCommand As String, _
ByVal lpstrReturnString As String, _
ByVal uReturnLength As Long, _
ByVal hwndCallback As Long _
) As Long
你多加了几个空格