DSAPI 网页获取本地程序登陆用户

这是一个非常简单的示例，在网页或其他平台获取程序中已经登陆的用户，当然也可以是其他信息。

源码

imports dsapi.网络.http监听_dswebapi

public class form1
    private withevents sv as new dsapi.网络.http监听_dswebapi with {.绑定端口 = 83, .自定义首页文件路径 = ""}
    private username as string = ""
    private password as string = ""
    private sub form1_load(sender as object, e as eventargs) handles mybase.load
        sv.启动监听()
    end sub

    private sub sv_收到客户端请求(客户端 as dsapi.网络.http监听_dswebapi.webapi客户端, 键值列表 as dsapi.网络.http监听_dswebapi.键值列表, byref 返回信息 as string, byref 返回数据() as byte) handles sv.收到客户端请求
        if 键值列表 is nothing orelse 键值列表.count = 0 then exit sub
        dim 键值 as 键值 = 键值列表("user")
        if 键值 is nothing then 返回信息 = "no" : exit sub '或返回一个登陆页面
        if username.length = 0 then
            返回信息 = "当前没有用户登陆"
        else
            返回信息 = string.concat("当前已登陆用户:", username)
        end if
    end sub

    private sub button1_click(sender as object, e as eventargs) handles button1.click
        username = textbox1.text
        password = textbox2.text
    end sub
end class