CD Drivers Openen en dichtgaan

Auteur: Martindo - 05 april 2008 - 16:36 - Gekeurd door: Abbas - Hits: 5920 - Aantal punten: 1.00 (4 stemmen)

Laat uw CD Drivers opengaan en dichtgaan!

Martin

Code:

"VBScript" code - Bekijk de code zonder highlighting - Klap code in

                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
End If

            
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
End If
 

Download code (.txt)

Stemmen

Niet ingelogd.

Reacties

Post een reactie

Lees de reacties (10)