Sub Process_Globals
End Sub
Sub Globals
Dim LoginPageUrl As String
Dim WebView1 As WebView
End Sub
Sub Activity_Create(FirstTime As Boolean)
LoginPageUrl="put your webpage url here"
WebView1.Initialize("WebView1")
Activity.AddView(WebView1, 0, 0, 100%x, 100%y)
WebView1.LoadUrl(LoginPageUrl)
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=LoginPageUrl Then
Dim Javascript As StringBuilder
Javascript.Initialize
Javascript.Append("javascript:")
Javascript.Append("document.forms.logonForm.username.value='foo';")
Javascript.Append("document.forms.logonForm.password.value='bar';")
Javascript.Append("document.forms.logonForm.submit();")
WebView1.LoadUrl(Javascript.ToString)
End If
End Sub