Private Wve AsWebViewExtrasPrivate MyWeb AsWebView
Wve.addJavascriptInterface(MyWeb, "B4A")
Wve.addWebChromeClient(MyWeb,"")
Sub WhatWillBeExecuted(Url as String)
Dim Javascript AsString
Javascript="B4A.CallSub('Process_HTML', false, document.documentElement.outerHTML)"
Wve.executeJavascript(MyWeb, Javascript)
End Sub
Sub MyWeb_PageFinished (Url AsString)
CallSubDelayed2(Me,"WhatWillBeExecuted",Url)
End Sub