各位好，能帮我一下吗？我好着急啊！

Question

你好，我在VB下面做了一个窗口，能自动打开光驱，但我再点击却不能合上，我搞了几个小时，请指教，本人不胜感激！（请给我写源代码）

Answer 1

你搜索一下光驱，很多文章
http://expert.csdn.net/Expert/topic/1402/1402821.xml?temp=.7308313
http://expert.csdn.net/Expert/topic/1475/1475655.xml?temp=.1421167

Answer 2

Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As LongDim lngReturn As Long
Dim strReturn As LongPrivate Sub Command2_Click()
    lngReturn = mciSendString("set CDAudio door closed", strReturn, 127, 0) '关闭光驱
End Sub