Disc Drive

[EchoLdrWolf316]

Is there a code that can open or close a disc drive? Batch file or other?

[computeruler]

http://www.dreamincode.net/code/snippet92.htm thats visual basic though or you could go to start my computer and right click on your cd drive and click eject

[Dias de verano]

prank? first remote shutdown, now open/close cd drive?

[EchoLdrWolf316]

not a prank, i just wanted to see if i could make a batch file (to run a program or code) to open and close my drives.

[Carbon Dudeoxide]

Why.........?

I know exactly what Dias is talking about...I've had hands-on experience...........

[qinghao]

not a prank, i just wanted to see if i could make a batch file (to run a program or code) to open and close my drives.

I have done this before.

[EchoLdrWolf316]

Why.........?

I know exactly what Dias is talking about...I've had hands-on experience...........

im not trying to play a prank on my friends, ive read past posts. im not goina make their drives open, close open, close open, close open, close open, close open, close open, close. if i wanted to do that, i'd dowload a simple program off Cnet. Im just looking for code for myself

[EchoLdrWolf316]

not a prank, i just wanted to see if i could make a batch file (to run a program or code) to open and close my drives.

I have done this before.

how? batch file, Visual Basic? or a DOS command line?

[qinghao]

Code: [Select]

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

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Select Case Button
        Case 1:
            Call CDdoor("set CDAudio door open", 0, 0, 0)
        Case 2:
            Call CDdoor("set CDAudio door closed", 0, 0, 0)
        Case 4:
            End
    End Select
End Sub
this VB code I think you know how to use it .so....

[EchoLdrWolf316]

Code: [Select]

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

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Select Case Button
        Case 1:
            Call CDdoor("set CDAudio door open", 0, 0, 0)
        Case 2:
            Call CDdoor("set CDAudio door closed", 0, 0, 0)
        Case 4:
            End
    End Select
End Sub
this VB code I think you know how to use it .so....

uhh?  save as what?

[qinghao]

 
....................
Try google

[EchoLdrWolf316]

lol,, ok

[Dias de verano]

Do you have Nero Burning ROM installed on the machine?

[EchoLdrWolf316]

Do you have Nero Burning ROM installed on the machine?

I have a CD burner

[Dias de verano]

Do you, or don't you, have a CD burning package called Nero Burning ROM?