comment
IRC Chat
play_arrow
Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

[VB][Undocumented] LoadUserTile() - Obtener la imagen del usuario

  • 5 Respuestas
  • 3110 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado Karcrack

  • *
  • Underc0der
  • Mensajes: 87
  • Actividad:
    0%
  • Reputación 0
  • Se siente observado ¬¬'
    • Ver Perfil
« en: Junio 16, 2013, 06:30:45 pm »
Código: Visual Basic
  1. Option Explicit
  2. 'KERNEL32
  3. Private Declare Function GetVersion Lib "KERNEL32" () As Long
  4. 'SHELL32
  5. Private Declare Function SHGetUserPicturePath Lib "SHELL32" Alias "#261" (ByVal pUserOrPicName As Long, ByVal sguppFlags As Long, ByVal pwszPicPath As Long, ByVal picPathLen As Long) As Long
  6. Private Declare Function xp_SHGetUserPicturePath Lib "SHELL32" Alias "#233" (ByVal pUserOrPicName As Long, ByVal sguppFlags As Long, ByVal pwszPicPath As Long) As Long
  7.  
  8. Private Const SGUPP_CREATEPICTURESDIR = &H80000000
  9.  
  10. Public Function LoadUserTile() As IPictureDisp
  11.     Dim sPath   As String
  12.    
  13.     sPath = String$(256, vbNullChar)
  14.    
  15.     Select Case (GetVersion() And &HFF)
  16.         Case 5
  17.             Call xp_SHGetUserPicturePath(0, SGUPP_CREATEPICTURESDIR, StrPtr(sPath))
  18.         Case 6
  19.             Call SHGetUserPicturePath(0, SGUPP_CREATEPICTURESDIR, StrPtr(sPath), 256)
  20.     End Select
  21.    
  22.     sPath = Left$(sPath, InStr(1, sPath, vbNullChar) - 1)
  23.    
  24.     Set LoadUserTile = LoadPicture(sPath)
  25. End Function

Para probarlo añade un PictureBox en un form:
Código: Visual Basic
  1. Private Sub Form_Load()
  2.     Picture1.Picture = LoadUserTile()
  3. End Sub

Usa un export no documentado de SHELL32.. que varía según el SO en el que estamos... por eso el GetVersion().

saludos
I code for $$$.

(PGP ID 0xCC050E77)
ASM, C, C++, VB6... skilled [malware] developer

Desconectado Danyfirex

  • *
  • Underc0der
  • Mensajes: 22
  • Actividad:
    0%
  • Reputación 0
    • Ver Perfil
« Respuesta #1 en: Junio 20, 2013, 11:08:00 am »
@Karcrack este código es tuyo?


lastima que ya te alejaste del vb6 :(

saludos

Desconectado Karcrack

  • *
  • Underc0der
  • Mensajes: 87
  • Actividad:
    0%
  • Reputación 0
  • Se siente observado ¬¬'
    • Ver Perfil
« Respuesta #2 en: Junio 20, 2013, 12:35:01 pm »
Sí que lo es, sí. En realidad no me he alejado tanto, ahora estoy en asuntos más internos de VB6 jugueteando con el compilador y las librerías.

Aunque veréis poco de esas investigaciones ya que las suelo vender :-\ Seguramente durante el verano suelte alguna cosita ::)

Saludos :)
I code for $$$.

(PGP ID 0xCC050E77)
ASM, C, C++, VB6... skilled [malware] developer

Desconectado Danyfirex

  • *
  • Underc0der
  • Mensajes: 22
  • Actividad:
    0%
  • Reputación 0
    • Ver Perfil
« Respuesta #3 en: Junio 20, 2013, 03:26:03 pm »
No tienes permisos para ver links. Registrate o Entra con tu cuenta
Sí que lo es, sí. En realidad no me he alejado tanto, ahora estoy en asuntos más internos de VB6 jugueteando con el compilador y las librerías.

Aunque veréis poco de esas investigaciones ya que las suelo vender :-\ Seguramente durante el verano suelte alguna cosita ::)

Saludos :)

para mi lo externo por ahora es demasiado  :(

que bien que andes todavía en el vb y que le saques provecho.  ;D


Todavía ando esperando el paper del que hablaste una vez que comenzaste y nunca terminaste.


saludos  Karcrack

Desconectado Karcrack

  • *
  • Underc0der
  • Mensajes: 87
  • Actividad:
    0%
  • Reputación 0
  • Se siente observado ¬¬'
    • Ver Perfil
« Respuesta #4 en: Junio 20, 2013, 03:44:47 pm »
No tienes permisos para ver links. Registrate o Entra con tu cuenta
Todavía ando esperando el paper del que hablaste una vez que comenzaste y nunca terminaste.
Tenía un índice y todo... Ha pasado muchísimo tiempo, he aprendido mucho desde entonces. Ahora me quedaría un paper muy largo jaja

A ver si alguna calurosa noche de verano me viene la inspiración  :P
I code for $$$.

(PGP ID 0xCC050E77)
ASM, C, C++, VB6... skilled [malware] developer

Desconectado Danyfirex

  • *
  • Underc0der
  • Mensajes: 22
  • Actividad:
    0%
  • Reputación 0
    • Ver Perfil
« Respuesta #5 en: Junio 20, 2013, 04:06:26 pm »
No tienes permisos para ver links. Registrate o Entra con tu cuenta
No tienes permisos para ver links. Registrate o Entra con tu cuenta
Todavía ando esperando el paper del que hablaste una vez que comenzaste y nunca terminaste.
Tenía un índice y todo... Ha pasado muchísimo tiempo, he aprendido mucho desde entonces. Ahora me quedaría un paper muy largo jaja

A ver si alguna calurosa noche de verano me viene la inspiración  :P


Ojala haya mucho calor jajajaajajaja. a ver si lo terminas.

el vb6 es viejo pero varios lo han mágico. ¬¬ a ver que magia negra sacas ahorita.


saludos compa.



PD: hace falta un chat room.






 

¿Te gustó el post? COMPARTILO!



Obtener información de una partición de disco

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1192
Último mensaje Julio 26, 2010, 12:28:10 pm
por ANTRAX
Cómo colocar una imagen de fondo ajustada a la ventana en un MDI

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1569
Último mensaje Julio 26, 2010, 04:17:32 pm
por ANTRAX
Efecto Agua en Imagen

Iniciado por Danyfirex

Respuestas: 1
Vistas: 2218
Último mensaje Septiembre 28, 2013, 11:07:52 am
por brais95
Imprimir una imagen

Iniciado por ANTRAX

Respuestas: 0
Vistas: 2767
Último mensaje Marzo 25, 2012, 09:59:01 am
por ANTRAX
Autentificar Usuario y password (con referencia a bd)

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1183
Último mensaje Julio 26, 2010, 01:59:02 pm
por ANTRAX