监视鼠标和键盘的全局HOOK（VB源代码）.docx

一、把以下内容以纯文本格式保存为Forml.frm:

VERSION5.00

BeginVB.FormForml

Caption=Forml

ClientHeight=1335

ClientLeft

=

60

ClientTop

=

450

ClientWidth

=

4845

LinkTopic

二

Forml

ScaleHeight

=

1335

ScaleWidth=4845

StartUpPosition=3窗口缺省

BeginVB.CommandButtonbtnDelHook

Caption=Unhook

Height=1095

Left=3960

Tablndex=4

Top=120

Width=735

End

BeginVB.TextBoxtxtMsg

=

=495

Index=1

Left=120

Tablndex=3

Text=Textl

Top=720

Width=2655

End

BeginVB.TextBoxtxthwndHeight=495

Index=1

Left=2880

TabIndex=2

Text=Textl

Top=720

Width=975

End

BeginVB.TextBoxtxthwnd

Height=495

Index=0

Left=2880

TabIndex=1

Text=Textl

Top=120

Width=975

End

BeginVB.TextBoxtxtMsg

Height

Index

Left

TablndexText

Top

Width

End

=0=

495

0

120

TextI120

2655

End

AttributeVB_Name=Forml

AttributeVB_GlobalNameSpace=False

AttributeVB_Creatable=False

AttributeVB_Predeclaredld=TrueAttributeVB_Exposed=False

OptionExplicit

Form

安装钩子

PrivateSubAddHook()键盘钩子

IHook(0)=SetWindowsHookEx(WH_KEYBOARD_LL,AddressOfCallKeyHookProc,App.hnstance,0)鼠标钩子

IHook(1)=SetWindowsHookEx(WH_MOUSE_LL,AddressOfCallMouseHookProc,App.hInst