减小字体
增大字体- ·上一篇文章：VB串口使用心得两则
- ·下一篇文章：使用ICloneable接口来支持深度复制
重新获得Windows用户名
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
喜欢这些内容嘛，请告诉你身边的朋友，易下载中心－QQ资源－itnetcn.com一起享受这份乐趣，本站内容来源互联网
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
喜欢这些内容嘛，请告诉你身边的朋友，易下载中心－QQ资源－itnetcn.com一起享受这份乐趣，本站内容来源互联网
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
许多软件需要找回当前的用户名。这样做也许是用来确认用户是否在批准的用户列表上，用来检查安全性，或者是定制应用软件。
你用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注册后，这个操作只返回有效的信息。
-
