写一个简单的程序可以让光驱弹进弹出，要怎么写？在线等。

[hzh_wen_x]

谢谢大侠们了。

[hzh_wen_x]

用VB.net

[saucer]

http://www.vb-helper.com/howto_open_cd_drive.html

http://www.developerfusion.com/show/672/

[happyfamily]

帮你up

[hzh_wen_x]

我试了没用啊，怎么可以让它自动弹进弹出呢

[兔子-顾问]

up

[ballnan]

打开和关闭CD-ROM
'先新建模块
Module mciAPIModule
Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" _
(ByVal lpstrCommand As String, ByVal lpstrReturnString As String, _
ByVal uReturnLength As Integer, ByVal hwndCallback As Integer) As Integer
End Module

'打开CD-ROM
Dim lRet As Long
lRet = mciSendString("set cdAudio door open", 0&, 0, 0)

'关闭CD-ROM
Dim lRet As Long
lRet = mciSendString("set cdAudio door Closed", 0&, 0, 0)
'更多请参见
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/multimed/mmcmdstr_8eyc.asp

[allanli]

API声明
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Integer, ByVal hwndCallback As Integer) As Integer

'''调用
mciSendString "set cd door open", 0, 0, 0
mciSendString "set cd door closed", 0, 0, 0