#Region Module Attributes
#FullScreen: False
#IncludeTitle: True
#ApplicationLabel: WebViewLogin
#VersionCode: 1
#VersionName:
#SupportedOrientations: unspecified
#CanInstallToExternalStorage: False
#End Region
'Activity module
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("https://services.cal-online.co.il/Card-Holders/SCREENS/AccountManagement/Login.aspx")
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub WebView1_PageFinished (Url As String)
If Url="https://services.cal-online.co.il/Card-Holders/SCREENS/AccountManagement/Login.aspx" Then
Dim Javascript As StringBuilder
Javascript.Initialize
Javascript.Append("document.forms.UserName.value='my_username';")
Javascript.Append("document.forms.password.value='my_pass';")
Javascript.Append("document.forms.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("BLA BLA")
End If
End Sub