Ho appena scritto una stupidissima libreria che fa proprio quanto ti dicevo (suggerimento di Erel, download di Google.it).
[Se trovi una soluzione migliore, fischia, mi raccomando
]
Sub Process_Globals
Private mCheckInternet As lmCheckInternet
End Sub
Sub Activity_Create(FirstTime As Boolean)
mCheckInternet.Initialize(Me , "") ' <--- passing an empty string, Google.it will be used
End Sub
Sub btnCheckInternet_Click
mCheckInternet.Check
End Sub
Private Sub CheckInternet(InternetOK As Boolean) 'ignore
ToastMessageShow("Internet: " & InternetOK, True)
End Sub
P.S. Ops, non è stupidissima in quanto suggerita da Erel, ovviamente
[Modificata affinché JobDone non sia disponibile, è una routine privata]
[Altra modifica: data la possibilità di scegliere un sito diverso (magari il proprio) quindi modificato anche l'esempio.
Non so, per adesso , come impostare la versione a 1.1 fatto]