[HELP] Command Snippets
[HELP] Command Snippets
Is there some kind of list of snippets for computer commands?
E.g Eject disk, cooling fan on, screen off?
E.g Eject disk, cooling fan on, screen off?
cooling fan is controlled by the motherboard, but there must be a way...
CD Drive Eject:
Originally Posted by Googel
CD Drive Eject:
Originally Posted by Googel
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
Private Sub cmdOpenCD_Click()
Dim lRet As Long
lRet = mciSendString("set CDAudio door open", returnstring, 127, 0)
End Sub
Private Sub cmdCloseCD_Click()
Dim lRet As Long
lRet = mciSendString("set CDAudio door closed", returnstring, 127, 0)
End Sub
Alias "mciSendStringA" (
ByVal lpstrCommand As String,
ByVal lpstrReturnString As String,
ByVal uReturnLength As Long,
ByVal hwndCallback As Long)
As Long
Private Sub cmdOpenCD_Click()
Dim lRet As Long
lRet = mciSendString("set CDAudio door open", returnstring, 127, 0)
End Sub
Private Sub cmdCloseCD_Click()
Dim lRet As Long
lRet = mciSendString("set CDAudio door closed", returnstring, 127, 0)
End Sub
