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