开关光驱.txt

用VB控制光驱用过豪杰超级解霸的朋友应该发现它有控制光驱开关的功能了吧

用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)企业版下调试通过。