Attachment 98007
Any help ?
Full code for this part with the error.
Any help ?
Full code for this part with the error.
Code:
Dim requestListenerT As New Thread(Function()
While running
Dim clientSocket As Socket
Try
clientSocket = serverSocket.Accept()
' Create new thread to handle the request and continue to listen the socket.
Dim requestHandler As New Thread(Function()
clientSocket.ReceiveTimeout = timeout
clientSocket.SendTimeout = timeout
Try
handleTheRequest(clientSocket)
Catch
Try
clientSocket.Close()
Catch
End Try
End Try
End Function)
requestHandler.Start()
Catch
End Try
End While
End Function)
requestListenerT.Start()
Return True
End Function