maxioutils
Messages postés69Date d'inscriptionmardi 1 février 2005StatutMembreDernière intervention22 juin 2007
-
3 févr. 2006 à 00:27
maxioutils
Messages postés69Date d'inscriptionmardi 1 février 2005StatutMembreDernière intervention22 juin 2007
-
4 févr. 2006 à 11:05
Rebonjour encore avec un autre probleme ( je suis sur que c'est encore cirec qui va m'aider)
alors voila j'aimerai savoir comment on fait pour que toute les 20 minute par exemple il se passe quelque chose ? ex : que une fenetre s'ouvre.
Cirec
Messages postés3833Date d'inscriptionvendredi 23 juillet 2004StatutModérateurDernière intervention18 septembre 202250 3 févr. 2006 à 01:12
Salut,
tu as gagné une montre en bois avec un bracelet du même métal Bravo
Alors sérieusement tu mets un Timer sur ta Form et dans l'inspecteur d'objets tu mets Enabled à True tu fixes l'interval en milisecondes donc 1000 = 1 seconde et dans l'onget évènement tu double cliques sur OnTimer et là dans le code généré tu écris le code que souhaites voir s'éxécuter.
maxioutils
Messages postés69Date d'inscriptionmardi 1 février 2005StatutMembreDernière intervention22 juin 2007 3 févr. 2006 à 08:46
ok daccord mais maintenant je me retrouve avec un autre probleme c'est que en faite je voudrai que le programme click tous les xx minutes a l'endroite choisi alors voila mon code mais il dit qu'il n'y a pas assez de paramètre originaux :
procedure TForm6.Timer1Timer(Sender: TObject);
Var X, Y : Integer;
begin
If button1click = onclick then
X := StrToInt(Edit1.Text);
Y := StrToInt(Edit2.Text);
SetCursorPos(X, Y);
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);
end;
Cirec
Messages postés3833Date d'inscriptionvendredi 23 juillet 2004StatutModérateurDernière intervention18 septembre 202250 3 févr. 2006 à 12:05
Salut,
procedure TForm6.Timer1Timer(Sender: TObject);
Var X, Y : Integer;
begin If button1click = onclick then // supprime cette ligne elle est inutil et c'est elle qui déclanche le message d'erreur
X := StrToInt(Edit1.Text);
Y := StrToInt(Edit2.Text);
SetCursorPos(X, Y);
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
Sleep(250); // ajoute une temporisation d'un quart de seconde ça ne peut pas faire de mal
mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);
end;
Cirec
Messages postés3833Date d'inscriptionvendredi 23 juillet 2004StatutModérateurDernière intervention18 septembre 202250 3 févr. 2006 à 19:04
la tu positionne le curseur par SetCursorPos au dessus du bouton et par code tu clique dessus
si non tu as encore la possibilité de faire Button1.Click
maxioutils
Messages postés69Date d'inscriptionmardi 1 février 2005StatutMembreDernière intervention22 juin 2007 3 févr. 2006 à 19:07
je n'ai pas pas très bien compri mais je prefere la solution du button.click j'ai essayer mais je ne trouve pas s'il te plait pourrai tu me dire comment faire ?
maxioutils
Messages postés69Date d'inscriptionmardi 1 février 2005StatutMembreDernière intervention22 juin 2007 3 févr. 2006 à 19:26
eh ben sa ne amrche pas quand je fais sa :
procedure TForm6.Timer1Timer(Sender: TObject);
Var X, Y : Integer;
begin
Button3.click =
X := StrToInt(Edit1.Text);
Y := StrToInt(Edit2.Text);
SetCursorPos(X, Y);
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
Sleep(250); // ajoute une temporisation d'un quart de seconde ça ne peut pas faire de mal
mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);
end;
sérieusement je ne comprend pas pourquoi sa marcherai si on met button1.click seul
maxioutils
Messages postés69Date d'inscriptionmardi 1 février 2005StatutMembreDernière intervention22 juin 2007 4 févr. 2006 à 11:02
oui bon j'ai fait sa mais maintenant j'ai un autre probleme c'est que en faite je voudrai que c'est l'utilisateur qui modifie le temps entre chaque evenement alors voila ce que j'ai fait :
Procedure Tform6.Button3Click(Sender: TObject);
Var X, Y : Integer;
Z : Cardinal;
begin
Z := Timer1.Interval;
Z := StrToInt(Edit2.Text);
end;
Voila j'ai rajotuer mais le probleme c'est que dans le code meme dans evenement j'ai mis 10000 soit 10 s mais quans pendant l'execution du logiciel je change et je met 30000 soit 30 s ça ne marche pas ça fait toujours 10 s merci de m'aider
voila j'ai rajouter