Bonjour, j'ai trouvé un code delphi pour activer le click sur un bouton dans une page web avec du javascript. Mais j'ai pas trouvé la même chose pour cocher une checkbox. Si quelqu'un peut m'aider . D'avance merci.

Voici la fonction pour le bouton à cliquer :

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
function ClickOnWebButton(WebBrowser : TWebBrowser ; URL,
                          ButtonID : string ) : boolean;
var
  doc         : ihtmldocument2;
  Collection  : IHTMLElementCollection;
  IDP         : IDispatch;
  i           : integer;
  InputButton : HTMLInputButtonElement ;
 
begin
  Result := False;
 
  try
 
    //showmessage('attendez la fin de chargement de la page avant de continuer');
 
    doc := (WebBrowser.document as ihtmldocument2);
 
    if Assigned(doc) then
    begin
 
      IDP := Doc.all.tags('input');
      if Assigned(IDP) then
      begin
        IDP.QueryInterface(IHTMLElementCollection, Collection);
 
        if Assigned(Collection) then
        begin
 
          for i := 1 to Collection.Get_length do
          begin
            IDP:= Collection.item(pred(i), 0);
            IDP.QueryInterface(HTMLInputButtonElement, InputButton);
 
            if Assigned(InputButton) then
            begin
 
              { CHANGEZ ICI : Il y'a 2 possibilités d'appel.
                Name fait référence à l'ID du bouton dans le code source de la page Web.
                Value, c'est sa caption. }
              if  InputButton.name  = ButtonID then {InputButton.Value = ButtonID}
              begin
                //showmessage('le bouton a été trouvé, on va cliquer dessus');
                Result := True;
                InputButton.click;
              end;
 
            end;
 
          end;
 
        end;
 
      end;
 
  end;
  finally
 
  end;
Puis on passe :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
ClickOnWebButton(webbrowser1,'url','id du bouton' );
Merci pour votre aide.