农历二十七日出生的人:vb中有没有关于光驱“自动弹出”的命令

来源：百度文库编辑：高校问答时间：2024/04/20 14:55:33

新建工程，添加一个窗体、三个按钮
按钮1：打开光驱。按钮2：关闭光驱。按钮3：退出
代码如下：
Option Explicit
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

Dim state1 As Boolean

Private Sub Command1_Click()
'打开光驱
state1 = True
Call CDdoor("set CDAudio door open", 0, 0, 0)
End Sub

Private Sub Command2_Click()
'关闭光驱
state1 = False
Call CDdoor("set CDAudio door closed", 0, 0, 0)
End Sub

Private Sub Command3_Click()
End
End Sub
参考资料：《VB编程200例》实例光盘

VB中可以调用API mciSendString 来控制光驱开关.

API函数。

强人呀
我没用过呀

vb中有没有关于光驱“自动弹出”的命令 VB中怎样弹出光驱？请问XP中有什么命令可以弹出光驱吗？在Authorware 7中有没有像VB中那样的input弹出输入框啊？有没有弹出光驱的快捷键光驱中没有光盘,却经常自动弹出,过一会儿又自动关上,怎么回事? 关于vb的shell命令 windows system 中有没有一种命令可以定时自动的安全关闭某运行软件的命令？网页VB或许JS脚本中有没有网页每各几秒自动刷新的代码在命令提示符中有没有关机的命令？