Ouverture de fichier .exe ?Résolu

Question

Comme indiquer dans le titre je n'arrive pas a ouvrir un fichier .exe quand j'éssaye, je recoi un texte du genre "MZ|" alors que le fichier est bien plus grand !
Voila mon code :

Dim Canal, Data As String, Taille As Long
Taille = FileLen("C:\monexe.exe")
Data = Space(Taille) 'j'initiallise le buffer
Canal = FreeFile ' pour eviter d'avoir a mettre des #1 ou #2
Open "C:\monexe.exe" For Binary As Canal
Get Canal, , Data
Text1 = Data
Close Canal

Auriez vous une solution ?
Merci d'avance !

Dolphin Boy · Accepted Answer

Salut, jrivet te met sur la voie. Un exécutable est plein de caractères dit "non imprimables" (valeur ASCII < 32) donc non affichables dans une textbox.
Pour afficher ce qui peut être affiché de ton exe, il te faut :
- soit remplacer ces caractères par celui de ton choix ou les supprimer
- soit afficher sous forme Hexa

Un exemple (parmi plein d'autres) pour réaliser la 1ère possibilité :

Private Sub Command1_Click()
Dim Canal, Data As String
Dim i As Integer
  Canal = FreeFile ' pour eviter d'avoir a mettre des #1 ou #2
  Open "C:\monexe.exe" For Input As #Canal
  Data = Input(FileLen("C:\monexe.exe"), #Canal)
  Close Canal
  For i = 1 To 32
    Data = Replace(Data, Chr$(i), "")
  Next
  Text1 = Data
End Sub

Là je remplace par "" mais tu peux mettre autre chose.

jrivet · Answer

Salut,

Lorsque tu regarde le contenu de la variable Data en mode interprété, tu te rends comptes qu'elle est remplie de caractères chinois et autre caractères que peu être ton textbox n'est pas capable d'afficher

@+, Julien
Pensez: Moteur de Recherche, Réponse Acceptée
Mais Surtout: Règlement

ratala · Answer

Merci mais il y a que 3 caracteres ! si je l'enregistre dans un autre fichier .exe sa ne marche toujours pas !

winny68 · Answer

Tu a essayé avec un shell ?

Regarde la source de Mr Lanix : http://www.vbfrance.com/codes/LANCER-EXE-OU-TXT-OU-HTML_21739.aspx

Qui s’endors le cul qui gratte, se réveille le doigt qui pût.

Confucius

ratala · Answer

Je ne veut pas l'executer !
je veut l'ouvrir ^^

Dolphin Boy · Answer

Oups, il faut lire For i =0 To 31 et non For i = 1 To 32

Ouverture de fichier .exe ?

6 réponses

Votre réponse

Discussions similaires