?? keyscan.bas
字號:
Attribute VB_Name = "KeyScan"
'獲得當(dāng)前最前窗口句柄函數(shù)
Declare Function GetForegroundWindow Lib "user32" () As Long
'熱鍵
Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Integer
'Declare Function KillTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long
'Declare Function SetTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
Global Cnt As Long, sSave As String, sOld As String, Ret As String
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -