Signaler

COMMENT SE DÉBARRASSER DE VB6FR.DLL LIMITANT LA COMPATIBILITÉ DES APPLICATIONS V

Messages postés
216
Date d'inscription
mercredi 5 février 2003
Statut
Membre
Dernière intervention
15 décembre 2010
 - - Dernière réponse : driscoll
Messages postés
1
Date d'inscription
mercredi 6 août 2003
Statut
Membre
Dernière intervention
4 avril 2013
 - 4 avril 2013 à 18:57
Commentaires sur une source Signaler
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/20160-comment-se-debarrasser-de-vb6fr-dll-limitant-la-compatibilite-des-applications-vb

Afficher la suite 
Signaler
cs_legion91
Messages postés
216
Date d'inscription
mercredi 5 février 2003
Statut
Membre
Dernière intervention
15 décembre 2010
 -
oua le truc de deman, alors toi t'aime ce ki est compliker pour remplacer une donner par une autre ben o lieu de faire 10 mille ligne pour ouvrir un fichier deplus faudrait deja savoir si le fichier est bien existant et oui ya un bouton annuler dans le common control donc voici mon code:

if dir(cdg.filename,vbNormal Or vbReadOnly Or vbHidden Or vbSystem Or vbArchive) <> vbnullstring then
dim Nr as string
dim Texte1 as string
Nr = FreeFile 'remplace #1 ou la c un chiffre aleatoire
Open sFile For Binary As #Nr 'on l'ouvre
Texte1 = Input(LOF(1), #Nr) 'tout le contenu du fichier dans la string sbin
Close #Nr 'on ferme le fichier

'on remplace
Texte1 = replace(Texte1,"vb6fr.dll","msvbvm60.dll")
nr = freefile
Open cdg.filename For Output As #nr
Print #nr, "" & Texte1
Close #nr

else
msgbox "Mais où elle l'exe ;-)"
end if
Signaler
abhoryo
Messages postés
28
Date d'inscription
dimanche 25 mai 2003
Statut
Membre
Dernière intervention
29 août 2008
 -
je pense qu'un code comme ca peu etre pratique mais quand on pense que vb6fr.dll ne fait que 116Ko (20Ko compresé) comparé à msvbvm60.dll qui est 10 fois plus gros. Enfin voila sinon je trouve ton code bien monté.
Signaler
Ashtheone
Messages postés
20
Date d'inscription
samedi 2 août 2003
Statut
Membre
Dernière intervention
19 mai 2004
 -
A noter msvbvm60.dll est une dll classique de windows, donc sa taille n'a pas d'importance...

Pour le reste, je suis d'accord que mon code peu être amélioré.
Il est sans prétention.
Je l'ai pondu hier soir parceque j'avais besoin d'un petit utilitaire de ce style.

Je n'ai pas trop pensé l'algo, mais c'est propre c'est sans bavure...

Merci en tout cas pour vos critiques constructives :o)
Signaler
cs_legion91
Messages postés
216
Date d'inscription
mercredi 5 février 2003
Statut
Membre
Dernière intervention
15 décembre 2010
 -
Si j'ai mis une detection du fichier c pas sans raison en effet (je site ton code):

With cdg
.CancelError = True
.Flags = &H80000 Or &H4 Or &H2
On Error GoTo ErrHandler
End With

-.cancelerror = true 'je ne sais moi meme c k sa veut dire un comentaire stp
- flag idem
- et On Error GoTo ErrHandler oula sa c du dans le cas ou sa plante ?, si ta pas selectionnez un bon fichier hehe fo mettre ma fonction dir ;-)
Signaler
khaleid
Messages postés
41
Date d'inscription
mercredi 4 juillet 2001
Statut
Membre
Dernière intervention
8 avril 2014
 -
tres bonne idée ...mais pourqoui un exe fait une reference a un dll si il en a pas besoin ?
peut on faire de meme avec d'autre dll vb ?
Afficher les 59 commentaires