本文中，演示了使用DSAPI.网络相关.HTTP监听，快速建立服务端和客户端。
HTTP监听服务端的作用，是监听指定计算机端口，以实现与IIS相同的解析服务，提供客户端的网页请求，当然，这不仅仅是应用在网页方面。
DSAPI.网络相关.HTTP监听支持事件，在声明时，可使用WithEvents来使用其事件支持。
建立一个HTTP监听服务端
' 声明一个服务端
Private WithEvents 服务端 As New DSAPI.网络相关.HTTP监听
With 服务端
.绑定端口 = 2000 '要监听的端口
.参数前导符 = "DSAPI" '当使用参数前导符时，要追加的字串
.允许外网连接 = True '是否允许外网连接，如果为False，来自外网的http请求一律被拦截和丢弃
.使用参数前导符 = True '是否使用参数前导符
.启动监听() '开始监听
End With
绑定端口，这个不必多说，大家都知道。
参数前导符，是用来防止恶意请求，该前导符是追加在域名之后的，如客户端请求的域名是http://127.0.0.1:2000/DSAPI，则视为合法请求，否则服务端将拦截并丢弃。如果不使用参数前导符，则http://127.0.0.1:2000/ 被视为合法请求，并且无论后面追加的是什么内容，均接受，但不处理。
允许外网连接，开启此项后，只接收同网段IP客户端的http请求，其余请求被拦截或丢弃。
支持的事件
Private Sub 服务端_监听已启动() Handles 服务端.监听已启动
End Sub
Private Sub 服务端_监听已停止() Handles 服务端.监听已停止
End Sub
Private Sub 服务端_收到被阻止的客户端请求(客户端 As DSAPI.网络相关.HTTP监听.监听客户端) Handles 服务端.收到被阻止的客户端请求
End Sub
Private Sub 服务端_收到客户端请求(客户端 As DSAPI.网络相关.HTTP监听.监听客户端) Handles 服务端.收到客户端请求
End Sub
Private Sub 服务端_遇到错误(错误 As Exception) Handles 服务端.遇到错误
End Sub监听已启动：当服务端启动监听并且监听成功时触发。
监听已停止：当服务端停止监听并且监听停止时触发。
收到被阻止的客户端请求：当一些不合法的http请求，如关闭允许外网连接情况下收到外网的请求，或开启前导符验证时收到没有正确前导符URL的请求时触发。
服务端_收到客户端请求：客户端http请求合法，并发来数据时触发。
服务端_遇到错误：服务端在启动监听、运行、停止监听过程中遇到一些意外时触发。
在收到客户端请求事件中，参数为封装了客户端请求信息的一个类，该类里包含所有与该客户端有关的信息。
以下演示当收到合法的客户端http请求时进行响应。
Private Sub 服务端_收到客户端请求(客户端 As DSAPI.网络相关.HTTP监听.监听客户端) Handles 服务端.收到客户端请求
Dim Rd As New IO.StreamReader(客户端.输入流)
Dim S As String = Rd.ReadToEnd
Select Case S
Case "hello"
服务端.写入信息到指定客户端输出流(客户端, "Hello,my friend")
Case "get"
服务端.写入信息到指定客户端输出流(客户端, IO.File.ReadAllBytes("c:\1.rar"))
Case Else
服务端.写入信息到指定客户端输出流(客户端, "No command here")
End Select
End Sub上述代码中，"hello","get"都是从客户端的输入流输入的，这些内容均不会直接在url中显示出现，确保安全性。
以下演示建立一个Http请求客户端
Private Function 发送数据(网址 As String, 端口 As String, 前导参数 As String, 发送内容 As String) As String
'---------建立请求并发送内容
Dim R As Net.HttpWebRequest = Net.HttpWebRequest.Create(网址 & ":" & 端口 & "/" & 前导参数)
Dim Bts() As Byte = System.Text.Encoding.Default.GetBytes(发送内容) '内容编码成数组
R.Method = "POST" 'POST方式，可忽略
R.ContentLength = Bts.Length '发送内容长度
R.ContentType = "text/xml" '发送内容为文本
R.GetRequestStream.Write(Bts, 0, Bts.Length) '向输入流输出内容
'----------获取返回内容
Dim Rd As New IO.StreamReader(R.GetResponse.GetResponseStream)
Dim S As String = Rd.ReadToEnd '读取流内容
Rd.Close()
Return S
End Function调用获取服务返回数据
方式1：
MsgBox(发送数据("http://127.0.0.1", 2000, "DSAPI", "hello"))
方式2：
直接使用浏览器访问http://127.0.0.1:2000 /DSAPI，但注意，浏览器无法手动输入提交内容，所以上述服务端中可判断请求内容是否为空。该方法可以实现返回一个网页数据，以直接在客户端浏览器中显示。