登陆窗体中的getusername函数

 getusername函数的功能为：

 返回值：

 如果函数调用成功，则返回值为一个非0值，反之则为0值。

lpbuffer

     接收缓冲区的指针，该用户的登录名。

nsize

    输入此变量的大小

（具体的细节可查找MSDN:http://msdn.microsoft.com/en-us/library/ms724432(VS.85).aspx）

下面是一个登陆窗体的代码

  

Private 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)  '为用户名设置空间，255个空字符串
    lSize = Len(sBuffer)             '为用户名设置长度
    Call GetUserName(sBuffer, lSize)          '读取用户名
    If lSize > 0 Then
        txtUserName.Text = left(sbuffer,lsize)   '获取用户名
 
    Else
        txtUserName.Text = vbNullString    '空的字符串
    End If
    
    OK = False
    miCount = 0
End Sub

这个函数是获得我们电脑系统的用户名。举个例子来说，就是我们在开机我们自己的电脑到时的，登陆用户名。