🚀 go-pugleaf

Hans,

Well I am clearly not understanding why the button is not found. I am using 
the following code and I thought the button would have been found as I am 
taking into account the 2 frames, I think.

Can you point out what I am not understanding or where I have gone wrong.

Thanks very much

Mike

    if( CppWebBrowser1->Document )
    {
        TComInterface<IHTMLDocument2> Doc;
        CppWebBrowser1->Document->QueryInterface(IID_IHTMLDocument2,(LPVOID*)&Doc);

        if( Doc )
        {
            TComInterface<IHTMLFramesCollection2> Frames;
            Doc->get_frames(&Frames);

            if( Frames )
            {

                long cnt = 0;
                Frames->get_length(&cnt);


                for(long l = 0; l < cnt; ++l)
                {
//                TVariant IndexOrName = WideString("frame name");
// or:
                    TVariant IndexOrName = l;
                    TVariant Frame;

                    Frames->item(&IndexOrName, &Frame);

                    if( (V_VT(&Frame) == VT_DISPATCH) && (V_DISPATCH(&Frame) 
!= NULL) )
                    {
                         TComInterface<IHTMLWindow2> Window;

                         V_DISPATCH(&Frame)->QueryInterface(IID_IHTMLWindow2,(LPVOID*)&Window);

                         if( Window )
                         {
                             TComInterface<IHTMLDocument2> FrameDoc;
                             Window->get_document(&FrameDoc);

                             if( FrameDoc )
                             {
                            // use FrameDoc as needed ...
                                TComInterface<IHTMLElementCollection> All;
                                FrameDoc->get_all(&All);

                                if( All )
                                {
                                    TComInterface<IDispatch> Disp;
                                    All->item(TVariant(WideString("secure_exit")),TVariant(0), 
&Disp);

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

                                        if( Element )
                                        {
                                            ShowMessage ( 
"Element->click();");
                                            Element->click();
                                            break ;
                                         }
                                     }
                                }
                             }
                         }
                    }
                }
            }
        }
    }