'Extraction' d'un commentaire placé dans un EXEcutable depuis VBRésolu

Question

Bonjour,

Dans un projet VB 6 compilé, j'ai placé un commentaire  dans mon projet, par la menu Projet \ Propriété de %Projet1% , onglet Créer, Commentaires (dans la frame Information sur la version).

J'ai déjà trouvé plusieurs API qui peuvent trouver le numéro de version, le copyright, ...
Malheureusement, je n'ai pas trouvé de solution pour connaitre ce fameu Commentaire d'un exe (créer sous VB) depuis un autre programme VB.

Donc, si quelqu'un peut m'aider...

titicar

PCPT · Accepted Answer

salut,

on jète un oeil à l'exe avec notepad....
fabuleux, c'est presque lisible 

Option Explicit

Private Sub Form_Load()
    Dim aBytes() As Byte, sBuffer As String, i As Long, 
iPos As Long

'   
récup exe
    aBytes = FichierVersTableauDeByte("C:\b.exe")

'   lit tableau
    sBuffer = vbNullString
    For i = 0 To UBound(aBytes) Step 2
        sBuffer = sBuffer & Chr$(aBytes(i))
    Next i
    
'   position 
comm
    iPos = InStr(1, sBuffer, Chr$(1) & "Comments" & Chr$(0))
    If iPos = 0 Then
        MsgBox "Aucun 
commentaire"
    Else
        MsgBox "Commentaire : '" & Mid$(sBuffer, iPos + 10, InStr(iPos + 10, 
sBuffer, Chr$(0)) - iPos - 10) & "'"
    End If

    Unload Me
End Sub

Private Function FichierVersTableauDeByte(ByVal 
CheminFichier As 
String) As 
Byte()
    Dim fff As Integer
    fff = FreeFile
    Open CheminFichier For Binary As #fff
        ReDim FichierVersTableauDeByte(LOF(fff) - 1)
        Get #fff, , FichierVersTableauDeByte
    Close #fff
End Function

++
PCPT  [AFCK]
<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

PCPT · Answer

oui non peut-être?

cs_titicar · Answer

Salut,

C'est vrai que je n'avais même pas eu l'idée de vérifier avec un simple NotePad. Après essai, ça ne marche pas chez moi : la séquence "Comments" est introuvable. Bizarre que ça fonctionne chez toi et pas chez moi (je compile en P-Code et pas en natif).

titicar

PCPT · Answer

salut,
je viens de tester en P-Code et en natif, fonctionne dans les 2 cas

t'as essayé avec un nouveau projet?
sûr que ton exe soit bien fait en VB6?
sûr du chemin également? (dans le doute)

testé avec VB6 PRO SP6
<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

cs_titicar · Answer

Re-salut :-)

Je viens de rergarder d'un peu plus près (juste avec NotePad) et mon info est donc en fin de fichier. C'est sûr que je ne pouvais rien trouver en cherchant la séquence "Comments". Dans ta source, j'avais pas fait attention au STEP 2.
Je n'ai essayé qu'une fois ta source, mais VB a planté. Mon test EXE prend 3 méga.

Je vais voir pour chercher, mais en partant de la fin du fichier.
... à suivre :-) et merci encore pour m'avoir aiguillé!

titicar

'Extraction' d'un commentaire placé dans un EXEcutable depuis VB

5 réponses

Votre réponse

Discussions similaires