求一个VBS打开光驱的代码

来源：百度知道 编辑：UC知道 时间：2024/05/10 14:28:31
打开.VBS,X秒后弹出光驱.
最后那个代码怎么用?用什么后缀啊?谢谢了

VBS不能用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()
Call CDdoor("set CDAudio door closed", 0, 0, 0) '用以关闭光驱门
End Sub

Private Sub Command2_Click()
Call CDdoor("set CDAudio door open", 0, 0, 0) '用以打开光驱门
End Sub

用VB软件编写的后缀为exe

不能，VBS不能用API，你可以用VB写一个DLL，再在VBS中用
lqq8716写的是vb代码，人家要vbs啊。。。