Sub Process_Globals
Dim WebView1 As WebView
End Sub
Sub Globals
Dim wvExtras As WebViewExtras
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("layout")
WebView1.Initialize("WebView1")
Activity.AddView(WebView1, 0, 0, 100%x, 100%y)
wvExtras.Initialize(WebView1)
wvExtras.addJavascriptInterface(WebView1, "B4A")
WebView1.LoadUrl("https://www.example.com")
wvExtras.ExecuteJavascript("localStorage.setItem('key', 'value');")
Dim js As String
js = "var value = localStorage.getItem('key'); B4A.CallSub('ProcessValue', value);"
wvExtras.ExecuteJavascript(js)
End Sub
Sub WebView1_PageFinished (Url As String)
End Sub
Sub ProcessValue(value As String)
Log("Received value from localStorage: " & value)
End Sub