利用vb建立鼠标键盘操作回放

《利用vb建立鼠标键盘操作回放》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、利用VB建立鼠标键盘操作回放很多的教学软件或系统监视软件可以自动记录回放用户的输入文字或点击按钮等操作操作，这个功能的实现是使用了Windows的Hook函数。本文介绍如何通过使用VB来实现鼠标键盘操作的纪录和回放。Windows提供API函数SetwindowsHookEx来建立一个Hook，通过这个函数可以将一个程序添加到Hook链中监视Windows消息，函数语法为：PublicDeclareFunctionSetWindowsHookExLib"user32"_Alias"SetWindo

2、wsHookExA"_(ByValidHookAsLong,_ByVallpfnAsLong,_ByValhmodAsLong,_ByValdwThreadIdAsLong)AsLong其中参数idHook指定建立的监视函数类型。通过WindowsMSDN帮助可以看到，SetwindowsHookEx函数提供15种不同的消息监视类型，在这里我们将使用WH_JOURNALRECORD和WH_JOURNALPLAYBACK来监视键盘和鼠标操作。参数lpfn指定消息函数，在相应的消息产生后，系统会调用该

3、函数并将消息值传递给该函数供处理。函数的一般形式为：Hookproc(code:Integer;wparam:WPARAM;lparam:LPARAM):LRESULTstdcall;其中code为系统指示标记，wParam和lParam为附加参数，根据不同的消息监视类型而不同。只要在程序中建立这样一个函数再通过SetwindowsHookEx函数将它加入到消息监视链中就可以处理消息了。在不需要监视系统消息时需要调用提供UnHookWindowsHookEx来解除对消息的监视。WH_JOURNAL

4、RECORD和WH_JOURNALPLAYBACK类型是两种相反的Hook类型，前者获得鼠标、键盘动作消息，后者回放鼠标键盘消息。所以在程序中我们需要建立两个消息函数，一个用于纪录鼠标键盘操作并保存到一个数组中，另一个用于将保存的操作返给系统回放。下面是具体的程序实现：首先建立一个新工程，在Form1中加入三个CommandButton控件用于控制消息钩子，另外还可以增加若干Command或者TextBox控件用于检验操作回放的效果。然后在工程中增加一个模块文件，在模块中加入以下定义和代码:Opt

5、ionExplicitPublicTypeEVENTMSGmessageAsLongparamLAsLongparamHAsLongtimeAsLonghwndAsLongEndTypePublicDeclareFunctionCallNextHookExLib"user32"_(ByValhHookAsLong,_ByValncodeAsLong,_ByValwParamAsLong,_ByVallParamAsLong)AsLongPublicDeclareFunctionSetWindows

6、HookExLib"user32"_Alias"SetWindowsHookExA"_(ByValidHookAsLong,_ByVallpfnAsLong,_ByValhmodAsLong,_ByValdwThreadIdAsLong)AsLongPublicDeclareSubCopyMemoryT2HLib"kernel32"_Alias"RtlMoveMemory"_(ByValDestAsLong,_SourceAsEVENTMSG,_ByValLengthAsLong)PublicDe

7、clareSubCopyMemoryH2TLib"kernel32"_Alias"RtlMoveMemory"_(DestAsEVENTMSG,_ByValSourceAsLong,_ByValLengthAsLong)PublicDeclareFunctionUnhookWindowsHookExLib"user32"_(ByValhHookAsLong)AsLongPublicConstWH_JOURNALPLAYBACK=1PublicConstWH_JOURNALRECORD=0Publi

8、cConstHC_SYSMODALOFF=5PublicConstHC_SYSMODALON=4PublicConstHC_SKIP=2PublicConstHC_GETNEXT=1PublicConstHC_ACTION=0PublicEventArr(1000)AsEVENTMSGPublicEventLogAsLongPublicPlayLogAsLongPublichHookAsLongPublichPlayAsLongPublicrecOKAsLongPubliccanP