按照这位网友提供的语句做的实例

打开关闭光驱

 

分享一个API函数，API函数有很多对我们操作系统有很大的帮助，这个是打开/关闭光驱的函数

1、新建一个模块，把下面的代码粘贴到模块中。
Declare Sub mciSendStringA Lib "winmm.dll" (ByVal lpstrCommand As String, ByVal lpstrReturnString As Any, ByVal uReturnLength As Long, ByVal hwndCallback As Long)


2.调用函数，直接调用下面的代码即可使用
'打开光驱

'mciSendStringA "Set CDAudio Door Open", 0&, 0, 0

'关闭光驱

'mciSendStringA "Set CDAudio Door Closed", 0&, 0, 0