Private
Declare
Function
GetUserName
Lib
"
advapi32.dll
"
Alias
"
GetUserNameA
"
(
ByVal
lpBuffer
As
String
, nSize
As
Long
)
As
Long
Private Sub Command1_Click()
Dim username As String
Dim result As Long
username = String ( 255 , 0 ) ' 分配地址空间
result = GetUserName(username, 255 )
If result <> 0 Then
username = Left (username, InStr (username, Chr ( 0 )) - 1 ) ' 去掉多余的字符
Print username ' 显示用户名
Print Len (username) ' 显示用户名长度
Else
MsgBox ( " 取用户名失败. " )
End If
End Sub
Private Sub Command1_Click()
Dim username As String
Dim result As Long
username = String ( 255 , 0 ) ' 分配地址空间
result = GetUserName(username, 255 )
If result <> 0 Then
username = Left (username, InStr (username, Chr ( 0 )) - 1 ) ' 去掉多余的字符
Print username ' 显示用户名
Print Len (username) ' 显示用户名长度
Else
MsgBox ( " 取用户名失败. " )
End If
End Sub