超神之白泽:一个VB菜鸟的弱智问题

CDdoor函数是安装WINDOWS时所自带的winmm.dll文件中包含的函数，我们只须先加入如下的声明后就能引用这个API函数：

Private Declare Function CDdoor Lib "winmm.dll" Alias "mciSendStringA" _
( _
ByVal lpstrCommand As String, _ String，这是控制命令参数
ByVal lpstrReturnString As String, _ String，这是返回值
ByVal uReturnLength As Long, _ Long，返回值长度参数
ByVal hwndCallback As Long _
) As Long

引用的语法是：

Call CDdoor("set CDAudio door closed", 0, 0, 0) 用以关闭光驱门

Call CDdoor("set CDAudio door open", 0, 0, 0) 用以打开光驱门

更具体的可以参照天极(天极上有很多好的代码可以参考的，我常去的)
http://www.yesky.com/20011024/201953.shtml

自己弄去

中文编程易语言
http://www.dywt.com.cn/vbs/index.asp

控制光驱 就二行中文代码

弹开光驱（）

关闭光驱（）

绝对好用～

看来要调用API.
看看谁还记得吧..

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()
CDdoor "set CDAudio door open", 0, 0, 0
End Sub

Private Sub Command2_Click()
CDdoor "set CDAudio door closed", 0, 0, 0
End Sub