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

首先，在模块中引用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