unit2.pas.~15~

Quick Click Quick Click Quick Click Quick Click

unit Unit2;

interface

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

type
  TForm2 = class(TForm)
    Timer1: TTimer;
    Timer2: TTimer;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    p1x: TSpinEdit;
    p1y: TSpinEdit;
    p2x: TSpinEdit;
    p2y: TSpinEdit;
    p3x: TSpinEdit;
    p3y: TSpinEdit;
    p4x: TSpinEdit;
    p4y: TSpinEdit;
    p5x: TSpinEdit;
    p5y: TSpinEdit;
    z1x: TSpinEdit;
    z1y: TSpinEdit;
    z2x: TSpinEdit;
    z2y: TSpinEdit;
    Label8: TLabel;
    Label9: TLabel;
    procedure Timer2Timer(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.FormCreate(Sender: TObject);
begin
//

end;

procedure TForm2.Timer1Timer(Sender: TObject);
var
i,s:integer;
p:tpoint;
begin
getcursorpos(p);
form2.Caption:=IntToStr(P.x)+ ' '+IntToStr(P.y);
for i:=0 to 256 do
 begin
if GetAsyncKeyState(VK_F9)<0 then
 begin
 timer2.Enabled:=true;
 end;
if GetAsyncKeyState(VK_F12)<0 then
 begin
 timer2.Enabled:=false;
 end;

end;
end;


procedure TForm2.Timer2Timer(Sender: TObject);
var
I:byte;
begin

 for i:=0 to 5 do
begin
if i=0 then
 begin
  setcursorpos(p1x.Value,p1y.Value);
  mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
  mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);
  sleep(30);
  setcursorpos(z1x.Value,z1y.Value);
  mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
  mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);
  sleep(30);
  setcursorpos(z2x.Value,z2y.Value);
  mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
  mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);
 end;

if i=1 then
 begin
  setcursorpos(p2x.Value,p2y.Value);
  mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
  mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);
  sleep(30);
  setcursorpos(z1x.Value,z1y.Value);
  mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
  mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);
  sleep(30);
  setcursorpos(z2x.Value,z2y.Value);
  mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
  mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);
 end;

if i=2 then
 begin
  setcursorpos(p3x.Value,p3y.Value);
  mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
  mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);
  sleep(30);
  setcursorpos(z1x.Value,z1y.Value);
  mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
  mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);
  sleep(30);
  setcursorpos(z2x.Value,z2y.Value);
  mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
  mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);
 end;

if i=3 then
 begin
  setcursorpos(p4x.Value,p4y.Value);
  mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
  mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);
  sleep(30);
  setcursorpos(z1x.Value,z1y.Value);
  mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
  mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);
  sleep(30);
  setcursorpos(z2x.Value,z2y.Value);
  mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
  mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);
 end;

 if i=4 then
 begin
  setcursorpos(p5x.Value,p5y.Value);
  mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
  mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);
  sleep(30);
  setcursorpos(z1x.Value,z1y.Value);
  mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
  mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);
  sleep(30);
  setcursorpos(z2x.Value,z2y.Value);
  mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
  mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);
 end;
end;
end;

end.