先声明,再引用.Public Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nsize As Long) As LongPublic Function UserId() As StringDim sBuffer As String * 10Dim lReturnlReturn = GetUserName(sBuffer, 10)UserId = Left$(sBuffer, InStr(sBuffer, Chr(0)) - 1)End Function