机房收费系统之获取当前计算机用户名

首先,在模块中引用API函数GetUserName。

Public Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

然后在窗体中加载一下就可以了:

Private Sub Form_Load()
    Dim sBuffer As String      '缓存
    Dim lSize As Long
    
    sBuffer = Space$(255)    '给sBuffer预留255字节的空间,是起缓冲的作用
    lSize = Len(sBuffer)      'sBuffer串的长度, API字符串做参数,需要提前确定其大小
    
    Call GetUserName(sBuffer, lSize)   '读取用户名到sBuffer中
    If lSize > 0 Then     '如果用户名长度大于0
        MsgBox Left$(sBuffer, lSize)    '取用户名
    Else
        MsgBox vbNullString              '为空字符串
    End If
    
End Sub


你可能感兴趣的:(机房收费系统之获取当前计算机用户名)