取登陆用户名

作者:admin 日期:2008-03-24

字体大小: 小中大

方法一
'获取用户名的API函数
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

    On Error Resume Next
    '获取用户名
    Dim sBuffer As String
    Dim lSize As Long
    sBuffer = Space$(255)
    lSize = Len(sBuffer)
    Call GetUserName(sBuffer, lSize)
    If lSize > 0 Then
        txtUserName.Text = Left$(sBuffer, lSize)
    Else
        txtUserName.Text = vbNullString
    End If
-----------------------------------------------------------------

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

Dim st As String * 100
Dim pln As Long
pln = 99
GetUserName st, pln
MsgBox Left$(st, pln)

其实两种方法一样