UC知道VB使笔记本光驱弹出。这里有个台式机的
来源：百度知道 编辑：UC知道 时间：2024/05/14 04:47:27
Option Explicit
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
Dim state1 As Boolean
Private Sub Form1_Click()
If state1 = True then
Call CDdoor("set CDAudio door open", 0, 0, 0)
else
state1 = False
Call CDdoor("set CDAudio door closed", 0, 0, 0)
End if
End sub
笔记本的呢？
笔记本该如何让光驱弹出呢
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
Dim state1 As Boolean
Private Sub Form1_Click()
If state1 = True then
Call CDdoor("set CDAudio door open", 0, 0, 0)
else
state1 = False
Call CDdoor("set CDAudio door closed", 0, 0, 0)
End if
End sub
笔记本的呢？
笔记本该如何让光驱弹出呢
Option Explicit
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
Dim CDOpen As Boolean
'上面这段放于最前
Private Sub Command1_Click()
On Error Resume Next
If CDOpen = False Then
Call CDdoor("set CDAudio door open", 0, 0, 0)
CDOpen = True
Command1.Caption = "点击关闭光驱"
Else
Call CDdoor("set CDAudio door closed", 0, 0, 0)
CDOpen = False
Command1.Caption = "点击打开光驱"
End If
End Sub
Private Sub Form_Load()
CDOpen = False
End Sub
一样使用