Заполнение полей на сайте

void __fastcall TForm1::FillForm(String Name, String Data){
// заполнение поля на форме. Name - имя поля в html коде. 
  TCppWebBrowser *WB=CWB;
  CComQIPtr<IHTMLDocument2, &IID_IHTMLDocument2>                  pDoc;
  CComQIPtr<IHTMLElementCollection, &IID_IHTMLElementCollection>  pColl;
  CComQIPtr<IDispatch, &IID_IDispatch>                            pTmpDisp;
  CComQIPtr<IHTMLInputElement, &IID_IHTMLInputElement>            pElement;
  CComQIPtr<IDispatch, &IID_IDispatch>                            pDisp;
  if ( SUCCEEDED (WB->Document->QueryInterface(IID_IHTMLDocument2, (LPVOID*)&pDoc)))    {
    if ( SUCCEEDED (pDoc->get_all(&pColl)))                 {
      if ( SUCCEEDED (pColl->item(TVariant(WideString(Name)), TVariant(0), &pDisp))) {
        pElement = pDisp;
        pElement->put_value(WideString(Data));
      }
    }
  }
}

TComInterface<IHTMLTextAreaElement> field;

String GetEditValue(TWebBrowser *AWebBrowser, const String AEditName)
{
    WideString result;
    TComInterface<IHTMLDocument2> pDocument;
    if( SUCCEEDED(AWebBrowser->Document->QueryInterface(IID_IHTMLDocument2, (void**)&pDocument)) )
    {
        TComInterface<IHTMLElementCollection> Forms;
        if( SUCCEEDED(pDocument->get_forms(&Forms)) )
        {
            TComInterface<IHTMLFormElement> Form;
            if( GetChildElement(Forms, "data", 0, &Form) ) // "data" - название формы
            {
                TComInterface<IHTMLTextAreaElement> Field;
                if( GetChildElement(Form, WideString(AEditName), 0, &Field) )
                {
                    Field->get_value(&result);
                }
            }
        }
    }
    return result;
}

template <typename ItemIntf>
void __fastcall FillForm2(String FiledNameOrId, String FieldText,TCppWebBrowser* Browser)
{
    // заполнение поля на форме. FiledNameOrId - Имя поля или его Id
    TComInterface<IHTMLDocument2> pDoc;
    if( SUCCEEDED(Browser->Document->QueryInterface(IID_IHTMLDocument2, (LPVOID*)&pDoc)) )
    {
        TComInterface<IHTMLElementCollection> pColl;
        if ( SUCCEEDED (pDoc->get_all(&pColl)))
        {
            TComInterface<ItemIntf> field;
            if( GetChildElement(pColl, WideString(FiledNameOrId), 0, &field) )
            {
                field->put_value(FieldText.w_str());
            }
        }
    }
}
 
void __fastcall TForm1::Button1Click(TObject *Sender) // кнопка заполнения
{
    FillForm2<IHTMLInputElement>("bm_url","my url", CppWebBrowser1);
    FillForm2<IHTMLInputElement>("bm_description","my description", CppWebBrowser1);
    FillForm2<IHTMLTextAreaElement>("bm_notice","my notice", CppWebBrowser1);
    FillForm2<IHTMLInputElement>("bm_tags","my tags", CppWebBrowser1);
}

void __fastcall TForm2::Button2Click(TObject *Sender)
{
    FillForm2<IHTMLInputElement>("bm_url","my url", CppWebBrowser1);
    FillForm2<IHTMLInputElement>("bm_description","my description", CppWebBrowser1);
    FillForm2<IHTMLTextAreaElement>("bm_notice","my notice", CppWebBrowser1);
    FillForm2<IHTMLInputElement>("bm_tags","my tags", CppWebBrowser1);
}
//---------------------------------------------------------------------------

template <typename ItemIntf>

bool __fastcall ClickButton(String ButtonName,TCppWebBrowser* Browser)
{
    bool Result = false;
 
    // нажатие кнопки на форме. ButtonName - имя кнопки в html коде
    if( Browser->Document )
    {
        TComInterface<IHTMLDocument2> pDocument;
        if( SUCCEEDED(Browser->Document->QueryInterface(IID_IHTMLDocument2, (LPVOID*)&pDocument)) )
        {
            TComInterface<IHTMLElementCollection> pCollection;
            if( SUCCEEDED(pDocument->get_all(&pCollection)) )
            {
                TComInterface<IHTMLElement> button;
                if( GetChildElement(pCollection, WideString(ButtonName), 0, &button) )
                {
                    if(SUCCEEDED(button->click()))
                    {
                        Result = true;
                    }
                }
            }
        }
    }
    return Result;
}

if (ClickButton("submiter", CppWebBrowser1))
{
    ShowMessage(L"Ok");
}
else
{
    ShowMessage(L"Ошибка");
}

void __fastcall TForm1::CppWebBrowser1DocumentComplete(TObject *Sender,
      LPDISPATCH pDisp, Variant *URL)
{
 String slHtmlFormName = "frmLogin"; // <form name="frmLogin"...
 
 IHTMLDocument2 *pHTMLDocument = NULL;
 if(SUCCEEDED(CppWebBrowser1->Document->QueryInterface(
   IID_IHTMLDocument2, (LPVOID*)&pHTMLDocument)))
   {
   if(pHTMLDocument != NULL)
   {
     IHTMLElementCollection *pAll = NULL;
     if(SUCCEEDED(pHTMLDocument->get_all(&pAll)) && pAll)
     {
       TVariant vName="vb_login_username", vName2="vb_login_password", vName3="cookieuser";
       TVariant vIndex=1;
 
       // login
       IDispatch *pDisp1=NULL;
       if(SUCCEEDED(pAll->item(vName, vIndex, &pDisp1)) && pDisp1)
       {
         IHTMLInputElement *pInput = NULL;
         if(SUCCEEDED(pDisp1->QueryInterface(IID_IHTMLInputElement,
         (LPVOID*)&pInput)) && pInput)
         {
           WideString login = Memo2->Lines->Strings[0];
           if (Trim(login) != "")
           {
             pInput->put_value(login);
             auto_login = 1;  // need to login to continue
           }
           else
             auto_login = 0;  // no need to login further
           pInput->Release();
         }
         pDisp1->Release();
       }
 
       // pass
       IDispatch *pDisp2=NULL;
       if(SUCCEEDED(pAll->item(vName2, vIndex, &pDisp2)) && pDisp2)
       {
         IHTMLInputElement *pInput = NULL;
         if(SUCCEEDED(pDisp2->QueryInterface(IID_IHTMLInputElement,
         (LPVOID*)&pInput)) && pInput)
         {
           WideString pass = RSAPasswordGarena(Memo2->Lines->Strings[1]);
           if (Trim(pass) != "")
           {
             pInput->put_value(pass);
             auto_login = 1;
           }
           else
             auto_login = 0;
           pInput->Release();
         }
         pDisp2->Release();
       }
 
       // save
       IDispatch *pDisp3=NULL;
       if(SUCCEEDED(pAll->item(vName3, vIndex, &pDisp3)) && pDisp3)
       {
         IHTMLInputElement *pInput = NULL;
         if(SUCCEEDED(pDisp3->QueryInterface(IID_IHTMLInputElement,
         (LPVOID*)&pInput)) && pInput)
         {
           pInput->put_checked(1);
           pInput->Release();
         }
         pDisp3->Release();
       }
 
     }
     pAll->Release();
   }
 
    // click SUBMIT()
    IHTMLElementCollection *HTMLForms = NULL;
    if(SUCCEEDED(pHTMLDocument->get_forms(&HTMLForms)) && HTMLForms)
    {
      TVariant vName4(3);
      TVariant vIndex4 = 0;
      IDispatch *pDisp4 = NULL;
      if(SUCCEEDED(HTMLForms->item(vName4, vIndex4, &pDisp4)) && pDisp4)
      {
        IHTMLFormElement *HTMLForm = NULL;
        if(SUCCEEDED(pDisp4->QueryInterface(IID_IHTMLFormElement,
          (LPVOID*)&HTMLForm)) && HTMLForm)
        {
          if (auto_login == 1)
            HTMLForm->submit();
          auto_login = 0;
          HTMLForm->Release();
        }
        pDisp4->Release();
      }
      HTMLForms->Release();
    }
 
   pHTMLDocument->Release();
   }
}

  if( CppWebBrowser1->Document )
    {
    TComInterface<IHTMLDocument3> pDocument;
    TComInterface<IHTMLElementCollection> pElementColl;
    TComInterface<IHTMLElement> pElement;
    TComInterface<IDispatch> pDisp;
      CppWebBrowser1->Document->QueryInterface(IID_IHTMLDocument3,
                                        (LPVOID*)&pDocument);
      if( pDocument )
        {
        pDocument->getElementsByTagName(L"button",&pElementColl);
        pElementColl->item(TVariant("порядковый (по ходу встречи тэга <button> HTML кода)
                                 номер кнопки в HTML форме 0,1,2 и т.д."),TVariant(0),&pDisp);
 
          if ( pDisp ) {
                 pDisp->QueryInterface(IID_IHTMLElement,(LPVOID*)&pElement);
                if( pElement ){
                    pElement->click();
                }
          }
        }
     }

        if (SUCCEEDED(pHTMLDocument2->get_images(&Images)) && Images)
        {
            long ImagesCount = 0;
            if (SUCCEEDED(Images->get_length(&ImagesCount)))
            {
                for (int i = 0; i < ImagesCount; i++)
                {
                    IHTMLImgElement* Image = NULL;
                    IDispatch* Disp = NULL;
                    Variant item = i;
                    Variant index = 0;
                    if (SUCCEEDED(Images->item(item, index, &Disp)) && Disp)
                    {
                        if (SUCCEEDED(Disp->QueryInterface(IID_IHTMLImgElement, (void**)&Image)) && Image)
                        {
                            IHTMLElementRender *spElemRender;
                            HRESULT hr = Image->QueryInterface(IID_IHTMLElementRender, (void**)&spElemRender);
                            if (SUCCEEDED(hr) && spElemRender)
                            {
                                // обработка изображения
                                spElemRender->Release();
                            }
                            Image->Release();
                        }
                        Disp->Release();
                    }
                }
            }
            Images->Release();
        }

  if( CppWebBrowser1->Document )
    {
    TComInterface<IHTMLDocument3> pDocument;
    TComInterface<IHTMLElementCollection> pElementColl;
    TComInterface<IHTMLElement> pElement;
    TComInterface<IDispatch> pDisp;
      CppWebBrowser1->Document->QueryInterface(IID_IHTMLDocument3,
                                        (LPVOID*)&pDocument);
      if( pDocument )
        {
            pDocument->getElementsByTagName(L"",&pElementColl);
            pDocument->Release();
 
        if (pElementColl)
        {
         long j;
         pElementColl->get_length(&j);
 
            for (long i = 0; i < j; ++i) {
                pElementColl->item(TVariant(i),TVariant(0),&pDisp);
                pElementColl->Release();
                    if ( pDisp ) {
                    pDisp->QueryInterface(IID_IHTMLElement,(LPVOID*)&pElement);
                    pDisp->Release();
                        if( pElement )
                        {
 
                            pElement->click();
                            pElement->Release();
 
                        }
                    }
 
            }
 
 
        }
        }
    }

    if (CppWebBrowser1->Document)
    {
        TComInterface<IHTMLDocument3>pDocument;
        TComInterface<IHTMLElementCollection>pElementColl;
        TComInterface<IHTMLElement>pElement;
        TComInterface<IDispatch>pDisp;
        CppWebBrowser1->Document->QueryInterface(IID_IHTMLDocument3, (LPVOID*)&pDocument);
        if (pDocument)
        {
            pDocument->getElementsByTagName(L"", &pElementColl);
            if (pElementColl)
            {
                long j;
                pElementColl->get_length(&j);
 
                for (long i = 0; i < j; ++i)
                {
                    pElementColl->item(TVariant(i), TVariant(0), &pDisp);
                    if (pDisp)
                    {
                        pDisp->QueryInterface(IID_IHTMLElement, (LPVOID*)&pElement);
                        if (pElement)
                        {
                            pElement->click();
                            // pElement->Release(); // прямо перед окончанием if-а, проверяющего валидность pElement
                        }
                        // pDisp->Release(); // прямо перед окончанием if-а, проверяющего валидность pDisp
                    }
                }
                // pElementColl->Release(); // прямо перед окончанием if-а, проверяющего валидность pElementColl
            }
            // pDocument->Release(); // прямо перед окончанием if-а, проверяющего валидность pDocument
        }
    }