API函数之GetUserName

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

一.作用

获得当前用户的名字（是用该台计算机的当前用户的名字，假如现在该台计算机有3名SUN,ZHAO,WANG,当SUN用该台计算机时，返回的的就是SUN）

二.入口参数说明

lpBuffer：string类型，是一个字串缓冲区，预先初始化成由nSize指定的长度，用于容纳用户名

nSize：Long类型，初始化成lpBuffer的长度，返回以后，它会包含载入lpBuffer的字符数量。

三.举例说明(以本机为例)

编写代码：

Private Sub Command1_Click()

Dim sBuffer As String      

Dim lSize As Long

sBuffer = Space(20)  ‘API函数中字符串作参数，需要提前声明大小 

lSize = 20

Call GetUserName(sBuffer, lSize)

Print sBuffer

Print lSize

End Sub

说明：

在没调用GetUserName之前，sBuffer只是一个20长度的字符串，lSize 只是一个数值20

在调用GetUserName之后，sBuffer是：计算机用户名（SHUANG）+1个字符（口），lSize 的值是：7（7是计算机用户名的长度+字符长度）

运行结果为：