WebViewExtras1.executeJavascript(WebView1,$"document.getElementsByClassName('inputTextLink')[0].value=${cResultcode};"$)
WebViewExtras1.executeJavascript(WebView1,"document.getElementsByClassName('searchButtonLink')[0].click();")
Sleep(900)
Dim Javascript As String
Javascript="B4A.CallSub('Process_HTML', false, document.documentElement.outerHTML)"
WebViewExtras1.executeJavascript(WebView1, Javascript)
Sub Process_HTML(Html As String)
Html.GetBytes("UTF8")
Dim pos As Int = Html.IndexOf("operationFeedbackKO")
Log(pos)
If pos >1 Then ' ko non trovato'
PlaySound(5)
Else ' trovato'
PlaySound(4)
End If
End Sub