#Region Activity Attributes
#FullScreen : true
#IncludeTitle : false
#End Region
Sub Process_Globals
End Sub
Sub Globals
Private sNYEI_FormsWebsite_Main As Panel
Private sNYEI_SendText As Button
Private sNYEI_FormsWebsite_Webview As WebView
Private mWebViewExtras As WebViewExtras
Private mSendInput As SendInput
End Sub
Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:
Activity.LoadLayout("snyei_forms_website")
'-----------------------------------------------------------------------------------------------------
' Load the webpage - the log in screen will appear have to manually log in the UserAndPasswordRequired
' doesn't get triggered - remember to look into this later
'-----------------------------------------------------------------------------------------------------
' sNYEI_FormsWebsite_Webview.LoadUrl("http://forms.nyelectricalinspection.com/")
sNYEI_FormsWebsite_Webview.LoadUrl("http://forms.nyelectricalinspection.com/form/Application/6")
sNYEI_SendText.Color = Colors.Black
sNYEI_SendText.TextColor = Colors.White
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Public Sub sNYEI_FormsWebsite_Webview_PageFinished(Url As String)
Log("PageFinished")
End Sub
Public Sub sNYEI_SendText_Click
Log("SendText")
mWebViewExtras.executeJavascript(sNYEI_FormsWebsite_Webview, "document.querySelector('input[name=field-55]').value = 'Some Value';")
' Dim Javascript As StringBuilder
'
' Javascript.Initialize
'Dim Javascript As String = "document.forms[0]['field-55'].value='" & "robert" & "';"
'
'
'mWebViewExtras.executeJavascript(sNYEI_FormsWebsite_Webview, Javascript)
'Sleep(5000)
'mWebViewExtras.executeJavascript(sNYEI_FormsWebsite_Webview, "alert(document.forms[0]['field-55'].value);" )
'mWebViewExtras.executeJavascript(sNYEI_FormsWebsite_Webview, "document.querySelector('input[name=field-55]').value = 'Some Value';")
' Javascript.Append("function setSelectionRange(input, selectionStart, selectionEnd) { If (input.setSelectionRange) { input.focus(); input.setSelectionRange(selectionStart, selectionEnd); }" _
' &" else if (input.createTextRange) { var range = input.createTextRange(); range.collapse(True); range.moveEnd('character', selectionEnd); range.moveStart('character', selectionStart);" _
' &" range.select(); } } function setCaretToPos (input, pos) { setSelectionRange(input, pos, pos); } " _
' &"setCaretToPos(document.getElementById(""field-104""), 0);" &"document.querySelector(""input[name=field-104]"").value = ""username"";")
' mWebViewExtras.executeJavascript(sNYEI
' mSendInput.SendKeys("FOB-1234")
End Sub