🚀 go-pugleaf

Hans Galema wrote:

> That has to be done yet.

OK. I got it working.

void __fastcall TForm4::SpeedButton10Click(TObject *Sender)
{
	AnsiString URL = "http://rpa.tblc.org/rpa/webauth.exe?lb=PALM";

	WebBrowser1->Navigate ( URL );

	// You have to manually fill in BorrowerID and click the
	// Login button;
         // After that click SpeedButton13
}


void __fastcall TForm4::SpeedButton13Click(TObject *Sender)
{
   AnsiString ButtonName = "secure_exit";

   if ( ! WBClickButton3 ( WebBrowser1, ButtonName ) )
	ShowMessage ( ButtonName + "\n\nbutton not clicked");
}

The code:

static bool __fastcall DocClickButton2 ( TComInterface<IHTMLDocument2> Doc, AnsiString ButtonName )
{
	bool clicked = false;

	TComInterface<IHTMLElementCollection> All;
	Doc->get_all(&All);

	if( All )
		{
		TComInterface<IDispatch> Disp;

		All->item(TVariant(WideString(ButtonName)), TVariant(0), &Disp);

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

			if( Element )
				{
				Element->click();

				clicked = true;
				}
			}
		}

	return clicked;
}


int level = 0; // for testing purposes

static bool __fastcall DocClickButton3 ( IHTMLDocument2 *Doc, AnsiString ButtonName )
{
  level++;

	bool clicked = false;

	long cnt = 0;

	TComInterface<IHTMLFramesCollection2> Frames;

	Doc->get_frames(&Frames);

	if( Frames )
		{
		Frames->get_length(&cnt);

		ShowMessage ( "level: " + IntToStr ( level ) + "\n\ncnt: " + IntToStr ( (int)cnt ) );
		}

	if ( cnt > 0 )
		{
		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 ...

						clicked = DocClickButton3 ( FrameDoc, ButtonName );

						if ( clicked )
							break;
						}
					}
				}
			}
		}
	else
		clicked = DocClickButton2 ( Doc, ButtonName );

  level --;

   return clicked;
}


bool __fastcall WBClickButton3 ( TWebBrowser *WebBrowser, AnsiString ButtonName )
{
	bool clicked = false;

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

		if( Doc )
			{
			clicked = DocClickButton3 ( Doc, ButtonName );
			}
		}

	return clicked;
}

Hans.