·
CNET科技资讯网
·
中小企业
·
行业联盟网站
·
探客网
首页
|
网络
|
安全
|
存储
|
服务器
|
软件
|
桌面
|
产品库
|
渠道
|
开发
|
CIO
|
白皮书
|
管理软件
|
新闻
|
下载
|
社区
崛起的中国，日益重要的CFO角色
IBM Rational软件创新论坛 Innovate 2010
搜索业陷入混战 传阿里巴巴9月推电子商务搜索
软件频道
>
操作系统
>
Windows
>
重新获得Windows用户名
重新获得Windows用户名
ZDNet软件频道 时间：2003-02-26 作者：BUILDER.COM |
我要评论(
)
本文关键词：
vbtips
许多软件需要找回当前的用户名。这样做也许是用来确认用户是否在批准的用户列表上，用来检查安全性，或者是定制应用软件。你用GetUserName API命令很容易就可以得到这个信息。API返回当前登陆的用户名。
许多软件需要找回当前的用户名。这样做也许是用来确认用户是否在批准的用户列表上，用来检查安全性，或者是定制应用软件。
你用
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注册后，这个操作只返回有效的信息。
许多软件需要找回当前的用户名。这样做也许是用来确认用户是否在批准的用户列表上，用来检查安全性，或者是定制应用软件。 
