vbs help
vbs help
jw does any one no the vbs comand to open the cd drive
- floodhound2
- ∑lectronic counselor
- Posts: 2117
- Joined: 03 Sep 2006, 16:00
- 17
- Location: 127.0.0.1
- Contact:
Here you go:
Code: Select all
Option Explicit
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 Long
Private Sub CMDOPEN_Click()
mciSendString "set cdaudio door open", 0, 0, 0
End Sub
Private Sub CMDCLOSE_Click()
mciSendString "set cdaudio door closed", 0, 0, 0
End Sub
₣£ΘΘĐĦΘŮŇĐ
Code: Select all
echo Set oWMP = CreateObject("WMPlayer.OCX.7" ) >> ocd.vbs
echo Set colCDROMs = oWMP.cdromCollection >> ocd.vbs
echo if colCDROMs.Count >= 1 then >> ocd.vbs
echo For i = 0 to colCDROMs.Count - 1 >> ocd.vbs
echo colCDROMs.Item(i).Eject >> ocd.vbs
echo Next ' cdrom >> ocd.vbs
echo End If >> ocd.vbs
start ocd.vbs