| CD-ROM: open, closed. |
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 Form_Load()
mciSendString "Set CDAudio Door Open Wait", 0&, 0&, 0&
End Sub
Private Sub Form_Unload(Cancel As Integer)
mciSendString "Set CDAudio Door Closed Wait", 0&, 0&, 0&
End Sub |
| Как нажать на кнопку 'Пуск'. |
Private Declare Function SendMessage& Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String)
SendMessage Me.hWnd, &H112, &HF130, vbNullString |
| Запретить нажатие Ctrl+Alt+Del |
Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long
SystemParametersInfo 97, True, vbNullString, 0 'Отключить
SystemParametersInfo 97, False, vbNullString, 0 'Включить |
| Поменять кнопки мыши |
Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long
SystemParametersInfo 33, True, vbNullString, 0 'Отключить
SystemParametersInfo 33, False, vbNullString, 0 'Включить |
|