WebView1.JavaScriptEnabled = True
WebViewExtras1.Initialize(WebView1)
WebViewExtras1.JavaScriptEnabled = True
JavascriptInterface1.Initialize
WebViewExtras1.addJavascriptInterface(JavascriptInterface1, "B4A")
WebChromeClient1.Initialize("WebChromeClient1")
WebViewExtras1.SetWebChromeClient(WebChromeClient1)
WebView1.LoadUrl("https://www.google.es/maps")
Sub WebView1_PageFinished (Url As String)
Dim Javascript As String
Javascript = "B4A.CallSub('ProcessHTML', false, document.documentElement.outerHTML)"
WebViewExtras1.executeJavascript(Javascript)
End Sub
Sub ProcessHTML(Html As String)
File.WriteString(File.DirRootExternal,"sample.html",Html)
End Sub