Bonjour alors voila j'ai un code qui me permet de faire 3 click d'affiler dans des différent endroit c'est a dire si je met 3 au nombre de click que doit faire le programme, le programme va cliker dans un endroit puis dans lotre et ainsi de suite 3 fois de suite toute les 4 seconde si je met 4 dans le temps entre chaque click.
Le probleme c'est que si je met 3 au nombre de click et 4 au temps entre chaque ensemble de click, ça ne respecte pas le temps, c'est à dire que au lieu de faire toute les 4 seconde l'ensemble des click il le fait toute les 2seconde alors j'aimerai bien que vous puissiez m'aider voici le code :
procedure TForm4.Button4Click(Sender: TObject);
var
X, Y, I : Integer;
l : cardinal;
begin
l := StrToInt(Edit8.Text);
Timer1.Interval := l * 1000;
begin
For I := 1 to StrToInt(Edit7.Text) do begin
X := StrToInt(Edit1.Text);
Y := StrToInt(Edit2.Text);
SetCursorPos(X, Y);
mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);
Sleep(250);
mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0);
begin
X := StrToInt(Edit3.Text);
Y := StrToInt(Edit4.Text);
SetCursorPos(X, Y);
mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);
Sleep(250);
mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0);
end; begin
X := StrToInt(Edit5.Text);
Y := StrToInt(Edit6.Text);
SetCursorPos(X, Y);
mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);
Sleep(250);
mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0);
Sleep(2000);
Timer1.Enabled := True;
end; end; end;
end;
Je voudrai que le programme respecte le temps et que ça se fasse toute les 4 seconde merci