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