主题：使用内置窗口登陆 默认输入

参考代码

dim UserName as string = "管理员"
For Each u As UserInfo In users
    output.show(u.name)
    If u.name = username Then
        msgbox(u.group)
        msgbox(u.Roles)
    End If
Next