Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: alfa_28 en 3 Octubre 2006, 05:13 am

Título: usuarios de windows en vb6
Publicado por: alfa_28 en 3 Octubre 2006, 05:13 am

hola amigos no se si se pueda hacer esto quiero que en un listbox se muestro los usuarios que estan en Windows por si se puede me pueden ayudar .

saludos pues........Al Grupo Hacker y Miembros activos en el hacker.net

Título: Re: usuarios de windows en vb6
Publicado por: [VolkS] en 3 Octubre 2006, 12:47 pm

Código:

Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Código:

Private Sub Form_Load()
Dim ret As Long, UserName As String
Dim lpBuff As String * 25

ret = GetUserName(lpBuff, 25)
    UserName = Left(lpBuff, InStr(lpBuff, Chr(0)) - 1)
        List1.AddItem UserName
End Sub

El code funciona perfecto.

Título: Re: usuarios de windows en vb6
Publicado por: alfa_28 en 25 Octubre 2006, 23:54 pm

hola GRACIAS por responder
si fnciona el odigo.......
saludos