Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Lilian Butkevicis

Capturar usuário

Recommended Posts

use essa API:

Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As LongFunction GetNameofUser() As String 'RETORNA USERNAME DO PC   Dim Buff As String   Dim Sze As Long   Buff = Space$(255)   Sze = 255   GetUserName Buff, Sze   GetNameofUser = Left$(Buff, Sze)End FunctionPrivate Sub Form_Load()MsgBox GetNameofUserEnd Sub

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.