🚀 go-pugleaf

Hi there!

(TCppBrowser control.)

On DocumentComplete event i'm trying to click one of a buttons on a web 
page. How do i do that?
Here is my code.


void __fastcall TfrmMain::myBrowserDocumentComplete(TObject *Sender, 
LPDISPATCH pDisp, Variant *URL) {
   IHTMLDocument2 *HTMLDocument = NULL;
   IHTMLInputButtonElement *btn = NULL;
   IHTMLElementCollection * el = NULL;
   LPDISPATCH pBtn = NULL;

   HRESULT hr  = 
myBrowser->Document->QueryInterface(IID_IHTMLDocument2,(LPVOID*)&HTMLDocument);
   if(hr != S_OK)
    { ShowMessage("Could Not Read Response"); return;}

   hr = HTMLDocument->get_all(&el);
    if (hr != S_OK)    {
      ShowMessage("HTMLDocument->get_links(&el) FAILED");
    }

    TVariant vAddress = "Logon", vIndex = 0;
    hr = el->item(vAddress, vIndex, &pBtn);
    if (hr != S_OK)    {
      ShowMessage("item(vAddress, vIndex, &pBtn) FAILED");
    }

    hr = pBtn->QueryInterface(IID_IHTMLInputButtonElement,(LPVOID*)&btn);
    if (hr != S_OK)    {
      ShowMessage("pBtn->QueryInterface FAILED");
    }

    // now i would like to achive something like btn->Click() to submit the 
page

}


Thahk You,

Sergey Muschin