用API函数控制光驱的开关（VB6/VB.net 示例）

使用Windows API 让VB的功能更出色，现在和大家介绍一下这个控制光驱门开关的API，这是VB6中的例子，在DoNet中请把Long整型都改为Integer就可以了。
    Private Declare Function CDdoor Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

使用的语法是：Call CDdoor("set CDAudio door closed", 0, 0, 0)　　'关闭光驱门
　　　　　　　Call CDdoor("set CDAudio door open", 0, 0, 0)　　　'打开光驱门

最后说一下，使用Call CDdoor("set CDAudio door closed", 0, 0, 0)对笔记本的光驱时不起作用的，呵呵呵呵，对付笔记本光驱只能By yourself 。