Opening The CD Rom Drive

[conflix]

does anyone know how to make the software automatically open a specific cd rom drive?

if you happen to know a string of code that does this, it would be appreciated...

[Genom]

in vb 6.0 you would use API try it...

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 cmdOpenCD_Click()
Dim lRet As Long
    lRet = mciSendString("set CDAudio door open", returnstring, 127, 0)
End Sub
Private Sub cmdCloseCD_Click()
Dim lRet As Long
    lRet = mciSendString("set CDAudio door closed", returnstring, 127, 0)
End Sub

[conflix]

that one didn't work, but thanks... if anyone else has one i can try i'd appreciate it...

[Half]

It is working but you have to change every Long there to Integer and put the Returnstring in "":

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
 
'then to open:
    Dim lRet As Long
     lRet = mciSendString("set CDAudio door open", "returnstring", 127, 0)
 
'and to close:
   Dim lRet2 As Long
   lRet2 = mciSendString("set CDAudio door closed", "returnstring", 127, 0)

Shoutouts go to Genom of course.

[conflix]

that didn't work for me either... do i install that on a button or will it do it automatically?

i'm a noob... so i need some help... i never would have figured out any of that so far...

[Half]

Yes, the 'Private Declare Function etc...' is outside any procedure, then put

Dim lRet As Long
lRet = mciSendString("set CDAudio door open", "returnstring", 127, 0)

in a button click.

[Genom]

only for info

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

is a declaration of a function which shows to software that there is a function in that dll file and make it ready to use. we put them always outside an event or a function.

[conflix]

ok, i got the string in with no errors, but when i click the button... nothing happens...

[killer7k]

hi Conflix

I Need The Same Thing As You
Have You Sorted ?

Plz Post The Working One

Thanks

[RobDog888]

Here is a complete example:

Opens the CD tray and then after 2 seconds it closes too.

Option Explicit On
Option Strict On

Imports System.Runtime.InteropServices

Public Class Form1

	<DllImport("winmm.dll", CharSet:=CharSet.Auto, EntryPoint:="mciSendString")> _
	Private Shared Function mciSendString( _
		ByVal lpstrCommand As String, _
		ByVal lpstrReturnString As String, _
		ByVal uReturnLength As Integer, _
		ByVal hwndCallback As Integer) As Integer
	End Function

	Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
		Dim lRet As Long
		lRet = mciSendString("set CDAudio door open", "returnstring", 127, 0)
		System.Threading.Thread.Sleep(2000)
		lRet = mciSendString("set CDAudio door closed", "returnstring", 127, 0)
	End Sub
End Class

[stanav]

Here is a sub to open a specific CDRom tray using Window Media Player. You need to add a reference to Windows Media Player COM object to your project

Imports WMPLib

Private Sub EjectCDRom(ByVal driveName As String)
        Dim player As WMPLib.WindowsMediaPlayer = Nothing
        Try
            player = New WMPLib.WindowsMediaPlayer
            Dim count As Integer = player.cdromCollection.count
            If count > 0 Then
                For n As Integer = 0 To count - 1
                    If (player.cdromCollection.Item(n).driveSpecifier).StartsWith(driveName.ToUpper) Then
                        player.cdromCollection.Item(n).eject()
                        Exit For
                    End If
                Next
            End If
        Catch ex As Exception
            Throw ex
        Finally
            player = Nothing
        End Try
    End Sub

For example, if you want to open the tray of the E: CDRom drive, you just call

EjectCDRom("E:")

[killer7k]

Thank You Guy