Sub Process_Globals
End Sub
Sub Globals
Dim WebViewExtras1 As WebViewExtras
Dim WebView1 As WebView
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("layoutMain")
WebViewExtras1.addJavascriptInterface(WebView1, "B4A")
WebView1.LoadUrl("http://www.b4x.com/forum/additional-libraries-classes-official-updates/12453-webviewextras.html#post70053")
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub WebView1_PageFinished (Url As String)
Dim Javascript As String
Javascript="B4A.CallSub('ProcessHTML', false, document.documentElement.outerHTML)"
Log("PageFinished: "&Javascript)
WebViewExtras1.executeJavascript(WebView1, Javascript)
End Sub
Sub ProcessHTML(Html As String)
Log("ProcessHTML: "&Html)
End Sub