SupraDolph
Messages postés196Date d'inscriptionsamedi 12 janvier 2002StatutMembreDernière intervention 1 septembre 2008
-
14 juin 2006 à 09:45
ratala
Messages postés248Date d'inscriptionjeudi 3 février 2005StatutMembreDernière intervention22 juin 2008
-
12 juil. 2006 à 22:00
Bonjour a tous !
J'aivais il y a quelques temps un script qui permettait d'executer du texte.
Je m'explique :
Dim Str As String = "msgbox """"Test"""""
Execute str
'Execute' etant la fonction que je recherche. Cette fonction execute le code contenu dans 'Str' soit dans ce cas, l'affichage d'une boite de dialogue.
Si quelqu'un a cette source merci de m'en faire profiter :)
Dolphin Boy
Messages postés630Date d'inscriptionvendredi 5 mai 2006StatutMembreDernière intervention17 février 2007 14 juin 2006 à 10:41
Salut, essaie ça :
Private Declare Function EbExecuteLine Lib "vba6.dll" (ByVal pStringToExec As Long, ByVal Foo1 As Long, ByVal Foo2 As Long, ByVal fCheckOnly As Long) As Long
Private Sub Command1_Click()
Dim Str As String
Str = "msgbox " & """" & "test" & """"
Call EbExecuteLine(StrPtr(Str), 0&, 0&, 0&)
End Sub
SupraDolph
Messages postés196Date d'inscriptionsamedi 12 janvier 2002StatutMembreDernière intervention 1 septembre 20081 14 juin 2006 à 11:42
Merci a toi compagnon Dauphin ^_^
Je pense que ton code fonctionne, mais je ne peux pas le tester, sur mon PC de travail je n'ai pas la DLL de VB6 car je n'ai que VBA pour travailler :(