Sub Check_Connectivity() As Boolean
Dim phDevice As Phone
Dim sTCP As ServerSocket
Try
sTCP.Initialize(13132, "")
If sTCP.GetMyIP <> "127.0.0.1" Then
sTCP.Close
Return True
End If
sTCP.Close
If phDevice.GetNetworkType <> "UNKNOWN" Then Return True
Return False
Catch
Send_Error_Report("Check_Connectivity", LastException.Message)
Return False
End Try