Sub Globals
Private jsi As UltimateJavascriptInterface
End Sub
Sub Activity_Create
jsi.Initialize
zwv.addJavascriptInterface(jsi, "B4X")
End Sub
Private Sub zwv_PageFinished (Url As String)
Dim Javascript as string = "B4A.CallSub('GetTitle_Event', false, document.title)"
zwv.EvaluateJavascript(Javascript)
End Sub
Sub GetTitle_Event(Title As String)
Log("Title=" & Title)
End Sub