Sub Globals
Private WebCaptcha As WebView
Dim ww As WebViewExtras
Dim Javascript As String
End Sub
Sub Activity_Create(FirstTime As Boolean)
WebCaptcha.Initialize("webCaptcha")
Activity.AddView(WebCaptcha,0,0,100%x,100%y)
ww.addJavascriptInterface(WebCaptcha,"B4A")
Dim html As String=File.ReadString(File.DirAssets,"src.html")
WebCaptcha.LoadHtml(html)
End Sub
Sub webCaptcha_PageFinished (Url As String)
Javascript="B4A.CallSub('Process_HTML', false, document.documentElement.outerHTML)"
ww.executeJavascript(WebCaptcha, Javascript)
End Sub
Sub Process_Html(Html As String)
Dim m As Matcher
Html=Html.ToLowerCase.Replace(Chr(0x22),"").Replace(CRLF," ").Replace(Chr(13),"").Replace(">"," >")
m = Regex.Matcher("<iframe[^>]*src=(.*?) ", Html)
Do While M.Find
Log("Found: " & M.Group(1))
Loop
End Sub