iOS Question IsInternetConnected

D

Deleted member 103

Guest
Hi,

This Sub always gives me True, why?
I turn my WiFi on and off and this sub is always returns True.

B4X:
Public Sub IsInternetConnected As Boolean
    Dim b As Boolean = Main.App.CanOpenURL("http://www.google.com")
    Return b
End Sub
 
D

Deleted member 103

Guest
So it seems to work.
B4X:
Public Sub IsInternetConnected As Boolean
    Dim b As Boolean = True
    Dim ServerSocket1 As ServerSocket
    ServerSocket1.Initialize(5555, "ServerSocket1")
    If ServerSocket1.GetMyIP = "127.0.0.1" Or ServerSocket1.GetMyWifiIp =  = "127.0.0.1" Then
        b = False
    End If
    ServerSocket1.Close
    Return b
End Sub
Private Sub ServerSocket1_NewConnection (Successful As Boolean, NewSocket As Socket)
End Sub
 
Upvote 0
Top