ntp address 67.219.111.127
got ntp response: 03/05/2024 17:00:00
[133] WEB TCP CLIENT REQUEST Query, buff%()
Error : No connection
Error: Invalid address - resetting
PICOE66178758B3 connecting to WiFi...
Connected 192.168.1.115

> option autorun on
> option list
WebMite MMBasic Version 5.08.00
OPTION SYSTEM SPI GP18,GP19,GP16
OPTION SYSTEM I2C GP26,GP27
OPTION AUTORUN  ON
OPTION LCDPANEL ILI9488, RLANDSCAPE,GP15,GP14,GP13,GP17
OPTION WIFI ???????, ?????? , PICOE66178758B3
OPTION TOUCH GP12,GP11
OPTION SDCARD GP22
OPTION AUDIO GP2,GP3', ON PWM CHANNEL 1
> run
[133] WEB TCP CLIENT REQUEST Query, buff%()
Error : No connection
>

Sub MM.Startup : Run : End Sub

WEB OPEN TCP CLIENT "xxxx", 80
WEB TCP CLIENT REQUEST Query, buff%()
WEB CLOSE TCP CLIENT

   exception_set_exclusive_handler(HARDFAULT_EXCEPTION,sigbus);
   exception_set_exclusive_handler(SVCALL_EXCEPTION,sigbus);
   exception_set_exclusive_handler(PENDSV_EXCEPTION,sigbus);
   exception_set_exclusive_handler(NMI_EXCEPTION ,sigbus);
   exception_set_exclusive_handler(SYSTICK_EXCEPTION,sigbus);

Option Explicit
Private Declare Function GetTickCount Lib "kernel32" () As Long 'here is the high speed timer

Private HitNum As Double 'count how many packets are sent variable
Private StartTick As Long 'store the tick count value variable

Private Sub Form_Load()
 HitNum = 0 'reset the count variable
End Sub

Private Sub Form_Unload(Cancel As Integer)
 Winsock1.Close 'close the winsock connection
End Sub

Private Sub Timer1_Timer() 'timer function
 Winsock1.Close 'close the winsock
 While Winsock1.State <> 0 'if we haven't closed, loop here until we have
   DoEvents
 Wend
 Winsock1.Connect "192.168.0.114", 1111 'connect to this IP address and port
 StartTick = GetTickCount 'get the start tick
 While Winsock1.State <> 7 'loop until we've actually connected
   Text1.Text = "Connecting..." 'show that it's trying to connect
   DoEvents
 Wend
End Sub

Private Sub Winsock1_Connect() 'connection is established
 HitNum = HitNum + 1 'add to the value
 Winsock1.SendData "VB Hit " & HitNum 'assemble the text and send it
 Text1.Text = "Waiting for reply No. " & HitNum 'show that we're waiting for a reply
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) 'Something has been received
 Dim RecStr As String
 Winsock1.GetData RecStr 'get what came in
 Text2.Text = "Reply Text - " & RecStr 'show the data received
 Text4.Text = GetTickCount - StartTick 'show the time taken between sending & receiving
End Sub

Option EXPLICIT
Option DEFAULT NONE
Option autorun on

WEB TCP INTERRUPT WebInterrupt
do
 Watchdog 20000
loop

sub WebInterrupt
 local Integer ConnNum
 local integer ConnData(512)
 for ConnNum = 1 to mm.info(Max Connections)
   longstring clear ConnData()
   web tcp read ConnNum, ConnData()
   if llen(ConnData()) > 0 then
     web tcp Send ConnNum, ConnData()
   end if
   web tcp close ConnNum
 next ConnNum
end sub