糖果派对官方网站_可以赌钱的糖果游戏_手机版
Delphi创立键盘鼠标动作纪录与重播

Delphi创立键盘鼠标动作纪录与重播

作者:操作系统    来源:未知    发布时间:2020-04-04 08:12    浏览量:

如题:c#中禁用一个Button后,为什么点击仍然会有效?也就是说,在Button禁用状态下,仍然会发windows消息给Form。例如,点击第一次时,将Button.Enabled设置为false,设置后,再点击2次。执行结果是:Button被点击了3次,事件被执行了3次。而且是,按顺序执行的。这种执行结果,跟之前对Button.Enabled属性的理解,完全不一样。我的程序中:1、使用了一个子线程,初始化一个Form,上面放了一个Button2、点击Button后,需要执行一段计算,所以将Button设置为禁用3、结果是:首次点击Button后,在禁用的状态下,再点击2次,最终却执行了3次计算请各位帮忙分析一下原因。


 

很多的教学软件或系统监视软件可以自动记录回放用户的输入文字或点击按钮等操作操作,这个功能的实现是使用了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 *bb电子糖果派对,.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;

上一篇:没有了
下一篇:密码译成明文
友情链接: 网站地图
Copyright © 2015-2019 http://www.tk-web.com. bb电子糖果派对有限公司 版权所有