看似简单代码,谁能指点一下(200分)

dok001 · 2003-10-26

不少资料介绍有鼠标记录回放的例子,代码看似简单,功能强大,而且可用在后台,部分取代键盘钩子的dll.谁能指点一下:   很多的教学软件或系统监视软件可以自动记录回放用户的输入文字或点击按钮等操作操作，这个功能的实现是使用 >了Windows的Hook函数。 >  Windows提供API函数SetwindowsHookEx来建立一个Hook，通过这个函数可以将一个程序添加到Hook链中监视Windows消息，函数语法为： >  SetWindowsHookEx(idHook: Integer; lpfn: TFNHookProc; hmod: HINST; dwThreadId: DWORD) >  其中参数idHook指定建立的监视函数类型。通过Windows MSDN帮助可以看到，SetwindowsHookEx函数提供15种不同 >的消息监视类型，在这里我们将使用WH_JOURNALRECORD和WH_JOURNALPLAYBACK来监视键盘和鼠标操作。参数lpfn指定消 >息函数，在相应的消息产生后，系统会调用该函数并将消息值传递给该函数供处理。函数的一般形式为： >  Hookproc (code: Integer; wparam: WPARAM; lparam: LPARAM): LRESULT stdcall; >  其中code为系统指示标记，wParam和lParam为附加参数，根据不同的消息监视类型而不同。只要在程序中建立这样 >一个函数再通过SetwindowsHookEx函数将它加入到消息监视链中就可以处理消息了。 >  在不需要监视系统消息时需要调用提供UnHookWindowsHookEx来解除对消息的监视。 >  WH_JOURNALRECORD和WH_JOURNALPLAYBACK类型是两种相反的Hook类型，前者获得鼠标、键盘动作消息，后者回放鼠 >标键盘消息。所以在程序中我们需要建立两个消息函数，一个用于纪录鼠标键盘操作并保存到一个数组中，另一个用于 >将保存的操作返给系统回放。 >  下面来建立程序，在Delphi中建立一个工程，在Form1上添加3个按钮用于程序操作。另外再添加一个按钮控件和一 >个Edit控件用于验证操作。 >  下面是Form1的全部代码 >unit Unit1; >interface >uses >  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, >  StdCtrls; >type >  TForm1 = class(TForm) >  Button1: TButton; >  Button2: TButton; >  Button3: TButton; >  Edit1: TEdit; >  Button4: TButton; >  procedure FormCreate(Sender: TObject); >  procedure Button1Click(Sender: TObject); >  procedure Button2Click(Sender: TObject); >  procedure Button3Click(Sender: TObject); >  private >  { Private declarations } >  public >  { Public declarations } >  end; >var >  Form1: TForm1; >  EventArr:array[0..1000]of EVENTMSG; >  EventLog:Integer; >  PlayLog:Integer; >  hHook,hPlay:Integer; >  recOK:Integer; >  canPlay:Integer; >  bDelay:Bool; >implementation >{$R *.DFM} >Function PlayProc(iCode:Integer;wParam:wParam;lParam:lParam):LRESULT;stdcall; >begin >  canPlay:=1; >  Result:=0; >  if iCode < 0 then //必须将消息传递到消息链的下一个接受单元 >  Result := CallNextHookEx(hPlay,iCode,wParam,lParam) >  else if iCode = HC_SYSMODALON then >  canPlay:=0 >  else if iCode = HC_SYSMODALOFF then >  canPlay:=1 >  else if ((canPlay =1 )and(iCode=HC_GETNEXT)) then begin >  if bDelay then begin >  bDelay:=False; >  Result:=50; >  end; >  pEventMSG(lParam)^:=EventArr[PlayLog]; >  end >  else if ((canPlay = 1)and(iCode = HC_SKIP))then begin >  bDelay := True; >  PlayLog:=PlayLog+1; >  end; >  if PlayLog>=EventLog then begin >  UNHookWindowsHookEx(hPlay); >  end; >end; >function HookProc(iCode:Integer;wParam:wParam;lParam:lParam):LRESULT;stdcall; >begin >  recOK:=1; >  Result:=0; >  if iCode < 0 then >  Result := CallNextHookEx(hHook,iCode,wParam,lParam) >  else if iCode = HC_SYSMODALON then >  recOK:=0 >  else if iCode = HC_SYSMODALOFF then >  recOK:=1 >  else if ((recOK>0) and (iCode = HC_ACTION)) then begin >  EventArr[EventLog]:=pEventMSG(lParam)^; >  EventLog:=EventLog+1; >  if EventLog>=1000 then begin >  UnHookWindowsHookEx(hHook); >  end; >  end; >end; >procedure TForm1.FormCreate(Sender: TObject); >begin >  Button1.Caption:='纪录'; >  Button2.Caption:='停止'; >  Button3.Caption:='回放'; >  Button4.Caption:='范例'; >  Button2.Enabled:=False; >  Button3.Enabled:=False; >end; >procedure TForm1.Button1Click(Sender: TObject); >begin >  EventLog:=0; >  //建立键盘鼠标操作消息纪录链 >  hHook:=SetwindowsHookEx(WH_JOURNALRECORD,HookProc,HInstance,0); >  Button2.Enabled:=True; >  Button1.Enabled:=False; >end; >procedure TForm1.Button2Click(Sender: TObject); >begin   UnHookWindowsHookEx(hHook); >  hHook:=0; >  Button1.Enabled:=True; >  Button2.Enabled:=False; >  Button3.Enabled:=True; >end; >procedure TForm1.Button3Click(Sender: TObject); >begin >  PlayLog:=0; >  //建立键盘鼠标操作消息纪录回放链 >  hPlay:=SetwindowsHookEx(WH_JOURNALPLAYBACK,PlayProc, >  HInstance,0); >  Button3.Enabled:=False; >end; >end. >  代码添加完毕后，运行程序，点击“纪录”按钮开始纪录操作，这时你可以在文本控件中输入一些文字或者点击 >“范例”按钮，然后点击“停止”按钮停止纪录，再点击“回放”按钮就可以讲先前所做的操作回放。 >  在上面的程序中，HookProc是纪录操作的消息函数，每当有鼠标键盘消息发生时，系统都会调用该函数，消息信 >息就保存在地址lParam中，我们可以讲消息保存在一个数组中。PlayProc是消息回放函数，当系统可以执行消息回放 >时调用该函数，程序就将先前纪录的消息值返回到lParam指向的区域中，系统就会执行该消息，从而实现了消息回放。 如果我现在只想知道键盘动了没有.例子中"程序中我们需要建立两个消息函数，一个用于纪录鼠标键盘操作并保存到一个数组中"...现在能不能将保存在数组中的值利用一下,判别键盘动了没有.如将每一个取值和上一次取值比较,相同(键盘静滞)则返回一个变量值0,不同(有操作)返回1,不是也能达到键盘钩子dll的效果,不过怎么改,我的水平太差,老是出错,请指点!!

wenyue · 2003-10-26

[in] Pointer to the hook procedure. If the dwThreadId parameter is zero or specifies the identifier of a thread created by a different process, the lpfn parameter must point to a hook procedure in a dynamic-link library (DLL). Otherwise, lpfn can point to a hook procedure in the code associated with the current process. 你的HOOK的回调函数必需放在你自己编写的动态库里 hMod [in] Handle to the DLL containing the hook procedure pointed to by the lpfn parameter. The hMod parameter must be set to NULL if the dwThreadId parameter specifies a thread created by the current process and if the hook procedure is within the code associated with the current process. hMod为DLL的句柄

dok001 · 2003-10-26

好象问题接近解决,不过我的英文较差. 问一句,不编dll行不行!人家原代码就是不用编dll直接实现的!

wenyue · 2003-10-26

按照英文的原意，不编写DLL可以，但是只能HOOK住本进程的线程（最后一个参数不能为0，必需为从属本进程的线程ID），并且倒数第二个参数也必需设置为0

幕后黑手 · 2003-10-26

你这个只是初级的！！！

Netsoft · 2003-10-27

楼主你的问题恐怕无法实现， 这个钩子不监视键盘消息~~~ 呵呵~~~~~~~~~~~~~~

weiwei81123 · 2003-12-17

不编Dll可以的，这个钩子比较特殊。判断键盘是否动作也是可以做到的， 你是不是处理EVENTMSG做得不对？

yyii_yyii · 2003-12-17

我写了一个小例子，希望对你有帮助。 #include "windows.h" //--------------------------------------------------------------------------- // 函数声明 //--------------------------------------------------------------------------- BOOL CALLBACK LibMain(HANDLE, DWORD, LPVOID); //此函数也可以不要，仅用于获得调用窗口句柄和自定义消息 extern "C" __declspec(dllexport) int __stdcall InitHooksDll(HWND, UINT); //安装、卸载 extern "C" __declspec(dllexport) int InstallHooks(int, BOOL); LRESULT CALLBACK JournalRecordProc  (int, WPARAM, LPARAM); LRESULT CALLBACK JournalPlaybackProc(int, WPARAM, LPARAM); //--------------------------------------------------------------------------- // 全局量 //--------------------------------------------------------------------------- HINSTANCE hInstance        = 0; HHOOK     hJournalRecord   = 0; HHOOK     hJournalPlayback = 0; //记录开始时间 DWORD     dwRecordBeginTime; //数据保存在内存中 typedef struct tag_EventNode{   EVENTMSG             Event;   struct tag_EventNode *lpNextEvent; }EventNode; EventNode *lpEventHead    = 0; EventNode *lpEventTail    = 0; EventNode *lpCurrentEvent = 0; // 共享数据 #pragma data_seg("SHARDATA")   static HWND hWndApplication = 0;   static UINT iCustomMsg; #pragma data_seg() //--------------------------------------------------------------------------- // 库入口 //--------------------------------------------------------------------------- BOOL CALLBACK DllMain(HINSTANCE hModule, DWORD dwReason, LPVOID lpReserved) {   hInstance = hModule;   return 1; } int __stdcall InitHooksDll(HWND hWnd, UINT iMsg) {   hWndApplication = hWnd;   iCustomMsg      = iMsg;   return 1; } int InstallHooks(int iHookIndex, BOOL fInstall) {   BOOL fRes;     if (fInstall)   {     switch (iHookIndex)     {     case WH_JOURNALRECORD:   //0       if (!hJournalRecord)       {         hJournalRecord = SetWindowsHookEx(iHookIndex, JournalRecordProc, hInstance, 0);         return hJournalRecord != 0;       }     case WH_JOURNALPLAYBACK: //1       if (!hJournalPlayback)       {         hJournalPlayback = SetWindowsHookEx(iHookIndex, JournalPlaybackProc, hInstance, 0);         return hJournalPlayback != 0;       }     }   }   else   {     switch (iHookIndex)     {     case WH_JOURNALRECORD:       fRes =  UnhookWindowsHookEx(hJournalRecord);       SendMessage(hWndApplication, iCustomMsg, 0, (LPARAM)"");       hJournalRecord = 0;       return fRes;     case WH_JOURNALPLAYBACK:       fRes =  UnhookWindowsHookEx(hJournalPlayback);       SendMessage(hWndApplication, iCustomMsg, (WPARAM)"", 0);       hJournalPlayback = 0;       return fRes;     }   }   return 0; } LRESULT CALLBACK JournalRecordProc(int iCode, WPARAM wParam, LPARAM lParam) {   EventNode  *lpEventNode;   LPEVENTMSG lpEvent;   if (iCode >= 0)   {     lpEvent = (LPEVENTMSG)lParam;     if (hJournalPlayback)     {       SendMessage(hWndApplication, iCustomMsg, 0, (LPARAM)"失败：正在重演中");       return 0;     }     if ((lpEventNode = (EventNode *)malloc(sizeof(EventNode))) == 0)     {       //内存溢出，卸载记录Hook       InstallHooks(WH_JOURNALRECORD, 0);       SendMessage(hWndApplication, iCustomMsg, 0, (LPARAM)"失败：内存溢出");     }     if (lpEventTail == 0)     {       dwRecordBeginTime = (DWORD)GetTickCount();       lpEventHead = lpEventNode;       SendMessage(hWndApplication, iCustomMsg, 0, (LPARAM)"成功：记录开始");     }     else     {       lpEventTail->lpNextEvent = lpEventNode;       SendMessage(hWndApplication, iCustomMsg, 0, (LPARAM)"成功：记录中......");     }     lpEventTail = lpEventNode;     lpEventTail->lpNextEvent = 0;     lpEventTail->Event.message = lpEvent->message;     lpEventTail->Event.paramL  = lpEvent->paramL;     lpEventTail->Event.paramH  = lpEvent->paramH;     lpEventTail->Event.time    = lpEvent->time;     lpEventTail->Event.hwnd    = lpEvent->hwnd;   }//if (iCode > 0)   return CallNextHookEx(hJournalRecord, iCode, wParam, lParam); } LRESULT CALLBACK JournalPlaybackProc(int iCode, WPARAM wParam, LPARAM lParam) {   static DWORD dwEventTimeInterval;   static long  lRes;   LPEVENTMSG   lpEvent;     if (iCode >= 0)   {     if (lpEventHead == 0 || hJournalRecord)     {       //无记录       InstallHooks(WH_JOURNALPLAYBACK, 0);       if (lpEventHead == 0)       {         SendMessage(hWndApplication, iCustomMsg, (WPARAM)"失败：无记录数据", 0);       }       if (hJournalRecord)       {         SendMessage(hWndApplication, iCustomMsg, (WPARAM)"失败：正在记录中", 0);       }       return CallNextHookEx(hJournalPlayback, iCode, wParam, lParam);     }     if (lpCurrentEvent == 0)     {       lpCurrentEvent = lpEventHead;       lpEventTail = 0;       dwEventTimeInterval = GetTickCount() - dwRecordBeginTime;       SendMessage(hWndApplication, iCustomMsg, (WPARAM)"成功：重演开始", 0);     }     if (iCode == HC_SKIP)//准备下个事件     {       if (lpCurrentEvent->lpNextEvent == 0)       {         free(lpEventHead);         lpEventHead = lpCurrentEvent = 0;         InstallHooks(WH_JOURNALPLAYBACK, 0);         SendMessage(hWndApplication, iCustomMsg, (WPARAM)"成功：重演结束", 0);       }       else       {         lpCurrentEvent = lpCurrentEvent->lpNextEvent;         free(lpEventHead);         lpEventHead = lpCurrentEvent;         SendMessage(hWndApplication, iCustomMsg, (WPARAM)"成功：准备好数据", 0);       }           }//if (iCode == HC_SKIP)     else if (iCode == HC_GETNEXT)     {       lpEvent = (LPEVENTMSG)lParam;       lpEvent->message = lpCurrentEvent->Event.message;       lpEvent->paramL  = lpCurrentEvent->Event.paramL;       lpEvent->paramH  = lpCurrentEvent->Event.paramH;       lpEvent->time    = lpCurrentEvent->Event.time + dwEventTimeInterval;       lpEvent->hwnd    = lpCurrentEvent->Event.hwnd;       lRes = lpEvent->time - GetTickCount();       if (lRes < 0L)       {         lRes = 0L;         lpEvent->time = GetTickCount();       }       SendMessage(hWndApplication, iCustomMsg, (WPARAM)"成功：重演中......", 0);       return (DWORD)lRes;     }   }//if (iCode > 0)   return CallNextHookEx(hJournalPlayback, iCode, wParam, lParam); }

刘麻子 · 2004-03-03

只有按键可以不用dll,其他不行,回放的代码我也有,一起研究?

看似简单代码,谁能指点一下(200分)

dok001

Unregistered / Unconfirmed

wenyue

Unregistered / Unconfirmed

dok001

Unregistered / Unconfirmed

wenyue

Unregistered / Unconfirmed

幕后黑手

Unregistered / Unconfirmed

Netsoft

Unregistered / Unconfirmed

weiwei81123

Unregistered / Unconfirmed

yyii_yyii

Unregistered / Unconfirmed

刘麻子

Unregistered / Unconfirmed

Similar threads