Partage de procedure entre VB6 et VBScript

Version imprimable

24/10/2006, 13h48
gph

Partage de procedure entre VB6 et VBScript

Salut,

J'utilise le controle Script Control Object (msscript.ocx) afin de rendre scriptable mes applications.

Le partage d'objet se fait sans problème, par contre je n'arrive pas à exécuter une fonction publique du programme VB6 à partir du VBScript.

La fonction est vue (car si elle n'existe pas ou n'est pas publique le message d'erreur le dit) et une erreur Type incompatible se produit systématiquement.

Le script se termine et la fonction VB6 n'ets pas appelée.
Est ce quelqu'un connaitrais une solution ou une piste pour trouver la solution.
Car cela fait pas mal de temps que je bricole et que je cherche sur le net sans trouver de réponse.

Merci par avance.
Philippe.
24/10/2006, 13h53
ced600

ce serait plus simple de t'aider si tu nous disais de quelle fonction il s'agit !!!

Dans VB6 :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
 
Public sub TestVBS()
   debug.print "Execution TestVBS"
end sub
 
Public Function RunVBS(filename As String) As String
' Charge le script et l'execute
    Dim fs As Object, f As Object, msg As String
 
    On Error GoTo erreur
 
    ' Charge le fichier
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.OpenTextFile(filename)
    msg = f.ReadAll
    f.Close
 
    ' Charge le code
    VbScript.Reset
    VbScript.AddCode msg
 
    VbScript.AddObject "Form", Me
 
    ' Execute
    msg = VbScript.Eval("Main")
    RunVBS = "  Exécution terminée : " + msg
    Debug.Print RunVBS
    Exit Function
 
erreur:
    RunVBS = "  Erreur script : " + Error$
    Debug.Print Error$
 
End Function

Le VBScript :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Function Main()
' Fonction appellé par VB6
'	Doit retourner : un message qui est mémorisé dans le LOG 
 
	Form.LstEvents.additem "Avant test"
 
	TestVBS
 
	Form.LstEvents.additem "Apres test"
	Main = " Ca marche !"
 
End Function

24/10/2006, 14h28
ced600

As tu fait un debug.print de msg ?
pour être sur que tu as bien le code complet dans msg.
24/10/2006, 14h44
gph

Oui.

Le script fonctionne quand je fais n'importe quoi y compris des acces Bdd en ADO, le seul truc qui ne marche pas c'est l'appel d'une fonction/procedure publique de VB6.
24/10/2006, 14h51
ced600

cela me parait normal, puisqu'après avoir charger le code vbs et lance un interpreteur pour le lire, tu reste dans le vbscript, et la fonction TestVBS est cherche dans le VBScript. Faudrait que tu lui précise que ce n'est pas dans le VBS mais dans le VB6 qu'il faut chercher. En gros que tu es une sorte d'include dans ton VBS pour mettre une reference vers ton fichier VB6.
24/10/2006, 14h59
gph

Certe ... mais justement je cherche la solution pour le rendre visible !

Pour les objets il y a la méthde AddObject que j'utilise pour exposer la forme et acceder à des champs, par contre je n'ai pas trouvé comment déclarer les procédures VB publique au run time VBScript.

J'ai trouvé ça sur le net :
Code:

1 2 3 'Déclaration de la fonction ShellExecute Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
en adaptant on pourrait faire ça :
Code:

1 2 3 'Déclaration de la fonction Main Private Declare Function Main VBS filename Alias "MainA" ()
Et apres tu appelles directement MainA dans ton fichier VB6 comme pour une fonction normal et ca pourrait marcher.
Je ne l'ai pas essayé.

Tu pourrais peut être trouver ton bonheur ici :
http://www.source-code.biz/snippets/vbscript/5.htm
ou la :
http://www.bigbold.com/snippets/posts/show/2235

24/10/2006, 15h56
gph

C'est pas un exec ou une DDL que je veux lancer :?

En fait il semble qu'il faille que les chose globales soient dans une classe et que cette cmlasse soit exposée au VBScript au travers de la méthode AddObject.

Je vais explorer cette piste.
24/10/2006, 16h45
gph

Pour rendre visible des variables VB6 ou des fonctions VB6 depuis le VBScript, il faut encapsuler ces variables et ces fonctions dans une classe et exporter la classe au VBScript par la méthode AddObject de l'objet msscript

Voila, j'espère que cela servira à d'autre.
C'est un peu contraignant mais ça marche :D
24/10/2006, 16h55
ced600

Et as tu jete un coup d'oeil au lien que je t'ai mis dans la réponse ?