Bonjour tout le monde.
Voila j'aimerais faire un petit prog en delphi parce que j'y chipote un peu!
l'idée est simple mais je suis débutant.
J'aimerais automatiser la pression d'une touche "1"du numpad en cliquant simplement sur un boutton.
Comment lui faire comprendre qu'il faut considérer cette action sur une page web active "pour faire un vote automatique sur un site de rencontre " 1 = oui je rencontre la fille , 2 non.
j'ai vu une explication du principe comme tel :
WM_KEYDOWN : c'est le premier message qu'envoie Windows à une application lorsqu'on enfonce une touche du clavier.
WM_CHAR : il est envoyé au moment ou WM_KEYDOWN est récupéré par l'application.
WM_KEYUP : c'est le dernier message qu'envoie Windows. Il est envoyé lorsque la touche est relâchée.
J'ai eu cette petit idée alors j'aimerais bidouiller le truc.
Il y a un petit compteur dans une listbox aussi pour dire que la fille numéro "..." est validée
Comment sortir de la boucle après 600fois et stopper le programme automatiquement .
Merci pour votre aide
voici un bout du code " qui ne marche pas "
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16 procedure TFprinc.btnclickClick(Sender: TObject); var i,click,nombre : integer; begin nombre:=0; while nombre <10 //au moment ou nombre "nb" refait l'instruction mais faut mettre a 600 do begin Inc(nombre);//Inc pour inrementer un nombre (nombre:=nombre+1) listbox1.Items.Add('Oui pour la fille : '+inttostr(nombre)); end; keybd_event(VK_NUMPAD1,0,0,0); //enfoncer touche 1 du numpad keybd_event(VK_NUMPAD1,0,KEYEVENTF_KEYUP,0); //relever touche1 du numpad keybd_event(31,0,0,0); //enfoncer touche 1 du numpad keybd_event(31,0,KEYEVENTF_KEYUP,0); //relever touche1 du numpad end;
Partager