Discussion :

[djnightshop]

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;

[ShaiLeTroll]

Utilise SetForegroundWindow pour passer le navigateur au 1er plan
GetWindow, FindWindow, EnumWindows ... sont différentes API Windows permettant de trouver la fenêtre
Comme les navigateurs ont souvent des onglets, cela risque de se compliquer pour afficher le bon onglet

tu peux aussi remplacer keybd_event avec un SendMessage avec le bon handle



Après la boucle Application.Terminate, le programme s'arretera

plus brutal Halt

[Andnotor]

Il faut interdire l'activation de la fiche sinon c'est elle-même qui reçoit les commandes qu'elle émet

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
type
  TFprinc = class(TForm)
  protected
    Procedure  CreateParams(var Params: TCreateParams); override;
  end;
 
procedure TFprinc.CreateParams(var Params: TCreateParams);
begin
  inherited;
  Params.ExStyle := Params.ExStyle or WS_EX_NOACTIVATE or WS_EX_TOPMOST;
end;

[djnightshop]

Ok merci je vais essayer ce soir quand je rentre...
Ce petit bout de code je dois l’intégrer ou sur Fprinc ?
Dsl j'ai bien précisé que je suis débutant ...

Cordialement.