En hoe ga je dat sluiten?
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
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
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
Laatst gewijzigd door Angel_; 30 december 2009 om 22:39
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.![]()
Favorieten/bladwijzers