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

最新推荐文章于 2025-06-11 12:49:03 发布

原创最新推荐文章于 2025-06-11 12:49:03 发布 · 2.3k 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#vb #api #integer #string #function #windows

DoNet WindowsForm 开发同时被 2 个专栏收录

15 篇文章

订阅专栏

VB6.0

3 篇文章

订阅专栏

介绍使用Windows API让VB功能更出色，给出控制光驱门开关的API示例，是VB6中的例子，在DoNet中需把Long整型改为Integer，还给出开关光驱门的语法，同时指出对笔记本光驱关闭操作可能无效。

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