Windows API:GetUserName的用法

 

 

说明:取得当前用户的名字

库名:advapi32.dll

分类:硬件与系统函数

实例:获得当前windows登录的用户名

Option Explicit

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

Private Sub Form_Load()
  Dim str As String
  Dim cnt As Long
  Dim dl As Long
  Dim CurUser As String
  cnt = 199
  s = String$(200, 0)
  dl = GetUserName(str, cnt)
  Debug.Print dl <> 0, "当前用户=" & Left$(str, cnt), "当前用户="
End Sub