1、在服务端项目的HttpRequest事件中设置代码：

Dim Verified As Boolean
If e.Cookies.ContainsKey("username") AndAlso e.Cookies.ContainsKey("password") Then
    \'实际开发的时候,请改为根据用户表验证身份
    Dim username As String  = e.Cookies("username")
    Dim password As String  = e.Cookies("password")
    If username = "张三" AndAlso password = "888" Then
        Verified  = True
    End If
End If
If Verified = False Then
    e.AppendCookie("error","用户身份验证失败!") \'通过Cookie返回错误信息.
    Return
End If
Select Case e.Path
    Case "gettime.htm"
        e.WriteString(Date.now)
End Select

2、在客户端项目的命令窗口运行以下代码，可以获取服务器时间：

Dim hc As New HttpClient("http://127.0.0.1/gettime.htm")
hc.sCookies.Add("username","张三")
hc.sCookies.Add("password","888")