Saiba o nome do usuário que está usando a sua aplicação.
Podemos usar essa funcionalidade para uma conexão automática, ou solicitação de identificação para acesso. Inclui API.
Private Declare Function GetUserName Lib "advapi32.dll" Alias _ "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long Function GetUser() As String Dim UserName As String ' receives name of the user Dim slength As Long ' length of the string Dim RetVal As Long ' return value UserName = Space(255) ' room for 255 characters slength = 255 ' initialize the size of the string RetVal = GetUserName(UserName, slength) ' slength is now the length of the returned string UserName = Left(UserName, slength - 1) ' extract the returned info from the buffer User = UserName End Function
Deixe os seus comentários! Envie este artigo, divulgue este link na sua rede social...
Tags: VBA, API, DLL, api32.dll,
