Sub getIP
Dim serverSocket As ServerSocket
Dim ip As String
serverSocket.Initialize(8888, "")
serverSocket.Close
CallSub2(Main,"writeLog","NETW> IP:" & serverSocket.GetMyIP)
CallSub2(Main,"writeLog","NETW> WifiIP: " & serverSocket.GetMyWifiIP)
If serverSocket.GetMyIP.StartsWith("192.168.") Then
lanConnected=True
lanIP=serverSocket.GetMyIP
Else
lanConnected=False
lanIP="0.0.0.0"
End If
If serverSocket.GetMyWifiIP.StartsWith("192.168.") Then
wifiConnected=True
wifiIP=serverSocket.GetMyWifiIP
Else
wifiConnected=False
wifiIP="0.0.0.0"
End If
CallSub2(Main,"writeLog",$"NETW> LAN: ${lanIP} WIFI: ${wifiIP}"$)
End Sub