aide extrator icon

Version imprimable

1 pièce(s) jointe(s)

aide extrator icon

bonjour , j'ai creer un logiciel qui extraire les icon des fichier exécutable. Mais voila j'ai un petite probleme quans je extraire icon l'image n'est pas correcte.
dans mon projet:
openfiledialog
savefiledialog
textbox 1 et 2
3 button
voici une partie de mes codes pour extraction:
Code:

1 2 3 4 5 6 7 8 9 10 Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click Dim bm As New Bitmap(PictureBox1.Image) Dim ico As Icon = Icon.FromHandle(bm.GetHicon) Dim fs As New System.IO.FileStream(".ico", IO.FileMode.CreateNew) ico.Save(fs) fs.Close() MsgBox("L'icone à bien été copier !", MsgBoxStyle.OkOnly, "Réussi!") TextBox1.Clear() TextBox2.Clear() End Sub
comment on fait pour extraire icon correctement comme Mozilla?
voici en image mon projet + la différence couleur de icon.

09/06/2013, 20h44
gta126

Bonjour,

Ce problème est du au faut que lorsque vous extrayez l'icône de l'exécutable, vous n'extrayez pas la version 32 bits de l'icône.

voici un lien qui pourrait vous aidez http://social.msdn.microsoft.com/For...3-e24c1f95f95b. Le code de ce lien utilise la fonction ExtractIcon de l'API Windows

1 pièce(s) jointe(s)

bonjour, je voudrais savoir comment on fait pour afficher la taille d'un fichier.
comme ex : octet, ko, Mo, Go
voici mes codes :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Dim lire As String
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim OpenFileDialog1 As New OpenFileDialog()
        OpenFileDialog1.Filter = "All Files (*.*)|*.*"
        If DialogResult.OK = OpenFileDialog1.ShowDialog Then
            TextBox1.Text = OpenFileDialog1.FileName
            Label2.Text = Path.GetFileName(OpenFileDialog1.FileName)
            PictureBox1.Image = Icon.ExtractAssociatedIcon(TextBox1.Text).ToBitmap
        End If
    End Sub
Private Sub valeur(ByVal Taille As String)
        If Taille < 1024 Then
            lire = Taille & " Octets"
        ElseIf Taille >= 1024 And Taille < 1048576 Then
            lire = ((Taille / 1024) & 2) & " Ko"
 
        ElseIf Taille >= 1048576 And Taille < 1073741824 Then
            lire = ((Taille / 1048576) & 2) & " Mo"
 
        ElseIf Taille >= 1073741824 And Taille < 1099511627776 Then
            lire = ((Taille / 1073741824) & 2) & " Go"
        End If
    End Sub

dans label4.text , je voudrais afficher la taille du fichier.comment on pourrais ecrit. merci
voici en image mon projet:

10/06/2013, 16h30
gta126

Vous devez utiliser la taille en octet et la diviser par 1024.

Utilisez l'opérateur de division entiere (\ en C#) et de modulo (% en C#). Je ne les connais pas en VB.NET.

1 pièce(s) jointe(s)

voila , j'ai trouver une partie de solution a mon probleme. mais voila , comment je peux avoir la bonne taille des fichiers.
voici mes codes:
Code:

1 2 3 4 5 6 7 8 9 10 Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click Dim OpenFileDialog1 As New OpenFileDialog() OpenFileDialog1.Filter = "All Files (*.*)|*.*" If DialogResult.OK = OpenFileDialog1.ShowDialog Then TextBox1.Text = OpenFileDialog1.FileName Label2.Text = Path.GetFileName(OpenFileDialog1.FileName) Label4.Text = ((OpenFileDialog1.FileName.Length / "1").ToString & " Ko") PictureBox1.Image = Icon.ExtractAssociatedIcon(TextBox1.Text).ToBitmap End If End Sub
comme vous voyer normalement le fichier.txt ça taille , il dois être 1 octets
mais avec mon programme me donne une taille différent. comment on peut corriger dans label4.texte
voici en image:

1 pièce(s) jointe(s)

bonjour, j'ai modifier mon codes mais il me donne comme une erreur.
mes codes:

Code:

1
2
3
4
5
6
7
8
9
10
11
Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click
        Dim bm As New Bitmap(PictureBox1.Image)
        Dim fs As New System.IO.FileStream(copier & ".ico", IO.FileMode.CreateNew)
        bm.Save(fs, System.Drawing.Imaging.ImageFormat.Icon)
        fs.Close()
        MsgBox("L'icone à bien été copier !", MsgBoxStyle.OkOnly, "Réussi!")
        TextBox1.Clear()
        TextBox2.Clear()
        Label2.Text = Nothing
        PictureBox1.Image = Nothing
    End Sub

peut-il corriger mon probleme . merci
voici en image

Bonjour,
Tu mets un msgbox déjà pour voir ce que c'est ce 'Copier'

Code:

1
2
3
4
5
6
7
8
9
10
Dim bm As New Bitmap(PictureBox1.Image)
        MsgBox(copier)
        Dim fs As New System.IO.FileStream(copier & ".ico", IO.FileMode.CreateNew)
        bm.Save(fs, System.Drawing.Imaging.ImageFormat.Icon)
        fs.Close()
        MsgBox("L'icone à bien été copier !", MsgBoxStyle.OkOnly, "Réussi!")
        TextBox1.Clear()
        TextBox2.Clear()
        Label2.Text = Nothing
        PictureBox1.Image = Nothing

Citation:

Envoyé par hacker59

bonjour, j'ai modifier mon codes mais il me donne comme une erreur.
mes codes:

Code:

1
2
3
4
5
6
7
8
9
10
11
Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click
        Dim bm As New Bitmap(PictureBox1.Image)
        Dim fs As New System.IO.FileStream(copier & ".ico", IO.FileMode.CreateNew)
        bm.Save(fs, System.Drawing.Imaging.ImageFormat.Icon)
        fs.Close()
        MsgBox("L'icone à bien été copier !", MsgBoxStyle.OkOnly, "Réussi!")
        TextBox1.Clear()
        TextBox2.Clear()
        Label2.Text = Nothing
        PictureBox1.Image = Nothing
    End Sub

peut-il corriger mon probleme . merci
voici en image

1 pièce(s) jointe(s)

bonjour,
voici mes ancien codes:
Code:

1 2 3 4 5 6 7 Dim bm As New Bitmap(PictureBox1.Image) Dim ico As Icon = Icon.FromHandle(bm.GetHicon) Dim fs As New System.IO.FileStream(copier & ".ico", IO.FileMode.CreateNew) ico.Save(fs) fs.Close() MsgBox("L'icone à bien été copier !", MsgBoxStyle.OkOnly, "Réussi!") ...etc
voici mes codes modifier:
Code:

1 2 3 4 5 6 7 8 9 Dim bm As New Bitmap(PictureBox1.Image) Dim fs As New System.IO.FileStream(copier & ".ico", IO.FileMode.CreateNew) bm.Save(fs, System.Drawing.Imaging.ImageFormat.Icon) fs.Close() MsgBox("L'icone à bien été copier !", MsgBoxStyle.OkOnly, "Réussi!") TextBox1.Clear() TextBox2.Clear() Label2.Text = Nothing PictureBox1.Image = Nothing
j'ai encore une autre solution 3 :

Code:

system.io.file.copy(textbox1.text, textbox2.text)

mais avec la solution3, il me donne l'image impeccable mais au niveau de sa taille , il y a un probleme, il copy meme taille du fichier exe.
comment pourais extraire l'image sens avoir la taille du fichier exe.
carlfil, j'ai fait ce que tu m'ai dit ça copier bien mais voila il m’affiche sur mon bureau carrer blanc
voici en image:
les anciens code , tu verras chromes.ico l'image n'est pas net.
les codes modifier , key.ico il copie mais il m'affiche pas l'image .
c'est pour ça, j'ai modifier mes codes pour avoir un belle image comme chrome mais en .ico

18/06/2013, 10h52
hacker59

bonjour, il y a personne qui peut m'aider a résoudre mon probleme.
pendant l'extraction du fichier exe, il copier l'image , il me convertir en ico.
mais l'image ico , elle est pas net comme en image au dessus, comment on peut l'avoir une image impeccable comme google chrome, Mozilla ....etc.
merci, cordialement.
18/06/2013, 20h26
gta126

Avec les fonctionnalités de base du DotNet il est impossible d'avoir l'icone en bonne qualité.

Pour vous en assurez vous pouvez décompiler la méthode ExtractAssociatedIcon du FrameWork avec par exemple Reflector et vous verrez que en réalité cette méthode en appelle une autre en passant comme indice 0. Cet indice indique quel icone extraire de l'exécutable.

Malheureusement, on ne peut pas directement appeler l'autre méthode et par conséquent pas extraire les différentes quelités d'icônes.

Donc maintenant 2 solutions s'offrent à vous:
- Utiliser la fonction ExtractIcon de l'API Windows directement en .Net.
- Coder vous même de quoi aller retrouver l'image dans l'exécutable (pour ceci vous devrez vous documenter sur le format portable exécutable).

Ou alors utiliser une bibliothèque ou du code fait par quelqu'un d'autre permettant de faire ce que vous désirez
18/06/2013, 21h30
wallace1

Je ne peux que vous recommander l'utilisation de la librairie "IconLib.dll" afin d'extraire tout ou partie les différentes résolution d'un fichier ".ico", vous pourrez également extraire les résolutions en ".png" et ains conserver la couche Alpha Blend (ou plus communément la transparence):

http://www.codeproject.com/Articles/...-Windows-Vista

bonjour,
voici mes codes:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
Imports System.Drawing.IconLib
Imports System.Drawing.IconLib.ColorProcessing
Imports System.IO
 
Public Class Form1
    Dim copier As String
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim OpenFileDialog1 As New OpenFileDialog()
        OpenFileDialog1.Filter = "All Files (*.*)|*.*"
        If DialogResult.OK = OpenFileDialog1.ShowDialog Then
            TextBox1.Text = OpenFileDialog1.FileName
            PictureBox1.Image = Icon.ExtractAssociatedIcon(OpenFileDialog1.FileName).ToBitmap
        End If
    End Sub
 
    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        Dim SaveFileDialog1 As New SaveFileDialog()
        SaveFileDialog1.Filter = "Ico file|*.ico"
        If DialogResult.OK = SaveFileDialog1.ShowDialog Then
            TextBox2.Text = SaveFileDialog1.FileName
            copier = SaveFileDialog1.FileName
        End If
    End Sub
 
    Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
        Dim bm As New Bitmap(PictureBox1.Image)
        Dim ico As Icon = Icon.FromHandle(bm.GetHicon)
        Dim fs As New System.IO.FileStream(copier, IO.FileMode.CreateNew)
        ico.Save(fs)
        fs.Close()
        MsgBox("L'icone à bien été copier !", MsgBoxStyle.OkOnly, "Réussi!")
        TextBox1.Clear()
        TextBox2.Clear()
        PictureBox1.Image = Nothing
    End Sub
 
    Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click
        End
    End Sub
End Class

dans quel partie de mes codes que je dois modifier les codes dans button1 ou button3 et aussi donner moi un exemple.
Merci.cordialement