Discussion :

[lounici]

quelle est le code qui il faut parexample pour cliquer sur un botton d'un site web
je sais si j'ai comme ce code par exmaple
<input type="submit" name="send" value="Send"/>
il faut faire ce code
webbrowser1.oleobject.document.getilementbyid('send').click;
mais le problem si j'ai ce code
<input type="submit" value="Send"/>
j'ai pas un name
aide moi stp de trouvé le code qui il faut pour click sur le button par exmample

et merci....

[ShaiLeTroll]

en mettant code=html pour le html et tout simplement code pour le code Delphi dans la section Delphi

Code html :

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

<input type="submit" name="send" value="Send"/>

C'est mieux non ?

En partant de webbrowser1.oleobject.document, veille à obtenir une interface IHTMLDocument2 (opérateur as)

tu pourras utiliser la propriété All du type IHTMLElementCollection chaque Item est un IDispatch avec as tu pourras filtrer uniquement sur les IHTMLElement après, il te suffira de lire les Attributs 'type' et 'value'

[lounici]

j ai pas b1 compris
tu peut me donné le code delphi pour u n click sur le button ca marche

[ShaiLeTroll]

Cherche donc un peu, tu as la MSDN qui documente les interfaces HTML, lit là !
As-tu fait l'effort de consulter les liens fournis ?

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();
        }
 
      }
 
    }
  }
}

Mon tarif est de 400€/jour, si tu veux le code Delphi, je peux te faire un devis ?