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 StringDim lSize As LongsBuffer = Space(20) ‘API函数中字符串作参数,需要提前声明大小lSize = 20Call GetUserName(sBuffer, lSize)Print sBufferPrint lSizeEnd Sub说明:
在没调用GetUserName之前,sBuffer只是一个20长度的字符串,lSize 只是一个数值20在调用GetUserName之后,sBuffer是:计算机用户名(SHUANG)+1个字符(口),lSize 的值是:7(7是计算机用户名的长度+字符长度)
运行结果为: