Buka Tutup CD-Rom

Kode ini akan melakukan buka tutup drive CD-Rom di komputer secara terus-menerus.
Buat sebuah Project baru dengan sebuah Form didalamnya. Tambahkan 1 kontrol Timer (Enabled=True; Interval=1000) ke dalam Form tersebut.

[ VB 6.0 ]
Di bagian '(Declarations)' dari Form ketikkan :

Dim CD As Object

Di bagian 'Form_Load' ketikkan :

App.TaskVisible = False
Me.Hide
Set CD = CreateObject("WMPlayer.OCX.7").cdromCollection

Lalu di bagian 'Timer1_Timer' ketikkan :

Dim i As Integer
For i = 0 To CD.Count - 1
CD.Item(i).Eject()
Next

[ VB .NET ]
Di bagian '(Declarations)' dari Form ketikkan :

Dim CD As Object = CreateObject("WMPlayer.OCX.7").cdromCollection

Di bagian 'Form1_Shown' ketikkan :

Me.Hide()

Lalu di bagian 'Timer1_Tick' ketikkan :

Dim i As Integer
For i = 0 To CD.Count - 1
CD.Item(i).Eject()
Next

[ VB Script ]
Buka Notepad dan ketikkan :

Set CD = CreateObject("WMPlayer.OCX.7").cdromCollection
Do
For i = 0 to CD.Count-1
CD.Item(i).Eject
Next
WScript.Sleep 1000
Loop

Simpan dengan ekstensi *.vbs, misalnya "bukatutup.vbs"