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