Discussion :

[GerardJ]

Bonjour,
J'obtiens un formulaire dans un Twebbrowser et je souhaiterais que l'application remplisse les différents champs de saisie du formulaire puis le soumette. J'ai essayé sendmessage et keybd_event mais rien n'a marché. Pourtant, lorsque je la fais manuellement en utilisant le clavier ça marche, et un navigateur remplit ces champs par défaut.
Comment faire pour que l'application le fasse à ma place ? merci

[ShaiLeTroll]

Pourquoi ne pas plutôt envoyer une requête POST ou GET directement ?
Un problème de cookie qui requiert de passer par la page Web ?

Pour modifier les éléments, vous pouvez le faire par ElementID via le IHTMLDocument2

Regarde autour de GetElementById, cela te renvoi une interface vers l'éléments, tu as théorique un IHTMLElement que tu peux caster IHTMLInputElement (voir MSHTML.hpp)
Si la Propriété Type est égale à "button", tu peux invoquer la méthode "click"
En Delphi, cela se fait automatiquement avec le LateBiding des OleVariant
En C++Builder, je suppose que OleFunction devrait permettre d'y parvenir

Click correspond au OnClick du JavaScript
Sinon, il faut récupérer la propriété Form qui est un IHTMLFormElement qui possède une méthode submit !

[GerardJ]

Merci de ton aide. J'ai bien pensé au Post mais je n'arrive pas à voir ce qu'il y a dans le corps de la réponse qui a été redirigée vers un autre site. Et je suppose qu'il y a un cookie... C'est ma banque...
Je ne trouve pas GetElementByID mais je vais tourner autour de IHTMLElement pour voir si je trouve quelque chose..

[GerardJ]

j'ai trouvé GetElementByID dans HTMLDocument3 mais même là Delphi ne l'accepte pas...

[ShaiLeTroll]

Là faudrait un peu de code tout de même
Que veut dire "Accepte pas" ?

Tu devrais commencer par une page plus simple genre Google et son champ de recherche, je ne l'ai pas en Delphi mais en C++Builder, en 2011 c'était fonctionnel pour le clic

code en C++Builder qui fonctionne avec Google si l'on test "submit" cela affiche "Recherche Google" puis "J'ai de la chance" pour confirmer le Click

Code c++ :

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
 
{
  Variant OleDocument = CppWebBrowser->OleObject.OlePropertyGet("Document");
  if (((IDispatch *)OleDocument) != NULL)
  {
    Variant DocItemCollection = OleDocument.OlePropertyGet("All");
    int ItemCount = DocItemCollection.OlePropertyGet("length");
    for (int i = 0; i < ItemCount; i++)
    {
      Variant DocItem = DocItemCollection.OleFunction("item", i, i);
      if (((IDispatch *)DocItem) != NULL)
      {
        IHTMLElement *DocElement = NULL;
        if (((IDispatch *)DocItem)->QueryInterface(Mshtml::IID_IHTMLElement, (void**)&DocElement) == NO_ERROR)
        {
          OleVariant ElementType;
          if (DocElement->getAttribute(WideString("type"), 0, ElementType) == NO_ERROR)
          {
            if (ElementType == "submit")
            {
              OleVariant ElementValue;
              if (DocElement->getAttribute(WideString("value"), 0, ElementValue)  == NO_ERROR)
              {
                if (MessageDlg("Click sur " + ElementValue + " ?", mtConfirmation, TMsgDlgButtons() << mbYes << mbNo, 0) == mrYes)
                {
                  DocElement->click();
                }
              }
            }
          }
 
          DocElement->Release();
        }
 
      }
 
    }
  }
}

Je suppose que tu as un code similaire à l'article Delphi Programming with TWebBrowser - Set the value of a named field

[GerardJ]

Merci, merci et encore merci ! c'est vraiment le document dont j'avais besoin !
Je comprends comment c'est organisé et je vois ce que je peux en faire et la première phase - se loguer - marche !