Utilisateur : Fcolin Date : 18/04/03 Heure : 15:43 Archivé dans $/Bus/comIvy Commentaire: ajout GetDomain (vss 2)

1 files changed, 4 insertions, 1 deletions

diff --git a/comIvy/ivyscript.vbs b/comIvy/ivyscript.vbs
index be16094..3d81256 100644
--- a/comIvy/ivyscript.vbs
+++ b/comIvy/ivyscript.vbs
@@ -9,9 +9,10 @@ dim bus,all_message,pp,count
 

 set bus = WScript.CreateObject("comIvy.Bus", "bus_")

 

-'WScript.Echo " bus type " & TypeName(bus)

+WScript.Echo " bus type " & TypeName(bus)

 

 bus.Create "IvyScript", "IvyScript Ready"

+WScript.Echo " bus domain " & bus.GetDomain()

 

 set all_message= bus.Bind( "(.*)")

 

@@ -49,6 +50,8 @@ end sub
 '--------------------------------------------

 sub all_Received(name,args)

 	dim i,argc,argv

+	WScript.Echo " args type " & TypeName(args)

+

     argc = UBound(args) - LBound(args) + 1

 	argv = " args: "

 	for i = LBound(args) to UBound(args)