用下面的宏代码可以打开或关闭电脑中默认的光驱。方法是:
1.按Alt+F11打开VBA编辑器。
强国说学习https://www.qiangguoshuo.com
2.在代码窗口中输入下列代码:
Private Declare Sub mciSendStringA Lib "winmm.dll" (ByVal lpstrCommand As String, _ByVal lpstrReturnString As Any, ByVal uReturnLength As Long, _ByVal hwndCallback As Long)
Sub OpenDefaultCDDVD()'打开光驱mciSendStringA "Set CDAudio Door Open", 0&, 0, 0End Sub
Sub CloseDefaultCDDVD()'关闭光驱mciSendStringA "Set CDAudio Door Closed", 0&, 0, 0End Sub
转载声明:本站发布文章及版权归原作者所有,转载本站文章请注明文章来源!