Mouse Tıklatma

[apachi2006]

(17-01-2022, Saat: 22:52)dvice Adlı Kullanıcıdan Alıntı:

(29-06-2021, Saat: 22:37)apachi2006 Adlı Kullanıcıdan Alıntı: Çok teşekkür ederim biraz düzenlemeyle işimi gördü.

düzenlenmiş halini rica etsem paylaşırmısınız

Kod: (Select All)

procedure soltikla;
begin
Mouse_Event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
Mouse_Event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);
end;

procedure sagtikla;
begin
Mouse_Event(MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, 0);
Mouse_Event(MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0);
end;

procedure cifttikla;
begin
soltikla;
GetDoubleClickTime;
soltikla;
end;

procedure TForm4.FormMouseActivate(Sender: TObject; Button: TMouseButton;
 Shift: TShiftState; X, Y, HitTest: Integer;
 var MouseActivate: TMouseActivate);
 var
pt:TPoint;
begin
sLabel1.Caption:='X: '+floattostr(pt.X)+', Y:'+floattostr(pt.y);
end;


procedure TForm4.sBitBtn1Click(Sender: TObject);
begin
if sBitBtn1.Caption='Tıklamayı Durdur!' then
 begin
 Timer3.Enabled:=false;
 abort
 end;
Timer2.Enabled:=false;
if VirtualTable1.RecordCount =0 then
 begin
 Application.MessageBox('Lütfen koordinat noktası tanımlayınız!','Uyarı',MB_ICONWARNING);
 abort
 end;
sBitBtn1.Caption:='Tıklamayı Durdur!';
Timer3.Enabled:=true;
end;

procedure TForm4.sBitBtn2Click(Sender: TObject);
var
getlnX,getlnY:integer;
psX,psY:String;
begin

if (ListBox1.Count>0) then

begin
getlnY:=ListBox1.Count-1;
getlnX:=ListBox1.Count-2;

psX:=ListBox1.Items[getlnX];
psY:=ListBox1.Items[getlnY];
SetCursorPos(strtoint(psX),strtoint(psY));

cifttikla;
timer3.Enabled:=true;
end
else
begin
MessageBox(0,'Nokta Seçilmedi!','Uyarı',MB_OK+MB_ICONWARNING);
end;
end;



procedure TForm4.sBitBtn4Click(Sender: TObject);
begin
timer2.Enabled:=true;
end;


Procedure TForm4.Timer1Timer(Sender: TObject);
var
p:TPoint;
begin
p:= Mouse.CursorPos;
Edit1.Text:=inttostr(p.X);
Edit2.Text:=inttostr(p.Y);
end;

procedure TForm4.Timer2Timer(Sender: TObject);
var
pt:TPoint;
begin
virtualtable1.active:=true;
pt:= Mouse.CursorPos;
if GetKeyState(VK_RBUTTON)<0 then
 begin
 VirtualTable1.Append;
 VirtualTable1px.Value:= pt.X;
 VirtualTable1py.Value:= pt.Y;
 VirtualTable1beklemesuresi.Value:=5000;
 VirtualTable1.Post;
 end;
end;


procedure TForm4.Timer3Timer(Sender: TObject);
var I:integer;
begin
for I := 0 to spintekrar.Value  do
 begin
 SetCursorPos(VirtualTable1px.Value,VirtualTable1py.Value);
 Sleep(VirtualTable1beklemesuresi.Value);
 cifttikla;
 spintekrar.Value:= spintekrar.Value-1;
 end;
Timer3.Enabled:=false;
ShowMessage('Tıklama Döngüsü Bitti!');
end;