Breadcrumbs

[Codex]

Hello

This tutorial will tell you how to open and close CD Drive with a simple code.

Ok, so under public class <form name> add this code:

Code: Select all

Private setTrayStatus As Long

    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

And then in your button click event or what ever you are using, add this to the click event:

Code: Select all

        'use this code to open the tray
        setTrayStatus = mciSendString("Set CDAudio Door Open", Nothing, 0, 0)

        'use this code to close the tray
        setTrayStatus = mciSendString("Set CDAudio Door Closed", Nothing, 0, 0)

My laptop doesn't close the CD Drive so i don't know if the close code works... i have to close the drive manually...

The project includes some images that i got from the internet
Project Download Link:

Open CD Drive.rar

Codexvid

[zachman61]

why not upload it here?
and thanks

[Lewis]

Thats a nice little tip Thanks for this!

[Codex]

@Zachman61

Sure i will upload it here, if that makes any difference.

codexvid

[zachman61]

well i just get to much spyware from megaupload and sites like it

[XTechVB]

Thanks dude

[Codex]

thanks on the comments, glad u liked it.

@Zachman61 - then i will try to upload everything here.

[Lewis]

Zachman i doubt none of our users send spyware

[elitemusic99]

nice code, but the closing code i think is impossible D:

[Noob.exe]

I once made that kind of program on my previous computer (win7) and both opening AND closing worked...