Italian [RISOLTO] B4A - Capire se un IP Pubblico è raggiungibile/connesso

Star-Dust said:

È meno male che ti ho mandato l'immagine dove vedi che si collega. Hai provato il mio codice?

Click to expand...

Nicola Ciaramellano said:

Questo disabilita il check dei certificati autoprodotti utilizzando il sorgente e non la libreria okhttp, funziona sui primi 3 però non funziona sul dd-wrt che probabilmente come dice Startdust ha la sicurezza Digest e servono le credenziali.

Click to expand...

LucaMs said:

Prova.

Click to expand...

Sabotto said:

Buogiorno

Si. Non intendevo che non ti credessi, ho visto lo screenshot. Non capendo le differenze col mio (potevi dirlo subito che avevi modificato solo la configurazione di ambiente, mi hai fatto impazzire... ?) ho fatto confusione.
Ora l'ho rilanciato (il tuo) e risponde OK al secondo e al terzo mentre il primo e il quarto no. Comunque non sapevo dell'esistenza di questa opzione.

View attachment 111757

Anche con il tuo esempio Nicola, ricevo le stesse risposte (2 e 3 OK e 1 e 4 NON OK)
View attachment 111758


Luca, con il tuo esempio basato sul PING invece ricevo l'OK sui primi 3 (non sugli ultimi 3 come risuktava a te). Inoltre ci mette un pochino piu di tempo

View attachment 111759

Click to expand...

Star-Dust said:

Se te lo dicevo subito dove stava il divertimento?

Click to expand...

Sabotto said:

Uhmmm no. Il PING di LUcaMS da dei falsi positivi...(in tema di pandemia....).
perche da l'ok se la stringbuilder è valorizzata

Click to expand...

LucaMs said:

Probabile; infatti il codice al link che ti avevo indicato nel post #2 si occupa anche di questo.

Click to expand...

Sub TestServer(server As String) As Boolean
    Dim p As Phone
    Dim sb As StringBuilder
    sb.Initialize
    p.Shell("ping -c 1 " & server,Null,sb,Null)
    Log(sb)
    If sb.Length = 0 Then
        Return False
    Else
        'QUI c'è sta "s" che non si capisce cosa sia e va in errore
        If (s.Mid(sb.ToString,(s.InStr(sb.ToString,"received,")+11),(s.InStr(sb.ToString,"%"))-(s.InStr(sb.ToString,"received,")+10)))="0" Then
            Return True
        Else
            Return False
        End If
    End If
End Sub

Sabotto said:

LucaMs, lo volevo provare quel codice, ma c'è una variabile "s" che non è dichiarata da nessuna parte, ed infatti l'utente Celso gli chiede cos'è nel post #51.

B4X:

Sub TestServer(server As String) As Boolean
    Dim p As Phone
    Dim sb As StringBuilder
    sb.Initialize
    p.Shell("ping -c 1 " & server,Null,sb,Null)
    Log(sb)
    If sb.Length = 0 Then
        Return False
    Else
        'QUI c'è sta "s" che non si capisce cosa sia e va in errore
        If (s.Mid(sb.ToString,(s.InStr(sb.ToString,"received,")+11),(s.InStr(sb.ToString,"%"))-(s.InStr(sb.ToString,"received,")+10)))="0" Then
            Return True
        Else
            Return False
        End If
    End If
End Sub

Click to expand...

LucaMs said:

Non ho provato ma suppongo sia il tentativo (sbagliato) di scomporre quella "sb", che credo sia la risposta ricevuta-

Click to expand...

LucaMs said:

. one moment please ...

Click to expand...

Sub TestServer(server As String) As Boolean
    Dim Result As Boolean = True
   
    Dim p As Phone
    Dim sb As StringBuilder
    sb.Initialize
    p.Shell("ping -c 1 " & server,Null,sb,Null)
    Log(sb)
    If sb.Length = 0 Then
        Result = False
    Else
        'QUI c'è sta "s" che non si capisce cosa sia e va in errore
        Dim s As String = sb.ToString
        Dim IndexOfReceived As Int = s.IndexOf("received,")
        Dim IndexOfPacketLoss As Int = s.IndexOf("packet loss,")
        Dim Percentage As String
        Percentage = s.SubString2((IndexOfReceived + 9), IndexOfPacketLoss - 1).Trim
        Result = (Percentage = "0%")
    End If
    Return Result
End Sub

Sabotto said:

Ho aggiunto altri IP (reali). Purtroppo sia col codice di LucaMs che con quello di Nicola molti di essi danno risposta negativa.
Riallego il progettino con i nuovi IP aggiunti e contenente le due routine (suggeritemi da Nicola e LucaMs)
Se avete voglia lo guardate. Intanto grazie a tutti e tre (Star Dust è il terzo) per l'assistenza.
Io non ci capisco molto come detto dei protocolli ecc e pensavo che siccome tutti questi IP immessi in un browser "rispondono" fosse piu semplice fare una csa analoga da codice.

Click to expand...

Star-Dust said:

A me funzionano quindi non saprei quale problema stai riscontrando

Click to expand...

Sabotto said:

Ora sei tu che non mi credi?...
View attachment 111778

Parliamo del codice di LucaMs e Nicola, vero?

Click to expand...

Nicola Ciaramellano said:

Ciao,
guarda che ho provato sia il mio codice che quello di Luca con gli IP che hai indicato e funzionano entrambi! Ovvero, se la porta risponde al ping le due routine funzionano perfettamente. Se ti dicono che il server è down, significa che non risponde al ping NON che non ci sia qualche porta http o https aperta! Infatti gli ip che non rispondono utilizzando la app, non rispondono neanche al ping dato da PC.
Forse stai facendo un pò di confusione, come ti avevo già detto in uno dei post precedenti, per far si che il ping sia rilevante per controllare se il router è UP è che il router sia abilitato a rispondere al ping. Alcuni router disabilitano la risposta al ping dall'esterno e devono essere settati per riabilitarlo. In alcuni casi addirittura il router potrebbe essere a sua volta "nattato" dal provider e se il provider ha disabilitato la risposta al ping sul router principale non ci puoi fare nulla.
Spero di averti chiarito un pò le idee.

Click to expand...