VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 重新获得Windows用户名
发表评论(0)作者:BUILDER.COM, 平台:VB6.0+Win98, 阅读:14595, 日期:2003-08-29
    许多软件需要找回当前的用户名。这样做也许是用来确认用户是否在批准的用户列表上,用来检查安全性,或者是定制应用软件。

你用GetUserName API命令很容易就可以得到这个信息。API返回当前登陆的用户名。


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


第一个API参数是一个用来存放用户名的字符串变量。这个字符串必须至少比最长的用户名还长一个字符。第二个参数返回用户名的实际长度,在字符串的末尾添加一个字符来说明空字符。


Dim strUsername As String
Dim lngUserNameSize As Long

lngUserNameSize = 30
strUsername = String(lngUserNameSize + 1, 0)
If (GetUserName(strUsername, lngUserNameSize) = 1) Then
strUsername = Mid(strUsername, 1, lngUserNameSize - 1)
Else
strUsername = vbNullString
End If

Text1.Text = strUsername




当用户通过Windows注册后,这个操作只返回有效的信息。