send
Grupo de Telegram
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
  • 2872 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 »
You are not allowed to view links. You are not allowed to view links. Register or Login or You are not allowed to view links. Register or Login
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 »
You are not allowed to view links. You are not allowed to view links. Register or Login or You are not allowed to view links. Register or Login
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 »
You are not allowed to view links. You are not allowed to view links. Register or Login or You are not allowed to view links. Register or Login
You are not allowed to view links. You are not allowed to view links. Register or Login or You are not allowed to view links. Register or Login
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: 1068
Ú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: 1455
Último mensaje Julio 26, 2010, 04:17:32 pm
por ANTRAX
Efecto Agua en Imagen

Iniciado por Danyfirex

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

Iniciado por ANTRAX

Respuestas: 0
Vistas: 2626
Ú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: 1046
Último mensaje Julio 26, 2010, 01:59:02 pm
por ANTRAX