'
 OPTION EXPLICIT
 OPTION DEFAULT NONE
 option autorun on
 option base 1

Dim string Var1, Var2, Var3

Do While MM.Info(IP ADDRESS) = "0.0.0.0"
 If Timer > 5000 Then
   ? "WiFi Timeout - Reboot"
   Pause 500
   CPU RESTART
 end if
 ? "Waiting for WiFi"
 Pause 1000
Loop
? "Connected.  IP address is " + MM.Info$(ip address)

WEB TCP INTERRUPT WebInterrupt

Var1 = "This is variable #1"
Var2 = "Variable number 2"
Var3 = "Another variable (Number #3)"

do
loop

Sub WebInterrupt
 SortData
end sub

Sub SortData
 Local integer a%
 Local Integer b(512)
 for a% = 1 to mm.info(max connections)
   LongString CLEAR b()
   WEB TCP READ a%, b()
   longstring print b()
   if (linstr(b(), "SitRep") > 0) then
     SendSitRep a%
   Else  
   end if
 next a%
end sub

sub SendSitRep a%
 web transmit page a%, "/SitRep.html"
end sub

Option Explicit
Dim SockData As String
Const IpAddress As String = "Insert your IP Address here"
Const Port As Integer = 80

Private Sub cmdSend_Click()
 If Winsock1.State = 7 Then
   Winsock1.SendData "SitRep"
 End If
End Sub

Private Sub Form_Load()
 Winsock1.Connect IpAddress, Port
End Sub

Private Sub Winsock1_Connect()
 DoEvents
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
 Winsock1.GetData SockData, 1000
 Text1.Text = SockData
 Winsock1.Close
 Winsock1.Connect IpAddress, Port
End Sub

{Var1}
{Var2}
{Var3}