Imports System.Net
Imports System.Net.Sockets
Imports System.Threading
Module monkeyServer
Private Const HttpVersion As String = "HTTP/1.1"
Private Const WebTitle As String = "<head><title>Monkey Server</title></head>"
Private ReadOnly ReasonPhrase4() As String = {"Bad Request", "Unauthorized", "", "Forbidden", "Not Found", " Method Not Allowed", "Not Acceptable"}
Private ReadOnly HeadTail() As Byte = {13, 10}
Private Function responseGet(ByVal localURI As String) As String
Return "<html>" & WebTitle & "<body>response for GET method:" & localURI & "</body></html>"
End Function
Private Sub MonkeyClient(ByVal client As Socket)
Dim clientBytes(4096) As Byte
Dim headBytes() As Byte
Dim responseBytes() As Byte
Dim requestHeads() As String
Dim requestLine() As Strin
VB.NET多线程Socket实现简单HTTP服务
最新推荐文章于 2021-02-11 12:15:26 发布
这个博客展示了如何使用VB.NET实现一个多线程的Socket HTTP服务器。通过MonkeyServer模块,程序监听指定的IP地址和端口,接收客户端请求,并根据HTTP方法返回不同的响应。代码中详细处理了HTTP请求头的解析,包括GET方法的响应,以及错误状态码的处理。
摘要由CSDN通过智能技术生成