Sub Process_Globals
End Sub
Sub Globals
Dim WebPageUrl As String="http://www.b4x.com/android/forum/threads/load-local-javascript.27559/#post-206066"
Dim WebView1 As WebView
End Sub
Sub Activity_Create(FirstTime As Boolean)
If Not(File.Exists(File.DirDefaultExternal, "myscript.js")) Then
File.Copy(File.DirAssets, "myscript.js", File.DirDefaultExternal, "myscript.js")
End If
WebView1.Initialize("WebView1")
Activity.AddView(WebView1, 0,0, 100%x, 100%y)
WebView1.LoadUrl(WebPageUrl)
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub WebView1_PageFinished (Url As String)
Log("WebView1_PageFinished "&Url)
If Url=WebPageUrl Then
Dim Javascript As StringBuilder
Javascript.Initialize
Javascript.Append("javascript:")
Javascript.Append(File.GetText(File.DirDefaultExternal, "myscript.js"))
Log(Javascript.ToString)
WebView1.LoadUrl(Javascript.ToString)
End If
End Sub