Форум программистов [Powered by Invision Power Board]

Код

void TMainForm::BtnClick(UnicodeString Name){

wchar_t *s;
if(WB->Document )
   {
        TComInterface<IHTMLDocument2> pDocument;
        WB->Document->QueryInterface(IID_IHTMLDocument2, (LPVOID*)&pDocument);

        if( pDocument )
        {

            TComInterface<IHTMLElementCollection> pCollectionBtn2;
            pDocument->get_all(&pCollectionBtn2);

            if (pCollectionBtn2) {
              long l;
             pCollectionBtn2->get_length(&l);

             for(int i = 0; i < l; i++)
               {
                TComInterface<IDispatch> pDisp;
                pCollectionBtn2->item(TVariant(i),TVariant(0), &pDisp);

                if( pDisp )
                 {
                    TComInterface<IHTMLElement> pElement;
                    pDisp->QueryInterface(IID_IHTMLElement, (LPVOID*)&pElement);

                   if( pElement )             
                    {

                    TVariant S;
                    pElement->getAttribute(L"name", 0, &S);
                    System::Word G=VarType(S);
                    if (G==8) {
                    if (Pos(Name, S)) {
                    pElement->click();
                    }
                    }

                    }

                    }
                 }
               }
            }
        }
}
//---------------------------------------------------------------------------------