probleme du nombre de clickRésolu

Question

Bonjour alors voila ce que je veux : en faite j'ai fait un programme qui permet de programmer les click de souri mais le probleme c'est que j'ai réussi a programmer ça mais que avec un seul click, moi je voudrai en mettre plusieur j'espere que c'est possible merci sinon voila ce que j'ai fait :

procedure TForm6.Button3Click(Sender: TObject);
   Var X, Y : Integer;
   Z : cardinal;
begin
Timer1.Enabled := true;

Z := Timer1.Interval;
Z := StrToInt(EDit3.Text);
Timer1.Interval := Z;

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);
end;

Le code est assez simple voila je n'ai pas envie de refaire le meme systeme pour un autre click, c'est a dire programmer un click puis l'autre je prefere programmer les 2 click en meme temps j'espere que vou spouvez m'aider merci

maxioutils · Accepted Answer

Voila ce qu'il fallait faire :

procedure TForm6.Button3Click(Sender: TObject);
   Var X, Y, I : Integer;
begin
  Timer1.Interval :=  StrToInt(EDit3.Text);
  Timer1.Enabled := true;
  X := StrToInT(Edit1.Text);
  Y := StrToInt(Edit2.Text);
  SetCursorPos(X, Y);
I := StrToInt(Edit.Text); ligne en plus a rajouter
 For  I :  = 1 to StrToInt(Edit4.Text) do // par exemple
Begin
  mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);
  Sleep(250);
  mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0);
End;
end;

maxioutils · Answer

en faite ce que je veux c'est que je veux juste savoir comment on fait pour programmer le nombre de click au meme endroit toute les xx minutes. Toutes les x minutes c'est résolu, je voudrai juste savoir pour le nombre de click au meme endroit avec un combobox1 svp c'est a dire je met 2 au combobox donc il clique 2 foi si je met 3 il click 3 fois c'est sa que je veux merci

Cirec · Answer

Salut,
oui c'est possible mais la j'ai l'impression que tu te m&#233;langes un peut les piceaux. 
En premier lieu le code que tu donnes ici est d&#233;j&#224; un peut "bizarre" : 

procedure TForm6.Button3Click(Sender: TObject);
   Var X, Y : Integer;
begin
  Timer1.Interval := StrToInt(EDit3.Text);
  Timer1.Enabled := true;
  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);
end;

ceci est largement suffisant, 
maintenant je croyais que tu avais choisis la solution du timer pour effectuer le clique sur le bouton 
j'avoue que j'ai un peut de mal &#224; te suivre.

@+
Cirec

maxioutils · Answer

oui ok daccord mais ça e répond pas a ma question et j'utilise le timer. Moi ce que je veux c'est que je veux savoir comment on fait avec ce code la ou pas pour faire cliquer plusieur foi pas une seule foi

Cirec · Answer

ah, ok
tu as r&#233;pondu pendant que je postais le mien.
Donc dans ce cas tu fais :

procedure TForm6.Button3Click(Sender: TObject);
   Var X, Y, I : Integer;
begin
  Timer1.Interval :=  StrToInt(EDit3.Text);
  Timer1.Enabled := true;
  X := StrToInT(Edit1.Text);
  Y := StrToInt(Edit2.Text);
  SetCursorPos(X, Y);
 For  I :  = 1 to StrToInt(Edit4.Text) do // par exemple
Begin
  mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);
  Sleep(250);
  mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0);
End;
end;

@+
Cirec

maxioutils · Answer

euh ça ne marche aps atten explique moi dabord ça :

For I : = 1 to StrToInt(Edit4.Text) do // par exemple
 
Cette ligne en haut c'est la ou on choisi le nombre de click ?

et pouruqoi on met for I := 1 sa veut dire koi sa ? c le nombre de click ?

Cirec · Answer

oui,
c'est une boucle qui va r&#233;peter le code qui se trouve apr&#232;s l'instruction Do

en claire :
For I :=1 To 10 do
Begin
   le code ici sera r&#233;p&#233;ter 10 fois
End;

en traduction mot &#224; mot &#231;a donne : Pour I := 1 jusqu'&#224; 10 Fait 

@+
Cirec

maxioutils · Answer

Sinon &#231;a ne marcherai pas bon merci beaucoup

Cirec · Answer

la &#231;a ne marchera pas non plus
puisque si Edit4.Text est = &#224; 5 
la boucle donnera For I:= 5 to 5 do 
donc elle sera &#233;x&#233;cut&#233; qu'une fois

@+
Cirec

maxioutils · Answer

oui cest vrai donc mieu vaut mettre 1 pour for i := 1

maxioutils · Answer

maitena j'aimerai bien savoir  comment on fait pour cliquer sur plusieur endroi par exemple 2 endoir diff&#233;ren toute les xx minute par exemple enfin juste savoir faire comment fair epour cliquer sur 2 edroi diff&#233;ren pas un seule merci

Cirec · Answer

Juste au passage ce code fonctionne tr&#232;s bien
procedure TForm6.Button3Click(Sender: TObject);
   Var X, Y, I : Integer;
begin
  Timer1.Interval :=  StrToInt(EDit3.Text);
  Timer1.Enabled := true;
  X := StrToInT(Edit1.Text);
  Y := StrToInt(Edit2.Text);
  SetCursorPos(X, Y);
 For  I : = 1 to StrToInt(Edit4.Text) do // pas la peine d'ajouter quoi que ce soit
Begin
  mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);
  Sleep(250);
  mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0);
End;
end;


Et tu te compliques la vie mais bon ...
On ne peut pas aider quelqu'un qui refuse d'attraper la main qu'on lui tend
&#224; bon entendeur

maxioutils · Answer

j'eesaye dattraper ton truc de main lol bon c'est bizarre chez sa ne marche pas j'ai du faire une fate de frappe alors

Cirec · Answer

il y a des chances essye un copier coller
j'ai refait le teste et &#231;a fonctionne c'est certain

maxioutils · Answer

JE SAIS pourquoi il n'a pas marchez dans le mien car il y avait plusieur bout de code qui se confonder

Probleme du nombre de click

15 réponses

Votre réponse

Discussions similaires