Sección de código fuente Visual basic

Código fuente de un extractor de íconos

Simple código para poder visualizar y extrar de archivos Exe o Dll los íconos que contiene y poder guardarlos como Bmp

El ejemplo usa las funciones del Api ExtractIconEx y DrawIconEx. La primer función es la que extrae los iconos y la segunda los dibuja en los picturebox

Luego para guardarlos como bmp, se usa el método SavePicture, pasándole la propiedad Image del picturebox

Nota: al final de la página hay otro ejemplo similar, pero este último guarda el ícono extraido a formato .ico, ya que el primer ejemplo exporta la imagen a BMP

Formulario

formulario para visualizar y extraer los icon

Controles

Añadir un text1 para mostrar el path del archivo exe o dll
Un control CommonDialog
Un Command1 para Abrir
Un Command2 para guardar los iconos como gráfico bmp
Un Command3 para mostrar el anterior ícono
Un Command4 para el siguiente
Dos pictureBox. El picture1 visualiza los de 32x32 pixeles, el Picture2 los de 16x16 pixeles.

Código fuente en el formulario

Option Explicit ' declaración de funciones api '''''''''''''''''''''''''''''''''''''''''''' Private Declare Function ExtractIconEx Lib "shell32.dll" Alias "ExtractIconExA" ( _ ByVal lpszFile As String, _ ByVal nIconIndex As Long, _ phiconLarge As Long, _ phiconSmall As Long, _ ByVal nIcons As Long) As Long Private Declare Function DrawIconEx Lib "user32" ( _ ByVal hdc As Long, _ ByVal xLeft As Long, _ ByVal yTop As Long, _ ByVal hIcon As Long, _ ByVal cxWidth As Long, _ ByVal cyWidth As Long, _ ByVal istepIfAniCur As Long, _ ByVal hbrFlickerFreeDraw As Long, _ ByVal diFlags As Long) As Long ' variables y constantes ''''''''''''''''''''''''''''''''''''''''' Dim icon_index As Integer Dim glLargeicons() As Long Dim glsmallicons() As Long Dim Total As Integer Private Const DI_NORMAL = 3 Dim ram As New Shell Dim Path As String Const large_icon = 32 Const small_icon = 16 Private Sub Command1_Click() With CommonDialog1 .DialogTitle = " Seleccionar archivo para extraer Los Icon " ' Filtro de extensiones (Archivos exe y archivos Dll) .Filter = "Archivos ejecutables (*.exe) | *.exe|Archivos dll " & _ "(*.dll) | *.dll" ' abre el cuadro de diálogo .ShowOpen End With If Not CommonDialog1.FileName = "" Then On Error GoTo Error_Sub: Text1 = CommonDialog1.FileName icon_index = 0 'Almacena el Número total de íconos Total = ExtractIconEx(CommonDialog1.FileName, -1, 0, 0, 0) ' No hay icon If Total = 0 Then GoTo Error_Sub ' redimensiona el vector ReDim glsmallicons(Total) ReDim glLargeicons(Total) ' guarda la ruta del archivo Path = CommonDialog1.FileName ' visualiza el ícono en los picturebox Call Ver_Icono End If Exit Sub ' error Error_Sub: MsgBox " Este archivo no contiene íconos", vbInformation Me.Caption = " 0 Iconos en este archivo " Picture1.Picture = Nothing Picture2.Picture = Nothing Picture3.Picture = Nothing Picture4.Picture = Nothing End Sub ' Botón que guarda el ícoo como bmp ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Private Sub Command2_Click() 'guarda el Icono de 32 x 32 pixeles With CommonDialog1 .FileName = "" .DialogTitle = " Guardar ícono de 32x32" .Filter = "Archivo Bmp (*.bmp) | *.bmp" .DefaultExt = "bmp" .FileName = "Icono 32 x 32" .ShowSave If .FileName <> "" Then 'lo guarda como bmp SavePicture Picture2.Image, CommonDialog1.FileName Call Ver_Icono MsgBox "Icono de 32x32 guardado como bmp !! ", vbInformation End If End With 'guarda el Icono de 16 x 16 pixeles With CommonDialog1 .FileName = "" .DialogTitle = " Guardar ícono de 16x16" .Filter = "Archivos Bmp (*.bmp) | *.bmp" .DefaultExt = "bmp" .FileName = "Icono 16 x 16" .ShowSave If .FileName <> "" Then 'lo guarda como bmp SavePicture Picture1.Image, CommonDialog1.FileName Call Ver_Icono MsgBox "Icono de 16x16 guardado como bmp !! ", vbInformation End If End With End Sub ' Botón que visualiza el ícono anterior ''''''''''''''''''''''''''''''''''''''''''''''''' Private Sub Command3_Click() If icon_index <= Total And icon_index > 0 Then icon_index = icon_index - 1 Call Ver_Icono End If End Sub ' Botón que visualiza el siguiente ícono ''''''''''''''''''''''''''''''''''''''''''''''''' Private Sub Command4_Click() If icon_index + 1 < Total Then icon_index = icon_index + 1 Call Ver_Icono End If End Sub Private Sub Form_Load() Picture1.Height = large_icon * Screen.TwipsPerPixelY Picture1.Width = large_icon * Screen.TwipsPerPixelX Picture2.Height = small_icon * Screen.TwipsPerPixelY Picture2.Width = small_icon * Screen.TwipsPerPixelX Picture1.BorderStyle = 0 Picture2.BorderStyle = 0 Picture1.AutoRedraw = True Picture2.AutoRedraw = True Command1.Caption = "Abrir dll o Exe" Command4.Caption = ">" Command3.Caption = "<" Command2.Caption = "Guardar iconos" End Sub ' Rutina que extrae los íconos y los visualiza en los picture ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Public Sub Ver_Icono() Call ExtractIconEx(Path, icon_index, glLargeicons(icon_index), _ glsmallicons(icon_index), 1) With Picture1 .Cls .Picture = LoadPicture("") ' copia el de 32x32 en el picture2 Call DrawIconEx(.hdc, 0, 0, glLargeicons(icon_index), _ large_icon, large_icon, 0, 0, DI_NORMAL) .Refresh End With With Picture2 .Cls .Picture = LoadPicture("") ' copia el de 16x16 en el picture2 Call DrawIconEx(.hdc, 0, 0, glsmallicons(icon_index), _ small_icon, small_icon, 0, 0, DI_NORMAL) .Refresh End With ' visualiza en el caption del formulario el ícono actual y la cantidad Me.Caption = "Número de íconos : ( " & icon_index + 1 & " de " & Total & " )" End Sub

Otro Extractor de ícono

Este código fuente fue realizado y enviado por Helmuth Schmelzer Campos, y también permite seleccionar un archivo exe o dll, y poder ver los iconos que contiene, con la opción de copiarlo o guardarlo a forma .ico

Vista previa del formulario

formulario para visualizar los iconos de los dll y exe

Descargar código fuente

Recursos vb.net - Enlaces relacionados

Visualizador de gráficos e imágenes programado en visual basic.net 2005

Recursos vb6 - Relacionados

Buscar en Recursos vb