Sub webCaptcha_PageFinished (Url As String)
Dim Javascript As String
Javascript="B4A.CallSub('Process_HTML', false, document.documentElement.outerHTML)"
ww.executeJavascript(webCaptcha, Javascript)
End Sub
Sub Log_URL(URL As String)
ToastMessageShow(URL, True)
End Sub
Sub Process_Html(Html As String)
CallSubDelayed2(Me, "Process_HtmlImpl", Html)
End Sub
Sub Process_HtmlImpl(Html As String)
Dim frameID As String = “whatever”
ww.addJavascriptInterface(webCaptcha, "B4A")
ww.executeJavascript(webCaptcha, "B4A.CallSub('Log_URL', True, 'document.getElementById('" & frameID & "').contentWindow.location.href')")
ww.executeJavascript(webCaptcha, "B4A.CallSub('Log_URL', True, 'document.getElementById('" & frameID & "').src;")
End Sub