باز و بسته کردن CDROM

[Reza,M]

با سلام دوست عزيز از كد زير استفاده كن ببين چطوره

 Public 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

    Public CDRom As Boolean

    Dim a As Long

    Dim b As String

    

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        a = mciSendString("set CDAudio door open", 0, 0, 0)

        Me.Text = "Your CDRom Open door"

    End Sub



    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        a = mciSendString("set CDAudio door closed", 0, 0, 0)

        Me.Text = "Your CDRom Closed door"

    End Sub