你好。求问一下GetUserName（）怎么用？

Question

我研究了半天都没成功，再帮我一下。（有钻研精神是好的），跟上一题一样回答。

Answer 1

先声明,再引用.

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

Public Function UserId() As String
Dim sBuffer As String * 10
Dim lReturn
lReturn = GetUserName(sBuffer, 10)
UserId = Left$(sBuffer, InStr(sBuffer, Chr(0)) - 1)
End Function