Mở khay đĩa CD bằng một cú nhấp chuột
TRẦN HỮU PHƯỚC (Cà Mau)

Muốn mở khay đĩa CD có nhiều cách: nhấn nút Eject trên ổ CD, hay sử dụng các chương trình tiện ích... Có một cách khác giúp bạn mở khay đĩa CD nhanh chóng mà chẳng cần phải cài thêm chương trình vào máy. Mở Notepad lên và nhập đoạn mã sau vào.

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

Lưu tập tin này lại, đặt tên là cd.vbs và chạy nó, các khay đĩa CD sẽ lần lượt được đẩy ra (nếu máy có nhiều ổ CD).