wie kann ich per VB die CD-Laufwerke (CD-Brenner oder DVD oder Audio CD öffnen und schliessen, habe im Archiv nichts gefunden, oder das falsche Stichwort eingegeben.
Gruss
Uli
wie kann ich per VB die CD-Laufwerke (CD-Brenner oder DVD oder Audio CD öffnen und schliessen, habe im Archiv nichts gefunden, oder das falsche Stichwort eingegeben.
Gruss
Uli
Jörg Lorenz hat mal ein Geckprogramm geschrieben.
Gruß Hajo
Versuch's mal so ...
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" ( _ Private Sub Command1_Click() Private Sub Command2_Click() Private Sub CloseDoor(ByVal Name As String) AliasName = "Laufwerk" & Name Private Sub OpenDoor(ByVal Name As String) AliasName = "Laufwerk" & Name
Code eingefügt mit Syntaxhighlighter 1.15
Option Explicit
ByVal lpstrCommand As String, ByVal lpstrReturnString As String, _
ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
OpenDoor "F"
End Sub
CloseDoor "F"
End Sub
Dim AliasName As String
mciSendString "Open " & Name & ": Alias " & AliasName & " Type CDAudio", 0, 0, 0
mciSendString "Set " & AliasName & " Door Closed", 0, 0, 0
End Sub
Dim AliasName As String
mciSendString "Open " & Name & ": Alias " & AliasName & " Type CDAudio", 0, 0, 0
mciSendString "Set " & AliasName & " Door Open", 0, 0, 0
End Sub
Gruß
Thomas
Risi Thomas Softwareentwicklung