簡單HTTP服務

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)

python gdal 安裝使用（Windows， python 3.6.8）

讀取一封郵件

使用shell32.dll獲取瀏覽器相關信息

vb2010中ComboBox的item用法

vc中調用python代碼

access中使用自己編寫的函數

Mac下配置sublime實現LaTeX

https://yachay.unat.edu.pe/blog/index.php?comment_area=format_blog&comment_component=blog&comment_co

linux以太網驅動總結