简单HTTP服务

最新推荐文章于 2024-03-14 11:52:28 发布

zjkqxjsxb

最新推荐文章于 2024-03-14 11:52:28 发布

阅读量815

点赞数

分类专栏： vb2008学习笔记文章标签： class each 防火墙 string c

本文链接：https://blog.csdn.net/zjkqxjsxb/article/details/6147221

版权

vb2008学习笔记专栏收录该内容

7 篇文章 0 订阅

订阅专栏

Imports System.Net Public Class Form1 Dim listener As HttpListener Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load listener = New System.Net.HttpListener() listener.AuthenticationSchemes = AuthenticationSchemes.Anonymous 'listener.Prefixes.Add("http://127.0.0.1:1234/") listener.Prefixes.Add("http://10.54.2.139:8000/") 'listener.Prefixes.Add("http://localhost：1234/") For Each m In listener.Prefixes Debug.Print(m.ToString) Next listener.Start() For i = 1 To 5 Dim ht As HttpListenerContext ht = listener.GetContext() Dim resStr As String Dim resp As HttpListenerResponse Dim bf Dim c As Long resp = ht.Response resp.StatusCode = 200 resStr = "<html><body>URL:" & ht.Request.Url.ToString & "</body></html>" bf = System.Text.Encoding.GetEncoding("gb2312").GetBytes(resStr) c = UBound(bf) - LBound(bf) + 1 Debug.Print(c) resp.ContentLength64 = c resp.OutputStream.Write(bf, 0, c) 'resp.OutputStream.Close() Next End Sub End Class

需要注意，首先如果在listener.Start时出错，应该修改端口号，可能是端口已被占用。

如果局域网中无法访问，应检查防火墙设置。

win7下程序需要以管理员身份运行。

通过cookie判断一个持续的连接。

当一个连接到达时，先判断是否含有特定的cookie(如sid)，若不包含则设置cookie为一个随即字符串

For Each s In ht.Request.Cookies If s.name = "sid" Then Dim cid cid = Rand16Digit() resp.SetCookie(New Cookie("sid", Rand16Digit)) End If Next

返回一个图片或其他内容，应设置contentType

resp = ht.Response resp.StatusCode = 200 resp.ContentType = "image/jpeg" Dim BFP = System.IO.File.ReadAllBytes("d:/sunset.jpg") resp.ContentLength64 = BFP.Count resp.OutputStream.Write(BFP, 0, BFP.Count)