SPY++ 结合Delphi7.0简单应用02010107-04源码 _游戏辅助

当前位置：首页 > 程序设计 > Delphi程序设计 > 游戏辅助 > 详细内容

SPY++ 结合Delphi7.0简单应用02010107-04源码

作者:admin 发布时间：2009/12/21 阅读次数：5540 字体大小: 【小】【中】【大】

教学课题：SPY++ 结合Delphi7.0利用API函数mouse_event实现模拟鼠标按下数字键
教学目标：用Delphi7.0编程坏境，以计算器为例模拟鼠标输入QQ号：854487915
教学步骤：认识API函数：Sleep，用于延时。无返回值;参数类型：整数型(Integer)，延时的时间间隔。在Windows SDK中的函数原型：
VOID Sleep(

DWORD dwMilliseconds // sleep time in milliseconds 以毫秒为单位的时间间隔
);

教学源码：

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
lb1: TLabel;
edt1: TEdit;
btn1: TButton;
lb2: TLabel;
procedure btn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
var
ck_hwnd:HWND;
ck_R:TRect;
begin
ck_hwnd:=FindWindow('SciCalc','计算器');
edt1.Text := IntToHex(ck_hwnd,8);
GetWindowRect(ck_hwnd,ck_R);
lb2.Caption := IntToStr(ck_r.Left)+','+ IntToStr(ck_R.Top)+'/'+
IntToStr(ck_R.Right)+ ','+ IntToStr(ck_R.Bottom );
//实现按下数字键8
SetCursorPos(350+ ck_R.Left ,150+ ck_R.Top ) ;
mouse_event(MOUSEEVENTF_LEFTDOWN,350+ ck_R.Left,150+ ck_R.Top,0,0);
Sleep(100);
mouse_event(MOUSEEVENTF_LEFTUP,350+ ck_R.Left,150+ ck_R.Top,0,0);

//实现按下数字键5
SetCursorPos(350+ ck_R.Left ,180+ ck_R.Top ) ;
mouse_event(MOUSEEVENTF_LEFTDOWN,350+ ck_R.Left,180+ ck_R.Top,0,0);
Sleep(100);
mouse_event(MOUSEEVENTF_LEFTUP,350+ ck_R.Left,180+ ck_R.Top,0,0);

//实现按下数字键4
SetCursorPos(310+ ck_R.Left ,180+ ck_R.Top ) ;
mouse_event(MOUSEEVENTF_LEFTDOWN,310+ ck_R.Left,180+ ck_R.Top,0,0);
Sleep(100);
mouse_event(MOUSEEVENTF_LEFTUP,310+ ck_R.Left,180+ ck_R.Top,0,0);

//实现按下数字键4
SetCursorPos(310+ ck_R.Left ,180+ ck_R.Top ) ;
mouse_event(MOUSEEVENTF_LEFTDOWN,310+ ck_R.Left,180+ ck_R.Top,0,0);
Sleep(100);
mouse_event(MOUSEEVENTF_LEFTUP,310+ ck_R.Left,180+ ck_R.Top,0,0);

//实现按下数字键8
SetCursorPos(350+ ck_R.Left ,150+ ck_R.Top ) ;
mouse_event(MOUSEEVENTF_LEFTDOWN,350+ ck_R.Left,150+ ck_R.Top,0,0);
Sleep(100);
mouse_event(MOUSEEVENTF_LEFTUP,350+ ck_R.Left,150+ ck_R.Top,0,0);

//实现按下数字键7
SetCursorPos(310+ ck_R.Left ,150+ ck_R.Top ) ;
mouse_event(MOUSEEVENTF_LEFTDOWN,310+ ck_R.Left,150+ ck_R.Top,0,0);
Sleep(100);
mouse_event(MOUSEEVENTF_LEFTUP,310+ ck_R.Left,150+ ck_R.Top,0,0);
end;

end.

来源：潇潇的编程网站 http://www.wgbcw.cn

上一篇：SPY++ 结合Delphi7.0简单应用02010107-03源码下一篇：SPY++ 结合Delphi7.0简单应用02010107-05源码

我要评论