🚀 go-pugleaf

Hans Galema wrote:

> ... So you should make the code recursive.

In order to do that start at the begin. I first took Remy's code to
click a button if the webbrowsercontrol contains a document without
a frameset. I first made a function of it. ( I keep functions concerning
T(Cpp)WebBrowser in a separate file which is easy added to a project
with the browsercomponent).

To click a certain button then only a few lines are needed. In your
case:

  AnsiString ButtonName = "secure_exit" ;

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

Here is the function:

bool __fastcall WBClickButton ( TWebBrowser *WebBrowser, AnsiString ButtonName )
{
	bool done = false;

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

		if( Doc )
		{
			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();

						done = true;
					   }

				}
			}
		}
	}

return done;
}

Then realising that traversing frames we need a function that finds
a button in a IHTMLDocument2 I made another version which puts all
the code in two functions:

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

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

		if( Doc )
		{
		 clicked = DocClickButton2 ( Doc, ButtonName );  // see code below
		}
	}

return clicked;
}


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;
}

  AnsiString ButtonName = "secure_exit" ;

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

Now we can use DocClickButton2() also on the documents for every frame when
traversing Frames.

That has to be done yet.

Hans.