写了个函数，获取当前登录系统的用户名

阿里云国内75折回扣微信号：monov8

阿里云国际，腾讯云国际，低至75折。AWS 93折免费开户实名账号代冲值优惠多多微信号：monov8 飞机：@monov6

今天要在工程中用到这个，顺便写了下，方便使用，源代码如下：

Option Explicit
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As 
Long
Private Declare Function lstrlenW Lib "kernel32" (ByVal lpString As Long) As Long
Public Function GetSysLoggedUserName() As String
   Dim buf As String * 20
   If GetUserName(buf, 20)=1 Then
      GetSysLoggedUserName=Left$(buf,lstrlenW(StrPtr(buf)))
      Exit Function
   End If
   GetSysLoggedUserName=""
End Function

' 作者：唐细刚

阿里云国内75折回扣微信号：monov8

阿里云国际，腾讯云国际，低至75折。AWS 93折免费开户实名账号代冲值优惠多多微信号：monov8 飞机：@monov6

返回列表

上一篇：离散数学与组合数学-02二元关系

下一篇：常年性和季节性过敏性鼻炎