All other internet stacks need to be started up. Checking for a lack of bsdsocket.library in memory is an easy start.
- Perform a DNS lookup of a known remote hostname. If that fails, your stack is likely not running.
- Perform a single socket connection with a long-ish timeout (5 seconds is likely enough). If that fails, you're likely unconnected from the Internet.
Only the first block of sent data from the server is received
After you Accept a connection from a client, you need to watch the new socket for that client for updates, rather than the original server socket:
Do RESULT=Socket Wait Async Reading(SERVER, 500) If RESULT > 0 _REMOTE_SOCKET=Socket Accept(SERVER) ' For all communication with this client, use this socket, not the SERVER socket Do RESULT=Socket Wait Async Reading(_REMOTE_SOCKET, 500) If RESULT > 0 Print Socket Recv$(_REMOTE_SOCKET, 1024) End If Wait Vbl Loop End If Loop