Savoir si c'est un fichier .exe vb

Soyez le premier à donner votre avis sur cette source.

Snippet vu 4 490 fois - Téléchargée 47 fois

Commenter

Contenu du snippet

C'est simple, c'est pour savoir si c'est un fichier compiler avec VB, je sais pas sur quel version sa marche a part le 5 et 6 si vous avez VB4 ou VB3 dite mwa si sa marche

@++

Source / Exemple : 


On Error Resume Next
Dim TexteFichier2 As String, Longeur As String
Open "C:\supervirus.exe" For Binary As #1
Longeur = LOF(1): TexteFichier2 = String(Longeur, " ")
Get #1, 1, TexteFichier2
If Not InStr(TexteFichier2, "MSVBVM") = 0 Then MsgBox "Parfait c'est un fichier VB"
Close #1

Conclusion :


=> www.psycomaxter.fr.st <= @++

A voir également

Ajouter un commentaire

Commentaires

Signaler
cs_Koiu
Messages postés
269
Date d'inscription
jeudi 26 septembre 2002
Statut
Membre
Dernière intervention
19 février 2015
 -
top cool!!!
La manipulation des files compilés avec vb c dur!!!10/10
Signaler
cs_max12
Messages postés
1491
Date d'inscription
dimanche 19 novembre 2000
Statut
Modérateur
Dernière intervention
7 juillet 2014
 -
Je me suis dit qu'il avait peut de chance que sa arrive
Signaler
cs_Stephane
Messages postés
550
Date d'inscription
vendredi 5 janvier 2001
Statut
Membre
Dernière intervention
23 septembre 2006
 -
je pense que ca marche, mais y a quand meme un truc, tu devrait ajouter une verification de la position du msvbm parce que (j'etudi en ce moment la composition des exe de vb) et si par exemple un label a pour caption ou nom msvbm ton prog le détectera et dira que ce n'est pas un fichier vb

voila, ca te permettra d'ameliorer cette astuce
a+
Signaler
cs_shivan
Messages postés
363
Date d'inscription
jeudi 20 décembre 2001
Statut
Membre
Dernière intervention
25 août 2003
 -
ta condition "If Not InStr(TexteFichier2, "MSVBVM") = 0", c bien la meme chose ke "If InStr(TexteFichier2, "MSVBVM") > 0" ?
c juste pour une info perso...
sinon bon code... je connaissais pas le Get...
10/10
S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_max12)