Sub ControllaOperatore(username As String, password As String) As Boolean
' Esegui la richiesta HTTP al tuo server per verificare le credenziali
' Modifica la URL con il percorso del tuo script di autenticazione
Dim request As OkHttpRequest
request.InitializePost2("https://www.miosito.it/app/autenticazione.php", _
Array As String("username", "password"), _
Array As String(username, password))
' Invia la richiesta
Dim response As OkHttpResponse
response = HttpUtils2.Execute(request)
' Analizza la risposta
If response.StatusCode = 200 Then
' Il server ha risposto con successo, puoi elaborare ulteriormente la risposta se necessario
Dim result As String
result = response.GetString("UTF8")
' Modifica la logica di controllo in base alla risposta del tuo server
If result = "Success" Then
' Credenziali valide
idazienda = result ' Converte la stringa in intero
Log("ID Azienda: " & idazienda)
Return True
Else
' Credenziali non valide
Return False
End If
Else
' Errore nella richiesta HTTP
ToastMessageShow("Errore nella richiesta HTTP: " & response.StatusCode, True)
Return False
End If
End Sub