Code:
Public Declare Function mciSendString Lib "winmm.dll" _
Alias "mciSendStringA" (ByVal lpszCommand As String, _
ByVal lpszReturnString As String, _
ByVal cchReturnLength As Long, _
ByVal hwndCallback As Long) As Long
Öffnen:
Code:
mciSendString "set cdaudio door open", 0, 0, 0
Schließen:
Code:
mciSendString "set cdaudio door closed", 0, 0, 0
Meine VB Zeiten liegen etwas länger zurück, also ich weiß nicht obs geht :>.