UC知道求，这段VB程序什么意思？
来源：百度知道 编辑：UC知道 时间：2024/05/16 06:33:05
声明
Private Declare Function mciSendString Lib "winmm.dll" Alias "micSendStringA" (ByVal inpstrCommand As String, inpstrRetnrnstring As String, ByVal uReturnLength As Long, ByVal bwndCallback As Long) As Long
代码
Sub openCDdoor()
mciSendString "Set CDAudio Door Open Wait", O&, 0&, 0&
End Sub
Sub closeCDdoor()
mciSendString "Set CDAudio Door close Wait", O&, 0&, 0&
End Sub
Private Declare Function mciSendString Lib "winmm.dll" Alias "micSendStringA" (ByVal inpstrCommand As String, inpstrRetnrnstring As String, ByVal uReturnLength As Long, ByVal bwndCallback As Long) As Long
代码
Sub openCDdoor()
mciSendString "Set CDAudio Door Open Wait", O&, 0&, 0&
End Sub
Sub closeCDdoor()
mciSendString "Set CDAudio Door close Wait", O&, 0&, 0&
End Sub
这个程序时调用了用来播放多媒体文件的API指令mciSendString，实现了两个功能函数：打开光驱门和关闭光驱门。
mciSendString是用来播放多媒体文件的API函数指令，该函数有四个参数：
第一个参数：要发送的命令字符串。字符串结构是:[命令][设备别名][命令参数].
第二个参数：返回信息的缓冲区,为一指定了大小的字符串变量.
第三个参数：缓冲区的大小,就是字符变量的长度.
第四个参数：回调方式，一般设为零
返回值：函数执行成功返回零，否则返回错误代码
开关光驱的用法就是：
mciSendString "set cdaudio door open", "", 0, 0 '打开
mciSendString "set cdaudio door close", "", 0, 0 '关闭