Unbestimmtes cd/dvd laufwerk öffnen

    • VB.NET

      Unbestimmtes cd/dvd laufwerk öffnen

      VB.NET-Quellcode

      1. Public Class Form1
      2. 'benötigt 2 button (button1, button2)
      4. Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long
      6. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
      7. Button1.Text = "Öffnen"
      8. Button2.Text = "Schließen"
      9. End Sub
      11. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
      12. mciExecute("Set CDaudio door open")
      13. End Sub
      15. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
      16. mciExecute("Set CDaudio door closed")
      17. End Sub
      18. End Class


      villeicht könnt ihr ja etwas damit anfangen

    Facebook
    Telefonspende