[VB.NET] Laufwerk auf und zu

[inmate]

Hii , ich blätterte grade in meinem VB6 Buch und entdeckte diese API

Public Class Form1
    'API
    Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '2 mal fürs öffnen und schliessen
        mciExecute("")

        mciExecute("")

    End Sub
End Class

sie lässt das CD-Laufwerk öffnen und schliessen.

mfG

[Delphianer]

Hmm VB6 und das hier is .Net Section
Hmmmm.... ^^

[inmate]

Wie

Hmmmm.... ^^

??

Gucke auf meine Post Anzahl denkse ich wäre so blöd und würde es bei VB.net hinposten wenns nur bei VB6 klappt.Omg aber bloss nicht testen, erstmal spammen.Vb.net und VB6 unterscheidet sich nicht viel.Es klappt jeweils bei beiden Vb Arten

[Kaspersky]

Bei mir geht es so nicht.
nur so:

Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'Laufwerk Öffnen
        mciExecute("Set CDaudio door open")
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        'Laufwerk Schließen
        mciExecute("Set CDaudio door closed")
    End Sub

[Delphianer]

Also das von Inmate klappt bei mir nicht aber das von kaspersky schon
mit einem hacken
Wenn ich das laufwerk 1x Geöffnet habe und wieder 1x Geschlossen geht nichts mehr im programm

[Kaspersky]

Das liegt daran weil windows dann checkt ob eine cd darin liegt, wenn du das unterbrichsts hängt sich das programm auf.
Musst so 5-10sec warten nach dem schließen

[inmate]

Ja ich hab das true durch "" ersetzt jetzt gehts

[Sirect]

Oder nen neuen Thread machen? Geratene Sleep-Zeiten sind ja wohl kein besonders toller Style

[Kaspersky]

Bringt nix.
Geht erst wenn windows das laufwerk wieder frei gibt, bringt auch kein neuer thread.

[inmate]

Naja bei mir gehts habe XP wies mit Vista ist weis ich nicht , aber das sollte ja leicht zu ändern sein