cdrom.bas

简单时间程序,可以定时执行任务,显示当前时间到前台窗口

Attribute VB_Name = "CDromdoor"
Public Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
'调用时的代码如下
Sub opencdrom()
Dim Ret As Long
Dim RetStr As String
'打开光驱门
Ret = mciSendString("set CDAudio door open", RetStr, 0, 0)
End Sub
Sub closecdrom()
Dim Ret As Long
Dim RetStr As String
'关闭光驱门
Ret = mciSendString("set CDAudio door closed", RetStr, 0, 0)
End Sub