控制光驱的开,关

'***************************
'控制光驱的开,关
By ：自由奔腾（wgscd）
'***************************
imports Microsoft.VisualBasic.Compatibility

Private Declare Function CDdoor Lib "winmm.dll"  Alias "mciSendStringA"(ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Integer, ByVal hwndCallback As Integer) As Integer
 Private Sub Command1_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command1.Click

        '如果关闭则打开，并且按钮做相应变化
        If CDOpen = False Then
            Call CDdoor("set CDAudio door open", 0, 0, 0)
            CDOpen = True
            Command1.Text = "点击关闭光驱"
        Else
            '否则关闭
            Call CDdoor("set CDAudio door closed", 0, 0, 0)
            CDOpen = False
            Command1.Text = "点击打开光驱"
        End If

 End Sub
    'wgscd 2004-11-1
 
 '引用的语法是
 
 'Call CDdoor("set CDAudio door closed", 0, 0, 0)    '用以关闭光驱门
 
 'Call CDdoor("set CDAudio door open", 0, 0, 0)      '用以打开光驱门
    Dim CDOpen As Boolean
 

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        CDOpen = False
    
    End Sub