diff options
Diffstat (limited to 'comIvy')
| -rw-r--r-- | comIvy/ivyscript.vbs | 5 |
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)
|