CD Rom Laufwerke öffnen und schließen mit Angabe des Laufwerkbuchstaben

    • VB.NET

    Es gibt 7 Antworten in diesem Thema. Der letzte Beitrag () ist von freakyJoker.

      CD Rom Laufwerke öffnen und schließen mit Angabe des Laufwerkbuchstaben

      Hier mal ein Kurzer Code der ein CD Rom Laufwerk öffnet bzw. schließt.

      VB.NET-Quellcode

      1. Private Declare Function mciSendString Lib "winmm.dll" Alias _
      2. "mciSendStringA" (ByVal lpstrCommand As String, ByVal _
      3. lpstrReturnString As String, ByVal uReturnLength As _
      4. Long, ByVal hwndCallback As Long) As Long
      6. Private Sub Btn_Open_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Open.Click
      7. Open_Tray(TextBox1.Text.Trim, True)
      8. End Sub
      10. Private Sub Btn_Close_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Close.Click
      11. Open_Tray(TextBox1.Text.Trim, False)
      12. End Sub
      14. Private Sub Open_Tray(ByVal Letter As String, ByVal Open As Boolean)
      15. Dim Drive As String = Letter.Substring(0, 1)
      16. Dim Action As String = String.Empty
      17. Select Case Open
      18. Case True
      19. Action = " Door Open"
      20. Case False
      21. Action = " Door Closed"
      22. Case Else
      23. Exit Sub
      24. End Select
      25. mciSendString(String.Concat("Open ", Drive, ": Alias ", "Laufwerk", Drive, " Type CDAudio"), String.Empty, 0, 0)
      26. mciSendString(String.Concat("Set ", "Laufwerk", Drive, Action), String.Empty, 0, 0)
      27. End Sub

      Ich bekomme leider den folgenden Fehler PInvokeStackImbalance wurde erkannt bei der Zeile

      VB.NET-Quellcode

      1. mciSendString(String.Concat("Open ", Drive, ": Alias ", "Laufwerk", Drive, " Type CDAudio", String.Empty, 0, 0)

      Was kann ich dagegen tun?

      Also ich habe es grade getestet

      Win XP.

      VB.NET-Quellcode

      1. Private Declare Function mciSendString Lib "winmm.dll" Alias _
      2. "mciSendStringA" (ByVal lpstrCommand As String, ByVal _
      3. lpstrReturnString As String, ByVal uReturnLength As _
      4. Integer, ByVal hwndCallback As Integer) As Integer


      da gehts

      zeig mal bitte deinen Code.

      danke

      Edit:
      bei meiner Frau gehts auch. Die hat irgendwas mit ner 7 auf dem Desktop stehen.

      Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Bernd“ ()

      funktioniert :)

      Ich habe den Fehler gefunden:

      Ich habe statt den 3 Longs nur 2 auf Integer ausgebessert, also

      VB.NET-Quellcode

      1. Private Declare Function mciSendString Lib "winmm.dll" Alias _
      2. "mciSendStringA" (ByVal lpstrCommand As String, ByVal _
      3. lpstrReturnString As String, ByVal uReturnLength As _
      4. Long, ByVal hwndCallback As Int32) As Int32


      statt

      VB.NET-Quellcode

      1. Private Declare Function mciSendString Lib "winmm.dll" Alias _
      2. "mciSendStringA" (ByVal lpstrCommand As String, ByVal _
      3. lpstrReturnString As String, ByVal uReturnLength As _
      4. Int32, ByVal hwndCallback As Int32) As Int32


      funktionier jetzt, danke für deine Hilfe :)

      Mit freundlichen Grüßen, freakyjoker