Executer une commande en mode run

Soyez le premier à donner votre avis sur cette source.

Vue 16 585 fois - Téléchargée 687 fois

Description

Cette source permet, en mode run, d'exécuter une instruction VB, par exemple :
MsgBox "Bonjour !"
Elle utilise la fonction EbExecuteLine de la VBA6.DLL

Nota : Ce projet ne fonctionne pas en mode compilé, c'est normal.
Nota : Il faut avoir le fichier VBA6.DLL.
Je suppose que si vous ne l'avez pas, il faudra l'enregistrer avec la commande "RegSvr32 VBA6.DLL" après l'avoir récupérée sur Google.

Conclusion :


Cette source a été pompée sur un autre site (il y a quelques temps), mais je ne rappelle plus où. Voir les commentaires de copyrights en tête du code.

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

cs_CanisLupus
Messages postés
3758
Date d'inscription
mardi 23 septembre 2003
Statut
Modérateur
Dernière intervention
13 mars 2006
6 -
Salut jack,
Merci pour ce code, je ne le cherchais pas vraiment mais ça m'ouvre des horizons car ce genre de truc je sais déjà le faire en c/c++ (en compilé) et j'avais des prob de traductions c vers vb sur ce plan. C top !!!

Cordialement

CanisLupus
cs_EBArtSoft
Messages postés
4531
Date d'inscription
dimanche 29 septembre 2002
Statut
Modérateur
Dernière intervention
22 avril 2019
5 -
Bonne astuce...
thierrydelepine
Messages postés
521
Date d'inscription
mardi 24 décembre 2002
Statut
Membre
Dernière intervention
11 septembre 2008
2 -
excellent,
question peut on executer une ligne de code comportant un objet ?

voici une autre solution avec Microsoft Script Control 1 (MSSCRIPT.ocx) pour executer du code a partir d'un string.
exemple avec l'objet Genie du composant Agent:
ScriptControl1.Language = "VBScript"
ScriptControl1.Reset
ScriptControl1.AddObject "genie", Genie, True
ScriptControl1.AddCode If Genie.Active <> 1 Then Genie.MoveTo 0, 300
thierrydelepine
Messages postés
521
Date d'inscription
mardi 24 décembre 2002
Statut
Membre
Dernière intervention
11 septembre 2008
2 -
J'apporte une modif a mon post du dessus il faut lire pour la derniere ligne de l'exemple :
ScriptControl1.AddCode "If Genie.Active <> 1 Then Genie.MoveTo 0, 300"

j'ai ajoute les guillemets puisque c'est un string, la derniere ligne aurait pu etre : ScriptControl1.AddCode Text1.Text

NB: avec MSSCRIPT.ocx cela marche aussi en mode compilé
sibi12
Messages postés
337
Date d'inscription
jeudi 19 décembre 2002
Statut
Membre
Dernière intervention
15 avril 2006
-
La dll vba6.dll se trouve dans le repertoire de VB...mais ce n'est pas une dll COM puisque tu declare une API pour la fonction EbExecuteLine... donc il suffit de rajouter la dll ds le repertoire de l'exe...

Mais chez moi ca bogue!!!!
si quelqu'un pouvais essayer...

d'ailleur si on regarde la DLL de plus pres on peu voir qu'elle contien pas mal de fonction tres interressante... c-a-d a peu pres tte les fonctions de VB !!!!!

faudrait faire une petite enquête sur cette DLL...

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.