iOS Question Connectivity Change

stevenindon

Active Member
Licensed User
Found.. I think this one does the same :


B4X:
Public Sub CheckNet As String

    Dim myLan As ServerSocket

    If myLan.GetMyWifiIP <> "127.0.0.1" Then
        Return("wifi")
    End If
  
    If myLan.GetMyIP <> "127.0.0.1" Then
        Return("3g")
    End If
  
    Return("nonet")
  
End Sub
 
Upvote 1
Top