Need Help Opening The D:\ Drive

[conflix]

this is the code i have so far... it will bring up the drive on my screen... but i want to physically open the drive... so far, this code only tells me "please insert a cd into drive d:\"

    If TextBox2.Text = "d:\" Then
            Process.Start("d:\")
        End If

i have the set up to view the contents on all my drives 1 by 1... how do i open and close the drive though?

[shakti5385]

I think you are trying to opening a CDROM using the process other wise it is working for the C:\drive

[conflix]

yeah, that's what i said... it works for all of my drives... it just won't physically open a drive... is there a way to do that?

[shakti5385]

Put the CD Inside the CDROM and check it will work and show you the file related to the CD

[RobDog888]

Something along these lines will open and close the cdrom tray.

Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" ( _
                ByVal lpszCommand As String, _
                ByVal lpszReturnString As String, _
                ByVal cchReturnLength As Long, _
                ByVal hwndCallback As Long) As Long
 
Private Sub opencd()
    mciSendString("set CDAudio door open", 0, 0, 0)
End Sub
 
Private Sub closecd()
    mciSendString("set CDAudio door closed", 0, 0, 0)
End Sub

[shakti5385]

Sir
I want to know that the above code is for the hardware part or the software part
Means that it open the CD Drive file or it open the CD Drive for putting CD in it.
Thanks

[RobDog888]

Software part where you click a button and the CDROM door will open. Then click another button and the door will close.

[RobDog888]

Code for 2003/2005 in the simplest method...

Option Explicit On
Option Strict On
 
Public Class Form1
 
    Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" ( _
                ByVal lpszCommand As String, _
                ByVal lpszReturnString As String, _
                ByVal cchReturnLength As Long, _
                ByVal hwndCallback As Long) As Long
 
    Private Sub btnClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClose.Click
        mciSendString("set CDAudio door closed", "0", 0, 0)
    End Sub
 
    Private Sub btnOpen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOpen.Click
        mciSendString("set CDAudio door open", "0", 0, 0)
    End Sub
 
End Class

[shakti5385]

Nice Code By You Thanks

[RobDog888]

Thanks.


@conflix, please dont post duplicate threads.
http://vbforums.com/showthread.php?t=453244

[conflix]

i'm not sure what i'm doing wrong... but here's what i'm getting

"Declare" is not valid as an identifier

and "mcisendstring" is not declared

i've been playing with this for hours. any help would be appreciated... lol... i feel so dumb...

[RobDog888]

Copy/Paste my code example behind a form in a new project/solution, add two buttons named appropriately and viola.

[conflix]

ok, i got it to work, but it gives me this error...

mciSendString("set CDAudio door open", "0", 0, 0)

A call to PInvoke function 'BestFriend!WindowsApplication1.Form1::mciSendString' has unbalanced the stack. This is likely because the managed PInvoke signature does not match the unmanaged target signature. Check that the calling convention and parameters of the PInvoke signature match the target unmanaged signature.

[RobDog888]

Thats a message stating that you have a different API declared then the arguments you are passing to it. Did you use what I posted or a variation of it?

ByVal lpszReturnString As String is for the "0" argument. Yours may be different.

[conflix]

i used the exact one you posted

[conflix]

the code works, but when i click the button... it gives me the error message... but the drive door does open.

[RobDog888]

In a separate new project or in your already existing project?
As I was mentioning, you may not have the same code as my posted example. You need to verify that first.

[conflix]

sorry... it's in an existing project...

i copied and pasted your code... i didn't modify anything... i hope that helps...

[RobDog888]

Where is the API (mciSendString) declaration? And is it exactly as in my code? Post your code.

[conflix]

Option Explicit On
Option Strict On


Public Class Form1

    Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" ( _
                ByVal lpszCommand As String, _
                ByVal lpszReturnString As String, _
                ByVal cchReturnLength As Long, _
                ByVal hwndCallback As Long) As Long

    Private Sub button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        mciSendString("set CDAudio door open", "0", 0, 0)

        Button3.Hide()
        TextBox2.Show()
        Button1.Show()

    End Sub

[RobDog888]

Ok, then try this.

Option Explicit On
Option Strict On
 
Imports System.Runtime.InteropServices
 
Public Class Form1
 
    <DllImport("winmm", EntryPoint:="mciSendString")> _
    Private Shared Function mciSendString( _
                <MarshalAs(UnmanagedType.LPWStr)> ByVal lpszCommand As String, _
                <MarshalAs(UnmanagedType.LPWStr)> ByVal lpszReturnString As String, _
                ByVal cchReturnLength As Integer, _
                ByVal hwndCallback As Integer) As Integer
    End Function
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        mciSendString("set CDAudio door closed", "0", 0, 0)
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        mciSendString("set CDAudio door open", "0", 0, 0)
    End Sub
 
    Private Sub button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        mciSendString("set CDAudio door open", "0", 0, 0)
        Button3.Hide()
        TextBox2.Show()
        Button1.Show()
    End Sub
 
End Class

[conflix]

lol... that doesn't give me any errors when i try it... but now the problem is... lol... the door won't open... i've been looking at the code, but have no idea why it won't open now...

[RobDog888]

If you have encountered any errors earlier then try a reboot to reset the drive. I got one before and it was resolved with a reboot.