- 最後登錄
- 2024-9-17
- 在線時間
- 37 小時
- 註冊時間
- 2009-9-18
- 閱讀權限
- 20
- 精華
- 0
- UID
- 7034376
- 帖子
- 73
- 積分
- 22 點
- 潛水值
- 8184 米
| 可以以熱鍵的方式來做- '底下在模組______________________
- Declare Function GlobalAddAtom Lib "kernel32" Alias "GlobalAddAtomA" (ByVal lpString As String) As Integer
- Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
- Declare Sub RegisterHotKey Lib "user32" (ByVal hwnd As Long, ByVal id As Long, ByVal fsModifiers As Long, ByVal vk As Long)
- Declare Sub UnregisterHotKey Lib "user32" (ByVal hwnd As Long, ByVal id As Long)
- Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
- Const WM_HOTKEY = &H312
- Public password As Integer, a As Integer, pre As Long
- Function WndProc(ByVal hwnd As Long, ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
- If uMsg = WM_HOTKEY Then
- If wParam = a Then
- n = Val(InputBox("請輸入密碼", "電腦管理防護"))
- If n = password Then ctrl.Show
- End If
- Else
- WndProc = CallWindowProc(pre, hwnd, uMsg, wParam, lParam)
- End If
- End Function
- '底下在表單_______________________
- Const GWL_WNDPROC = (-4)
- Private Sub Form_Load()
- password = 123
- Hide
- a = GlobalAddAtom("Eyny")
- RegisterHotKey hwnd, a, 0, vbKeyF11 '設F11為熱鍵
- pre = SetWindowLong(hwnd, GWL_WNDPROC, AddressOf WndProc)
- End Sub
- Private Sub Form_Unload(Cancel As Integer)
- SetWindowLong hwnd, GWL_WNDPROC, pre
- UnregisterHotKey hwnd, a
- End Sub
複製代碼 ... |
|