使用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 。
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 。