[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 Classsie 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 ;)

[Prototyp.Ger]

Klappt super