Sub Globals
Dim WebView1 As WebView 'Create a webview
Dim WebViewExtras1 As WebViewExtras 'Get the extras
End Sub
Sub Activity_Create(FirstTime As Boolean)
HttpUtils.CallbackActivity = "Main"
HttpUtils.CallbackJobDoneSub = "JobDone"
'This is the webview with the router which we will hide
WebView1.Initialize("WebView1")
Activity.AddView(WebView1,0,0,Activity.Width,Activity.Height)
WebViewExtras1.addJavascriptInterface(WebView1, "B4A") 'Inject javascript into YOUR webview
WebViewExtras1.addWebChromeClient(WebView1,"")
'The URL I have modified to suit my needs
WebView1.LoadUrl("http://routino.grade.de/?transport=foot;lon1=12.97565;lat1=53.28092;lon2=13.23413;lat2=53.16854;lat=53.17522;lon=13.27600;zoom=13")
End Sub
Sub WebView1_PageFinished (Url As String)
Log("URL has finished loading ...")
WebViewExtras1.executeJavascript(WebView1,"findRoute('shortest')") 'Press the button called findroute
End Sub