Dim server As ServerSocket 'libreria Network
Dim ip As String
ip=server.GetMyIP
If ip="127.0.0.1" Then
Msgbox("Non sei connesso!","Errore")
End If
Lo scopo è proprio quello. Se testo adesso il mio sito e questo risponde so che posso procedere (ovvio che possa andare giù un istante dopo, ma vale per tutti).
Sub Connected As Boolean
'Requires Phone Library
Dim p As Phone
Dim Response, Error As StringBuilder
Response.Initialize
Error.Initialize
'Ping Google DNS - if you can't reach this you are in serious trouble!
p.Shell("ping -c 1 8.8.8.8",Null,Response,Error)
Log("======= Response ========")
Log(Response)
Log("======= Error ===========")
Log(Error)
Log("======================")
If Error.ToString="" Then
Return True
Else
Return False
End If
End SubSub MiaApp
Wait For (check_rete) COMPLETE (Success As Boolean)
Log($"Connessione: ${Success}"$)
End Sub
Sub check_rete As ResumableSub
'Controllo se esiste la rete
Dim j As HttpJob
Dim IntCe As Boolean = False
j.Initialize("", Me)
j.GetRequest.Timeout = 2000
j.Download("https://www.google.com")
Wait For (j) JobDone(j As HttpJob)
If j.Success Then
IntCe=True
End If
j.Release
Return IntCe
End Sub
Tutte due avete ragione, e si possono fare delle valutazioni del tutto diverse in situazioni diverse dipendenti dagli obiettivi da raggiungere, e sarebbero comunque valutazioni giuste.
StringBuilder?
Così era il codice in origine (non è farina del mio sacco) e io non l'ho modificato. Chiaramente basta String.
Sarà obbligatorio; uno StringBuilder darebbe errore.
Non ti saprei dire se genera errore. Io uso il secondo metodo.
