• Home
 · 
• Custom Controls/Forms/Menus
 · 
• Open\Close The CD-Rom And Run Computer Settings and some files

Open\Close The CD-Rom And Run Computer Settings and some files

Open\Close The CD-Rom And Run Computer Settings and some files

API Declarations


Cmd No.1 For Open the CD-Rom
Cmd No.2 For Close The Cd-Rom
Cmd No.3 For Run The control Panel
Cmd No.4 For Run the MSDOS
Cmd No.5 For Run The Win Calculator
Cmd No.6 For Run the WordPad
'Declare:
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




Rate Open\Close The CD-Rom And Run Computer Settings and some files

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

On Error Resume Next
Dim Ret As Long
Dim RetStr As String
Select Case Index
Case Is = 0: Ret = MCISendString("Set CDAudio Door Open", RetStr, 127, 0)
Case Is = 1: Ret = MCISendString("Set CDAudio Door CLosed", RetStr, 127, 0)
End Select
End Sub

Private Sub Command2_Click()
Dim Ret As Long
Dim RetStr As String
Select Case Index
Case Is = 0: Ret = MCISendString("Set CDAudio Door Closed", RetStr, 127, 0)
Case Is = 1: Ret = MCISendString("Set CDAudio Door Open", RetStr, 127, 0)
End Select

End Sub




Private Sub Command3_Click()
Shell "control", vbNormalFocus
End Sub

Private Sub Command4_Click()
Shell "system32\cmd.exe", vbNormalFocus
End Sub

Private Sub Command5_Click()
Shell "C:\WINDOWS\system32\calc.exe", vbNormalFocus
End Sub

Private Sub Command6_Click()
Shell "C:\Program Files\Windows NT\Accessories\wordpad.exe", vbNormalFocus
End Sub