Discussie: VBScript: Eject-Lade

En hoe ga je dat sluiten?

Hey Stegisoft

Met een Laptop kan je dat doorgaans niet automatisch sluiten.
(In ieder geval met mijn Laptops niet.)
Ik heb wel een Scriptje liggen,
waarmee je het zou kunnen openen & sluiten,
maar dat moet ik nog uittesten op een Desk-PC.
Als het werkt zal ik het Posten.

Angel

Als je een Desktop gebruikt,
heeft het sluiten van de CD-Lade door middel van een
knop op je Bureaublad niet echt veel zin.
Open je de CD-Lade met zo'n Bureaubladknop,
dan ben je toch genoodzaakt om een disk te plaatsen,
of weg te nemen.
Hierbij is een duwtje tegen de Lade,
of een druk op de Eject-knop een kleine moeite.
Toch plaats ik hier nog een leuk Scriptje, waarmee je:


A De lade terug kan sluiten.(Desktop)


B Mits een kleine verandering kan dienen, om de lade
te openen, en automatisch weer te sluiten na een bepaalde
tijd, die door de Gebruiker kan ingesteld worden.(Desktop)
(Is eigenlijk meer iets voor Toy-land)


Als je achter de regel: WScript.Sleep een 0 plaatst,
kan het Script dienen om de lade te sluiten,
na deze geopend te hebben met het Scriptje,
dat ik aan het begin van dit Topic geplaatst heb.(Eject-Lade)


Plaats je bijvoorbeeld het getal 10000 achter de regel:
WScript.Sleep dan zal bij aanklikken van het Pictogram,
de lade geopend worden, en na 10 Seconden,
automatisch weer sluiten.(Desktop)


1000 -> 1 sec
20000 -> 20 sec


Hier is het...

Rechtsklik op een leeg gedeelte van het bureaublad.
Wijs Nieuw aan en klik op Tekstdocument
Druk tweemaal op Enter.
Markeer en kopieer nu de volgende (Vetgedrukte) tekst,
en plak deze in het tekstdocument (Kladblok).
_______________________________________________________


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


_______________________________________________________

Klik op Bestand en vervolgens op Opslaan als...
Typ in het tekstvak achter Bestandsnaam:
de naam die je aan het bestand wilt geven en
eindig met .vbs
Bijvoorbeeld: OpenSluitLade.vbs
Klik op Opslaan
Op je bureaublad word er een bestand geplaatst,
met de gegeven naam en de extensie .vbs


Zoals het Script nu staat zal de lade na openen,
onmiddellijk weer sluiten (WScript.Sleep 0)
Op die manier kan het gebruikt worden,
om de lade terug te sluiten, nadat je ze geopend hebt,
met het script aan het begin van dit Topic (Eject-Lade)


Om het VBScript-bestand vlot te kunnen openen,
als je de inhoud wilt bewerken,
geef ik hier nog een Registertweak op,
waarmee je Open met kladblok aan het rechtsklik menu
kunt toevoegen:


Rechtsklik op een leeg gedeelte van het bureaublad.
Wijs Nieuw aan en klik op Tekstdocument
Druk tweemaal op Enter.
Markeer en kopieer nu de volgende (Vetgedrukte) tekst,
en plak deze in het tekstdocument (Kladblok).
_______________________________________________________


Windows Registry Editor Version 5.00
[HKEY_CLASSES_ROOT\*\shell\Open met Kladblok\command]
@="notepad.exe %1"


_______________________________________________________

Klik op Bestand en vervolgens op Opslaan als...
Typ in het tekstvak achter Bestandsnaam:
de naam die je aan het bestand wilt geven en
eindig met .reg
Bijvoorbeeld: Open met kladblok.reg
Klik op Opslaan
Op je bureaublad word er een bestand geplaatst,
met de gegeven naam en de extensie .reg
Klik op het bestand en in het Popup venstertje op Ja
De inhoud van het bestand,
word nu aan het Register toegevoegd.


Angel

Ik heb het getest en beiden cdrom en dvdrom gingen open.
Klik je op sluiten dan gaan ook beiden dicht.

Wat vindt je van deze:

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

Hey Stegisoft

Ik zal dat morgen eens uittesten op de Desktop.
Steek maar al watjes in je oren, want de knal zal verschrikkelijk zijn.

Angel

Zelfs met heel dikke watten gaat het voor mij nog knallen hoor

Da's dan een voorproefje van het vuurwerk voor nieuwjaar.

Heb het uitgetest.
8 op de schaal van Richter.