Snelkoppeling om drive te openen

[Verwijderd]

Ik heb het volgende probleem: van mijn brander is het knopje kapot waarmee je de lade opent. Nu is het wel mogelijk om via de verkenner de lade te openen, maar weet misschien iemand of dit ook kan door middel van een snelkoppeling op het bureaublad?

En zo ja, naar welk commando moet deze snelkoppeling dan verwijzen?

[megaleo]

Hier heb je een progje die het doet.

http://oege.lb.hva.nl/~erkens04/downloads/cdlade11.zip

En die laten runnen d.m.v. een sneltoets op je toetsenbord.

[sjoerdb2]

code:

Set wmp = CreateObject("WMPlayer.OCX.7")
Set cdroms = wmp.cdromCollection

If cdroms.Count >= 1 then

For i = 0 to cdroms.Count - 1
cdroms.Item(i).Eject
Next
End If

sla dit op als open.vbs (oid) en maak daar een snelkoppeling naar

suc6

[BalusC]

sjoerdb schreef op 08 October 2003 @ 19:13:

code:

Next

sla dit op als open.vbs (oid) en maak daar een snelkoppeling naar

suc6

Sja, dit opent élk aanwezige CD/DVD lezer/brander .. Niet echt handig als je er meer dan 1 in je bak hebt zitten

edit:

Oh, ik zie dat het linkje van megaleo (hier iig) niet werkt ..
Een andere mogelijkheid is wineject

[ Voor 18% gewijzigd door BalusC op 08-10-2003 19:16 ]

[Verwijderd]

megaleo schreef op 08 oktober 2003 @ 19:11:
Hier heb je een progje die het doet.

http://oege.lb.hva.nl/~erkens04/downloads/cdlade11.zip

En die laten runnen d.m.v. een sneltoets op je toetsenbord.

Die werkt niet ("Kan de server niet vinden")...

[mutsje]

rechtsklikken > eject werkt nog steeds en zit er al sinds windows 95 in geloof ik. Ook kun je het vanuit management console doen > disk management >> cd-rom > eject disk.

[ Voor 12% gewijzigd door mutsje op 08-10-2003 19:26 ]

[Verwijderd]

Ik snap dat dat ook via de verkenner en dan rechtsklikken werkt, maar dat is niet makkelijk. Dan moet eerst die verkenner open. Ik wil juist een rechtstreekse snelkoppeling op bureaublad (of toetsenbord) waarmee ik die la kan openen.

[sjoerdb2]

BalusC schreef op 08 October 2003 @ 19:15:
[...]
Sja, dit opent élk aanwezige CD/DVD lezer/brander .. Niet echt handig als je er meer dan 1 in je bak hebt zitten

edit:

Oh, ik zie dat het linkje van megaleo (hier iig) niet werkt ..
Een andere mogelijkheid is wineject

Ik denk dat de topic starter zelf het script zo kan aanpassen dat de cdrom speler wordt geopend die hij wil

[chucky666]

je kan ook gewoon je cd-rom speler uit de verkenner naar je buroblad slepen.
en dan rechts klikken.
is alweer 1x klikken minder

[Freee!!]

chucky666 schreef op 08 October 2003 @ 19:29:
je kan ook gewoon je cd-rom speler uit de verkenner naar je buroblad slepen.
en dan rechts klikken.
is alweer 1x klikken minder

Je bent me net voor (zo heb ik mijn systeem ingericht). Nu heb ik alleen nog een progje of iets dergelijks nodig om die lade weer te sluiten

[Verwijderd]

Voor mij is het aantal klikken ook niet zo'n probleem. Maar hier thuis maken meerdere mensen gebruik van die computer en daarvan zijn er enkele op z'n zachtst gezegd niet zo heel erg handig met een computer. Dus daarom vind ik het easy als er een snelkoppeling op het bureaublad staat met als naam "DRUK HIER OM DE CD-LADE TE OPENEN". (of iets dergelijks.)

[chucky666]

Mr. Liu schreef op 08 October 2003 @ 19:32:
[...]

Je bent me net voor (zo heb ik mijn systeem ingericht). Nu heb ik alleen nog een progje of iets dergelijks nodig om die lade weer te sluiten

rechts klikken : close tray

[Freee!!]

chucky666 schreef op 08 oktober 2003 @ 19:33:
[...]
rechts klikken : close tray

Was het maar zo eenvoudig (W2K hier)

[Verwijderd]

Gewoon dicht duwen...

[chucky666]

Mr. Liu schreef op 08 October 2003 @ 19:36:
[...]

Was het maar zo eenvoudig (W2K hier)

tegen het klepje duwen

[Freee!!]

chucky666 schreef op 08 October 2003 @ 19:38:
[...]
tegen het klepje duwen

Dat is altijd nog een optie inderdaad, maar ik wil dat ding gewoon open en dicht kunnen doen

[sjoerdb2]

je kunt mijn oude code om hem te openen en deze om em te sluiten

dus gewoon 2 snelkoppelingen in je quicklaunch lijkt me naar open.vbs en close.vbs

code:

Set wmp = CreateObject("WMPlayer.OCX.7")
Set cdroms = wmp.cdromCollection

If cdroms.Count >= 1 then

For i = 0 to cdroms.Count - 1
cdroms.Item(i).Eject
Next

For i = 0 to cdroms.Count - 1
cdroms.Item(i).Eject
Next

End If

Je kunt hiermee 1 speler tegelijk aanspreken, waar 0 = de eerste speler

code:

Set wmp = CreateObject("WMPlayer.OCX.7")
Set cdroms = wmp.cdromCollection

If cdroms.Count >= 1 then


cdroms.Item(0).Eject



cdroms.Item(0).Eject


End If

[ Voor 26% gewijzigd door sjoerdb2 op 08-10-2003 19:57 ]

[elevator]

Het gaat meer over een tooltje ondertussen dan over Windows

Windows Operated Systems --> Software Algemeen

[megaleo]

BalusC schreef op 08 October 2003 @ 19:15:
[...]

edit:

Oh, ik zie dat het linkje van megaleo (hier iig) niet werkt ..
Een andere mogelijkheid is wineject

Verwijderd schreef op 08 October 2003 @ 19:16:
[...]

Die werkt niet ("Kan de server niet vinden")...

Ow. Dat kan. Bij mij daarstraks vanavond nog wel.