如何使用 Dragon NaturallySpeaking 的高级脚本弹出 CD-ROM 驱动器？

Question

有没有什么方法可以用龙语高级脚本弹出光驱？

Answer 1

您可以使用 Windows Multimedia API (also known as WinMM):

' From Larry Allen
' https://www.knowbrainer.com/forums/forum/messageview.cfm?catid=12&threadid=12153&highlight_key=y&keyword1=eject
' http://archive.is/Y2ouS
' Tested with Dragon NaturallySpeaking 12.5 with Windows 7 SP1 x64 Ultimate
Declare Sub mciSendStringA Lib "winmm.dll" (ByVal lpstrCommand As String, _
ByVal lpstrReturnString As String, ByVal uReturnLength As Long, _
ByVal hWndCallback As Long)

Sub Main
Dim dummy As String
    mciSendStringA "Set CDAudio Door Open", dummy, 0, 0
End Sub

source (mirror)

如何使用 Dragon NaturallySpeaking 的高级脚本弹出 CD-ROM 驱动器？

How can I eject the CD-ROM drive with Dragon NaturallySpeaking's advanced scripting?

windows

disk

naturallyspeaking

cd-rom