Sub Process_Globals

End Sub

Sub Globals
	Dim WebView1 As WebView
End Sub

Sub Activity_Create(FirstTime As Boolean)
	WebView1.Initialize("WebView1")
	Activity.AddView(WebView1, 0, 0, 100%x, 100%y)
	
	WebView1.LoadUrl("http://subagent.secureplay.info/")
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub WebView1_PageFinished (Url As String)
	Log(Url)
	If Url="http://subagent.secureplay.info/" Then
		Dim Javascript As StringBuilder
		Javascript.Initialize
		Javascript.Append("document.forms[0].user.value='my_email_address@email.com';")
		Javascript.Append("document.forms[0].password.value='my_password';")
		Javascript.Append("document.forms[0].submit()")
		Log("Executing javascript: "&Javascript.ToString)
		
		Dim WebViewExtras1 As WebViewExtras
		WebViewExtras1.executeJavascript(WebView1, Javascript.ToString)
		
		'	alternatively you could execute the javascript without requiring WebViewExtras by using the javascript protocol:
		'	WebView1.LoadUrl("javascript:"&Javascript.ToString)
		
	Else
		Log("The page that has finished loading is not the subagent.secureplay.info login page")
	End If
End Sub