Sub Globals
Dim wv As WebView
Dim MyWebViewExtras As WebViewExtras
End Sub
Sub Activity_Create(FirstTime As Boolean)
wv.Initialize("wv")
MyWebViewExtras.Initialize(wv)
Activity.AddView(wv, 0, 0, 100%x, 100%y)
wv.LoadUrl("https://osc.managebac.com/login")
End Sub
Sub wv_PageFinished (Url As String)
If Url="https://osc.managebac.com/login" Then
Dim Javascript As String = "document.getElementById('password').value='MyUserNameHere';" & _
"document.getElementById('login').value='MyUserNameHere';" & _
"document.getElementById('session_submit').click()"
MyWebViewExtras.executeJavascript(Javascript)
Log("Form submitted")
Else
Log("Page_Finished "&Url)
End If
End Sub