Obtener imagen del usuario

[under!!!]

Pues mas que nada eso alguien sabe como obtener la imagen del usuario que ha iniciado sesion.

[LeandroA]

Supongo que te refiers a la imagen que se pone en el menu inicio de windows

Código [Seleccionar] Expandir


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

Private Sub Form_Load()

Me.Picture = LoadPicture(GetUserImage)

End Sub


Private Function GetUserImage() As String
On Error Resume Next
Dim StrUserName As String, El_Objeto As Object
   
StrUserName = String(100, Chr$(0))
GetUserName StrUserName, 100
StrUserName = Left$(StrUserName, InStr(StrUserName, Chr$(0)) - 1)

Set El_Objeto = CreateObject("WScript.Shell")

GetUserImage = El_Objeto.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Hints\" & StrUserName & "\PictureSource")
End Function


Saludos

[under!!!]

Muchas gracias, no sabes como me has ayudado