Code Snippets

Visual Basic Source Code

Welcome to Dream.In.Code
	Become a VB Expert! Join 149,025 VB Programmers for FREE! Get instant access to thousands of VB experts, tutorials, code snippets, and more! There are 2,086 people online right now. Registration is fast and FREE... Join Now! Chat LIVE With a VB Expert

Submitted By: born2c0de

Actions:

Rating:

Views: 16,893

Last Modified: July 1, 2008

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
Function CDDriveOperation(ByVal Command As String, ByVal hWnd As Long) As String
Dim Buff As String
Dim dwR As Long
Buff = Space$(100) ' Create a buffer
dwR = mciSendString(Command, ByVal Buff, Len(Buff), hWnd)
CDDriveOperation = Buff
End Function
'Call this Sub to Close the CD Door
Private Sub CloseCDDoor()
Dim ret As String
ret = CDDriveOperation("set cdaudio door closed", 0)
End Sub
' Call this Sub to Open the CD Door
Private Sub OpenCDDoor()
Dim ret As String
ret = CDDriveOperation("set cdaudio door open", 0)
End Sub

Comments
carissamae 2008-02-14 00:57:25
can u pls ellaborate plsss
ronzam2002 2008-07-01 20:09:09
Can you give us an instuction how to use your program..!
born2c0de 2008-07-01 23:34:47
I guess it was a bit difficult to grasp and so I have simplified the code. All you have to do now is call CloseCDDoor() or OpenCDDoor() to close and open the CD drive door respectively.
ronzam2002 2008-09-06 02:39:43
What are tools did you use?