VBScript: Eject-Lade

[Gast Angel_]

Hallo iedereen

Deze vind ik zelf een handige,

vooral interessant voor laptops.

Je kan er de CD & DVD lade van je PC mee openen.

Voor mensen die niet bekend zijn met VBScript,

geef ik de werkwijze op.

Rechtsklik op een leeg gedeelte van het bureaublad.

Kies voor Nieuw en klik op Tekstdocument.

Druk tweemaal op Enter.

Markeer en kopieer nu de volgende (Vetgedrukte) tekst,

en plak deze in het tekstdocument (Kladblok).

_______________________________________________________

Set oWMP = CreateObject("WMPlayer.OCX.7" )

Set colCDROMs = oWMP.cdromCollection

colCDROMs.Item(i).Eject

_______________________________________________________

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: Eject-Lade.vbs

Klik op Opslaan.

Op je bureaublad word er een bestand geplaatst,

met de gegeven naam en de extensie .vbs

Je kan het bestandje bijvoorbeeld,

in het Snelstart-gedeelte van je taakbalk slepen.

Nu kan je met één muisklik de lade van je PC openen.

Angel

[stegisoft]

En hoe ga je dat sluiten?

[Gast Angel_]

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

[Gast 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:santaclaus:

[Gast Angel_]

Met dit Scriptje kan je een knop maken,

waarmee het mogelijk is de lade van je PC te openen,

en ook weer te sluiten. ( Desktop )

Je hebt dus geen twee knoppen meer nodig.

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

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

_______________________________________________________

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: Open + Sluit lade.vbs

Klik op Opslaan

Om het Pictogram netjes in het snelstart gedeelte van je taakbalk te krijgen,

doe je het volgende:

Rechtsklik op het Pictogram en kies voor Knippen

Open de map Mijn documenten (In Vista: Documenten).

Rechtsklik op een leeg gedeelte van de map, en kies voor Plakken

Klik nu op het Pictogram en houd de linker muisknop ingedrukt,

terwijl je het Icoon naar het snelstart gedeelte van je taakbalk sleept.

Plaats het hier naar keuze.

Wil je een ander Pictogram gebruiken,

rechtsklik dan op het Icoon en kies voor Eigenschappen

Klik onder het tabblad Snelkoppeling op de knop Ander pictogram...

Nu kan je in de lijst op zoek gaan naar een geschikt Icoon.

Klik op de knop Bladeren... als je op zoek wilt gaan, naar nog andere Picto's.

De popup tekst van het Pictogram kan je aanpassen,

door in het rechtsklik menu voor Naam wijzigen te kiezen.

Angel

30 december 2009 aangepast door Angel_

[stegisoft]

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

[Gast Angel_]

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

[stegisoft]

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

[Gast Angel_]

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

[Gast Angel_]

Heb het uitgetest.

8 op de schaal van Richter.xD