Italian [ risolto ] Iniettare codice java Script

Sub Globals
    Dim WebJava As WebViewExtras
    Private WebView1 As WebView
    Private BtnInietta As Button
    Private EditText1 As EditText
    Private BtnQuit As Button
End Sub

Sub Activity_Create(FirstTime As Boolean)
    Activity.LoadLayout("1")
    WebJava.addWebChromeClient(WebView1, "WebJava")
    WebView1.LoadUrl("http://192.168.1.195/")
End Sub


Private Sub BtnInietta_Click
    Dim StringaJava As String="document.getElementById('linkCodeInput').value='" & EditText1.Text.Trim & "';"
    WebJava.executeJavascript(WebView1,StringaJava)
    WebJava.executeJavascript(WebView1,"document.getElementById('linkRequestBtn').click();")

End Sub

Private Sub BtnQuit_Click
    Activity.Finish
    ExitApplication
End Sub

<form id="formInputFieldLink" class="formInputField" method="get">
            <input type="text" class="inputTextLink">
            <div class="searchContainer searchButtonNoIE fa nip-zoom nip-2x">
                <input type="image" class="searchButtonLink" src="http://192.168.1.195/Content/Images/Pda/SearchIcon.gif">
            </div>
        </form>

Log("prova iniector")
    'getElementsByClassName()
    WebJava.executeJavascript(WebView1,"document.getElementsByClassName('inputTextLink')[0].value='0000080177609';")
    WebJava.executeJavascript(WebView1,"document.getElementsByClassName('searchButtonLink')[0].click();")

    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

JavaScript = "B4A.CallSub('Process_HTML', false, document.getElementById('dataResponseLink').innerText)"