CD lade openen

Status
Niet open voor verdere reacties.

darkkiller545

Gebruiker
Lid geworden
5 sep 2008
Berichten
106
Beste,

Ik ben op zoek naar een scriptje liefst vbs zodat als ik op een toets op mijn keyboard druk mijn cdlade open gaat.
Bv F1 => opent cdlade

ik heb volgend scriptje al gemaakt hier gaat cdladen open en toe mee.

Dim oWMP
Dim colCDROMs, i
Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
WScript.Sleep 0
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
End If
oWMP.close
Set colCDROMs = Nothing
Set oWMP = Nothing


nu zou hier nog iets aan toegevoegt moeten worden zodat hij opent met F1 is dit mogelijk?

indien mogelijk ook een oplossing zodat hij opent na het opstarten.

mvg kenny
 
http://www.snapfiles.com/get/cdtraypal.html

hier kan je een heel simpel programma downloaden om hem te openen en te sluiten!!!!!!!!!!!
ik heb hem geprobeerd hij is goed alleen als je computer opstart dan krijg je een foutmelding, die moet je weg klikken.
nu gebruik ik hem niet meer omdat ik 2 dagen na het bestand een toetsenbord binnenkreeg met die funktie (logitec illuminated keybord)
bij computerwereld
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan