Windows硬件系统函数 - GetUserName

VB声明Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long说明取得当前用户的名字返回值Long，TRUE（非零）表示成功，否则返回零。会设置GetLastError参数表参数类型及说明lpBufferString，一个字串缓冲区，预先初始化成由nSize指定的长度。它将用于容纳用户名nSizeLong，初始化成lpBuffer的长度。返回以后，它会包含载入lpBuffer的字符数量示例

Dim s$, cnt&, dl&
cnt& = 199
s$ = String$(200,0)
dl& = GetUserName(s$, cnt)
Debug.Print Left$(s$, cnt); cnt