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