vbs help

bubzuru · Post by **bubzuru** » 15 May 2007, 20:20

jw does any one no the vbs comand to open the cd drive

Post by **floodhound2** » 16 May 2007, 09:25

Here you go:


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

bubzuru · Post by **bubzuru** » 16 May 2007, 10:19

is there a way to do this useing a batch file

ebrizzlez · Post by **ebrizzlez** » 16 May 2007, 11:42

nope and batch isnt that great to use anyways.

bubzuru · Post by **bubzuru** » 16 May 2007, 12:47

found a way

bubzuru · Post by **bubzuru** » 16 May 2007, 12:48

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

jw is there a way to send a txt file to my msn useing vbs

ebrizzlez · Post by **ebrizzlez** » 16 May 2007, 14:16

GOD! Where do you get these batches from? I gotta know.