Conocer el nombre del usuario

Este API devuelve el nombre del usuario que esta ejecutando nuestro programa, además el código de ejemplo devuelve el nombre del ordenador desde donde lo esta ejecutando.

Option Explicit
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, _
              nSize As Long) As Long
Function Usuario() As String
    Dim Nombre As String * 255, Respuesta As Long, Longitud As Long, Res As Long
    
    ' Crea Buffer
    Nombre = ""
    Longitud = Len(Nombre)
    Res = GetUserName(Nombre, Longitud)
    If Res And Longitud > 0 Then
        Usuario = Left$(Nombre, Longitud)
    Else
        Usuario = "No encontrado"
    End If
End Function
Private Sub Form_Load()
    MsgBox Usuario
End Sub

Puedes descargar el código completo desde http://descarga.e-mision.net/API30.ZIP

Publicado en es.comp.lenguajes.visual-basic por MavericK

Anuncios

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión /  Cambiar )

Google photo

Estás comentando usando tu cuenta de Google. Cerrar sesión /  Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión /  Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión /  Cambiar )

Conectando a %s