用VB控制光驅
用過豪杰超級解霸的朋友應該發現它有控制光驅開關的功能了吧，只要鼠標一點，光驅就聽從你發出的命令（打開/關閉)，不必動手去按開關按鈕了，方便吧？其實也可以用VB編寫一個簡單的控制光驅的(打開和關閉)程序，輕輕一點就可達到目的。
在VB6中新建工程，在窗體上放置三個(Command)命令按鈕，其中Command1和Command2的Caption屬性分別是“打開光驅”和“關閉光驅”，Command3，的Caption屬性是“退出程序”。
進入編輯區鍵入：
Private Declare Function CDdoor Lib "winmm.dll" Alias "mciSendStringA"  _
(ByVal lpstrcommand As String, ByVal lpstrReturnstring As String,  _
ByVal uReturnlength As Long, ByVal hwndcallback As Long) As Long
Private Sub Command1_Click()
CDOpen = True
Call CDdoor("set CDAudio door open", 0, 0, 0)
End Sub
Private Sub Command2_Click()
CDOpen = False
Call CDdoor("set CDAudio door closed", 0, 0, 0)
End Sub
Private Sub Command3_Click()
Unload Me
End Sub
Private Sub Form_Load()
CDOpen = False
Call CDdoor("set CDAudio door closed", 0, 0, 0)
End Sub
代碼輸入完畢后，運行程序，現在只要點擊鼠標就可實現“打開光驅”和“關閉光驅”。是不是非常簡單呢？本程序在 Windows 9x/Me/2000/XP和VB(6.0)企業版下調試通過。