Option Explicit '说明:CDdoor函数是安装WINDOWS时所自带的winmm.dll文件中包含的函数 Private Declare CDdoor Lib "winmm.dll" Alias "mciSendStringA" _ ( ByVal lpstrCommand As String,ByVal lpstrReturnString As String, _ ByVal uReturnLength As Long, ByVal hwndCallback As Long ) As Long