Tempw = Socketstat(i , Sel_recv)                ' get received bytes
            If Tempw > 0 Then                               ' if there is something received
               Bcmd = 0
               Do
                 Tempw = Tcpread(i , S)
                 print s                     ' read a line
                 'if MID(S , 1, 4) = "POST" then
                  'print s
                 end if
                 If Left(s , 3) = "GET" Then
                       Bcmd = 1
                                                    ' GET /index.htm HTTP/1.1
             End If
               Loop Until S = ""                            ' wait until we get an empty line
 

DATA "<form action={034}http://192.168.0.101{034} method="POST">"
DATA "  <div>"
DATA "    <label for="say">What greeting do you want to say?</label>"
DATA "    <input name="say" id="say" value="Hi">"
DATA "  </div>"
DATA "  <div>"
DATA "    <label for="to">Who do you want to say it to?</label>"
DATA "    <input name="to" id="to" value="Mom">"
DATA "  </div>"
DATA "  <div>"
DATA "    <button>Send my greetings</button>"
DATA "  </div>"
DATA "</form>"
 

 Tempw = Tcpread(i , S)
                 print s  
 

GET /favicon.ico HTTP/1.1
Host: 192.168.0.101
User-Agent: Mozilla/5.0 (Windows NT 6.1; Win64; x64; rv:91.0) Gecko/20100101 Firefox/91.0
Accept: image/webp,*/*
Accept-Language: nl,en-US;q=0.7,en;q=0.3
Accept-Encoding: gzip, deflate
DNT: 1
Connection: keep-alive
Referer: http://192.168.0.101/?say=Hello+Mark&to=for+bascom+forum
Sec-GPC: 1

 

Elseif Left(s , 15) = "Content-Length:" Then       ' for post
                  S = Mid(s , 16) : Bcontent = Val(s)
...

If Bcmd = 3 Then
               #if Cdebug
                  Print "Posted data"
               #endif
               Tempw = Tcpread(i , Buf(1) , Bcontent)    ' read data
               #if Cdebug
                  Bcontent = Bcontent + 1
                  Buf(bcontent) = 0                     ' put string terminator at end of data so we can handle it as a string
                  Print S
               #endif
               Shtml = "/redirect.htm"                   ' redirect to www.mcselec.com
            End If