Sub ok_id_Click
inputbox_id.Visible=False
tentativi=tentativi-1
If codice_id.Text.Length=4 Or codice_id.Text.Contains(",") Then 'con virgola per coordinatori e admin
Dim cellu As PhoneId
Dim imei As String=cellu.GetDeviceId
id_utente=codice_id.Text.ToUpperCase
Dim pagina As String=sito&"acv/acv_accessi.php"
If codice_id.Text.Contains(",") Then 'gestione ADMIN
get_id.Initialize("get0", Me)
get_id.Download2(pagina, Array As String("dati","0,"&id_utente))
Else
get_id.Initialize("get1", Me)
get_id.Download2(pagina, Array As String("dati","1,"&id_utente&","&imei))
End If
Else
If tentativi>1 Then
MsgboxAsync("Codice non valido..."&Chr(13)&Chr(10)&"(ancora "&tentativi&" tentativi)","ERRORE")
Else If tentativi>0 Then
MsgboxAsync("Codice non valido..."&Chr(13)&Chr(10)&"(ancora "&tentativi&" tentativo)","ERRORE")
Else
MsgboxAsync("Codice non valido..."&Chr(13)&Chr(10)&"(era l'ultimo tentativo)","ERRORE")
StopService(testservice)
ExitApplication
End If
controllo_id
End If
End Sub
Sub annulla_id_Click
StopService(testservice)
ExitApplication
End Sub
un banalissimo evento
proprio il primo mess che appare all'utente appena avvia l'app
dopo 3 tentativi ti butta fuori