aardio + VBScript 编写桌面软件

import console;
import web.script;
//创建 VBScript 虚拟机
var vm = web.script("VBScript")
//直接将 aardio 对象（表、数组、函数）赋值为 vm 的成员，即可在 VBScript 中直接调用。
vm.external = {
add = function(a,b){
return a + b;
};
}
//模拟 WScript 对象
vm.WScript = {
CreateObject = ..com.CreateObject;
GetObject = ..com.GetObject;
Echo = function(...){
console.log(...);
};
}
//加载 VBScript,也可以用 vm.doScript() 函数加载脚本。
vm.script = /*
Function TestFunction(a,b)
Dim shell, ns, item
'创建 COM 对象
Set shell = CreateObject("Shell.Application")
Set ns = shell.NameSpace("::{7007ACC7-3202-11D1-AAD2-00805FC1270E}")
'遍历 COM 对象
For Each item In ns.Items()
'注意 VBScript 调用方法且不接收返回值时，不要加括号。
WScript.Echo item.Name,item.Path
Next
TestFunction = external.add(a(0),b(0))
End Function
*/
//通过 vm.script.函数名() 调用 VBScript 函数。
var ret = vm.script.TestFunction({12,13},{2,3});
console.log( ret );
console.pause();