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
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
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.
hola GRACIAS por responder
si fnciona el odigo.......
saludos