VBS与JS变量共享与互操作

<Job id="VBS_JS_CallEachOther_Test">
<comment id="note.all">
1.支持跨语言的变量、函数、过程；
1.1VBS所有的数字类型自动转换为JS的Number类型；
1.2VBS数组，在JS中自动包装为VBArray对象，类型为unknown；可用其toArray方法转换为JS的数组
1.3VBS类型=>JS类型：
   Byte/Integer/Long/Single/Double/Currency/Decimal=>Number;
   Array=>unknown;Nothing/Null/COMObject=>Object;Date=>Date;
1.4JS类型=>VBS类型：
   null=>Null;NaN=>Double;Number(整数)=>Long;Number(浮点数)=>Double;
   Array/Date/Error/Object/Function/RegExp/ClassObject=>JScriptTypeInfo
   COMObject=>COMObject[如new ActiveXObject('Scripting.FileSystemObject')=>FileSystemObject]
1.5VBS类型<=>JS类型：
   Boolean<=>Boolean;String<=>String;Empty<=>undefined
1.6VBS的Date类型，共享到JS中也是Date类型，但是在JS中无法按照原生的JS Date对象一样对其进行操作
2.不支持跨语言类，但支持跨语言类对象变量
3.所有的由JS代码中定义后转换到VBS中的JScriptTypeInfo类型变量，都可以原样访问在JS中定义的
  属性/方法
4.JS数组共享到VBS中表现为JScriptTypeInfo类型，但无法简易地对其进行元素读写操作，要进行此类操作
  请先将它转换成VBS的数组后，再对新数组进行读写
5.VB6/VBA中借助MSScriptControl，与JS数据结构进行互操作的规则，与这里的VBS大同小异；VB6/VBA中有
  CallByName函数，可以通过如CallByName(js_arr,"0",vbGet)这样的形式来直接读取数组元素；修改元素
  则是使用CallByName(js_arr,"0",vbLet/vbSet,newValue)；VB6/VBA中JScriptTypeInfo类型变量的一切
  操作都只能通过CallByName来进行，这方面比VBS麻烦
</comment>
<script id="global" language="JScript">
var alert=function(){
    var result='';
    for(var i=0;i<arguments.length;i++)
        result=result+arguments[i]+', ';
    WScript.Echo(result.slice(0,-2));
}
</script>
<script id="vbs.test" language="VBScript">
Dim vbs_arr,vbs_int,vbs_single,vbs_str
Dim vbs_bool,vbs_empty,vbs_circle,vbs_date
Dim vbs_err
vbs_arr=Array(1,2,3)
vbs_int=3
vbs_single=3.25
vbs_str="vbs_str"
vbs_bool=True
vbs_empty=Empty
Function vbs_func(a,b)
    vbs_func=a+b
End Function
Sub vbs_sub(a,b)
    alert typename(a),typename(b)
End Sub
Class Circle
    Private D_
    Public D_History
    Public Property Get D()
        D=D_
    End Property
    Public Property Let D(Value)
        D_=Value
        D_History=D_History & Value & ", "
    End Property
    Public Function GetArea()
        GetArea=4*Atn(1)*Me.D^2
    end function
    Private Sub Class_Initialize
        WScript.Echo "Circle Object Initialized!!!"
    End Sub
    Private Sub Class_Terminate
        WScript.Echo "Circle Object Terminated!!!"
    End Sub
End Class
Set vbs_circle=New Circle
vbs_date=Now
on error resume next
err.raise 6         '溢出错误
'set vbs_err=new ErrObject      '用Err/ErrObject/Error都无法创建VBS的错误对象
set vbs_err=Err
'err.Clear  'vbs_err与err是同一个对象，所以为后面的试验，这里最好注销
</script>
<script id="js.test" language="JScript">
var js_arr=[1,2,3];
var js_int=3,js_single=3.2,js_double=3.2324242432424;
function js_func(a,b){
    alert(typeof a,typeof b);
}
var js_str='hello world';
var js_bool=true;
var js_undefined=undefined;
function Square(Length){
    this.Length=Length;
    this.GetArea=function(){
        return this.Length*this.Length;
    }
}
var js_square=new Square(5);
var js_date=new Date();
var js_err=new Error(146250,'what the fuck are you doing?');
</script>
<script id="js.main" language="JScript">
(function JS_VBS_TEST(){
    //1.同一个域里面的VBS数组在JS代码块中是可见的，其类型是unknow，
    //  实际是VBArray，可使用VBArray.toArray()将其转换为JS数组
    alert("typeof vbs_arr",typeof vbs_arr);
    alert("vbs_arr.toArray()",vbs_arr.toArray());
    //2.同一个域里面的VBS数字类型的变量在JS代码块中也是可见的，其
    //  类型一律是number
    alert("typeof vbs_int",typeof vbs_int);
    alert("vbs_int",vbs_int);
    alert("typeof vbs_single",typeof vbs_single);
    alert("vbs_single",vbs_single);
    //3.同一个域里面的VBS函数/过程在JS代码块中也是可见的，其类型
    //  一律是unknown，无法直接转换为JS函数，但是可以直接调用；无
    //  法以apply的方式来调用；
    alert("typeof vbs_func",typeof vbs_func);
    alert("vbs_func(3,6)",vbs_func(3,6));
    //alert("vbs_func.apply(undefined,[3,6])",vbs_func.apply(undefined,[3,6]));
    alert("typeof vbs_sub",typeof vbs_sub);
    alert("vbs_sub(3,undefined)",vbs_sub(3,undefined));
    alert("vbs_sub([1,2],/w+/g)",vbs_sub([1,2],/w+/g));
    alert("vbs_sub(3.7293,null)",vbs_sub(3.7293,null));
    alert("vbs_sub(new Date(),NaN)",vbs_sub(new Date(),NaN));
    alert("vbs_sub('hello',true)",vbs_sub("hello",true));
    alert("vbs_sub(new Error(3),3.56790456909656789)",
        vbs_sub(new Error(3),3.56790456909656789));
    alert("vbs_sub({},function add(){})",vbs_sub({},function add(){}));
    alert("vbs_sub(new Object(),new Square())",vbs_sub(new Object(),new Square()));
    alert("vbs_sub(Math,new ActiveXObject('Scripting.FileSystemObject'))",
        vbs_sub(Math,new ActiveXObject('Scripting.FileSystemObject')));
    //4.同一个域里面的VBS字符串类型的变量在JS代码块中也是可见的，其
    //  类型是string，与JS字符串是互通的，JS的字符串方法都可以直接用
    alert("typeof vbs_str",typeof vbs_str);
    alert("vbs_str",vbs_str);
    alert("vbs_str.toUpperCase()",vbs_str.toUpperCase());
    //5.同一个域里面的VBS布尔类型的变量在JS代码块中也是可见的，其
    //  类型是boolean，与JS的布尔类型是互通的
    alert("typeof vbs_bool",typeof vbs_bool);
    alert("vbs_bool",vbs_bool);
    //6.同一个域里面的Empty类型的变量在JS代码块中也是可见的，其
    //  类型是undefined，与JS的Undefined类型是互通的，调用VBS函数/过程
    //  时在JS中传入undefined，在VBS函数/过程中接受到的将是Empty
    alert("typeof vbs_empty",typeof vbs_empty);
    alert("vbs_empty",vbs_empty);
    alert("vbs_func(3,6)",vbs_func(3,6));
    //7.同一个域里面的类类型的变量在JS代码块中也是可见的，其类型是
    //  object，其方法/属性都可以正常访问，但是无法实现apply式调用；其公共的
    //  方法属性可以使用for...in完成遍历，这些遍历到的索引可以用来进行
    //  成员访问，其可访问方法的类型如一般的函数一样是unknown类型，所以
    //  如果只是想要遍历属性和方法中的一者，就可以使用这个类型判定，来
    //  获取对应的成员名列表
    vbs_circle.D=10
    alert(vbs_circle.D)
    alert("typeof vbs_circle",typeof vbs_circle);     //object
    alert("vbs_circle.GetArea()",vbs_circle.GetArea());
    //alert(vbs_circle.GetArea.apply(vbs_circle));
    alert('for...in: ');
    for(var i in vbs_circle)
        if(typeof vbs_circle[i]=='unknown')
            alert('vbs_circle.'+i+'(...) = '+vbs_circle[i]());
        else
            alert('vbs_circle.'+i+' = '+vbs_circle[i]);
    alert('read/write by property/method index: ');
    alert("vbs_circle['D'] = "+vbs_circle['D']);
    alert("vbs_circle['D_History'] = "+vbs_circle['D_History']);
    alert("vbs_circle['GetArea']() = "+vbs_circle['GetArea']());
    alert("typeof vbs_circle['D']",typeof vbs_circle['D']);        //number
    alert("typeof vbs_circle['D_History']",typeof vbs_circle['D_History']);       //string
    alert("typeof vbs_circle['GetArea']",typeof vbs_circle['GetArea']);  //unknown
    //var vc=new Circle();    //报错
    //alert(typeof vc);     //undefined
    vbs_circle=undefined;     //会触发VBS对象的对象销毁事件
    //8.同一个域里面的Date类型的变量在JS代码块中也是可见的，其
    //  类型也是date，但是它不是JS的date对象
    alert("typeof vbs_date",typeof vbs_date);       //date
    alert("vbs_date",vbs_date);              
    //alert(vbs_date.getYear());    //报错：为null或不是对象
    var js_d=new Date();
    alert("js_d.getYear()",js_d.getYear());
    //9.同一个域里面的Err类型的变量在JS代码块中也是可见的，其
    //  类型是object，成员不可遍历
    alert("typeof vbs_err",typeof vbs_err);        //object
    alert(vbs_err+':'+vbs_err.Description+','+vbs_err.Source);
    for(i in vbs_err)               //不可遍历
        alert(i);
    vbs_err.Clear();
    alert(vbs_err+':'+vbs_err.Description+','+vbs_err.Source); 
})();
</script>
<script id="vbs.main" language="VBScript">
WScript.Echo "=========================================================="
Sub VBS_JS_TEST
    '1.同一个域里面的JS数组在VBS代码块中是可见的，其类型是JScriptTypeInfo，
    '  但凡这种类型，其JS中原有定义的成员，都是可以原样访问的；数组通过索引
    '  取得元素，在这里会稍显麻烦，需要依赖循环，没有直接取得第N个元素的方法
    '  建议的方法是使用For Each循环将这个JScriptTypeInfo的数组转换为VBS的数组
    '  再进行读写元素的操作
    alert "typename(js_arr)",typename(js_arr)
    alert "js_arr",js_arr
    alert "js_arr.slice(1)",js_arr.slice(1)
    alert "js_arr.length",js_arr.length
    alert "For Each:"
    Dim i
    For Each i in js_arr
        alert i
    Next
    '2.同一个域里面的JS数字类型的变量在VBS代码块中也是可见的，其
    '  类型由原数字是否是整数决定，如果是小数，在VBS中表现为Double类型
    '  如果是一个整数，在VBS中会表现为Long类型
    alert "typename(js_int)",typename(js_int)
    alert "js_int",js_int
    alert "typename(js_single)",typename(js_single)
    alert "js_single",js_single
    '3.同一个域里面的JS函数在VBS代码块中也是可见的，其类型一律是
    '  JScriptTypeInfo
    alert "typename(js_func)",typename(js_func)
    alert "js_func(3,3.2)",js_func(3,3.2)
    alert "js_func(CByte(3),CCur(50))",js_func(CByte(3),CCur(50))
    alert "js_func(Array(1,2,3),Nothing)", _
        js_func(Array(1,2,3),Nothing)
    alert "js_func(Empty,Null)",js_func(Empty,Null)
    Dim vbs_arr1()
    alert "js_func(Now,vbs_arr1)",js_func(Now,vbs_arr1)
    alert "js_func('hello',true)",js_func("hello",true)
    alert "js_func(Err,New Circle)",js_func(Err,New Circle)
    alert "js_func(CreateObject('Scripting.FileSystemObject'))", _
        js_func(CreateObject("Scripting.FileSystemObject"))
    '4.同一个域里面的JS字符串类型的变量在VBS代码块中也是可见的，其
    '  类型是String，与VBS字符串是互通的，VBS的字符串函数都可以直接用
    alert "typename(js_str)",typename(js_str)
    alert "js_str",js_str
    alert "UCase(js_str)",UCase(js_str)
    '5.同一个域里面的JS布尔类型的变量在VBS代码块中也是可见的，其
    '  类型是Boolean，与VBS的布尔类型是互通的
    alert "typename(js_bool)",typename(js_bool)
    alert "js_bool",js_bool
    '6.同一个域里面的Undefined类型的变量在VBS代码块中也是可见的，其
    '  类型是Empty，与VBS的Empty类型是互通的，在调用JS的函数/方法
    '  时在VBS中传入Empty，在JS函数/方法中接受到的将是undefined
    alert "typename(js_undefined)",typename(js_undefined)
    WScript.Echo "js_undefined"+", "+js_undefined 
    alert "js_undefined=Empty",js_undefined=Empty
    alert "js_func(3,Empty)",js_func(3,Empty)
    '7.同一个域里面的类类型的变量在VBS代码块中也是可见的，其类型是
    '  JScriptTypeInfo，其原型定义的方法/属性都可以正常访问
    js_square.Length=10
    alert js_square.Length
    alert "typename(js_square)",typename(js_square)
    alert "js_square.GetArea()",js_square.GetArea()
    alert "js_square.GetArea.apply(js_square)",js_square.GetArea.apply(js_square)
    'Set sq=New Square    '报错
    '8.同一个域里面的Date类型的变量在VBS代码块中也是可见的，其
    '  类型也是JScriptTypeInfo，其原型定义的方法/属性都可以正常访问
    alert "typename(js_date)",typename(js_date)
    alert "js_date",js_date 
    alert "js_date.getYear()",js_date.getYear()
    'alert Month(js_date)   '因为它不是VBS的Date类型，所以VBS的日期时间函数无法处理它
    '9.同一个域里面的Error类型的变量在VBS代码块中也是可见的，其
    '  类型是JScriptTypeInfo，其原型定义的方法/属性都可以正常访问
    alert "typename(js_err)",typename(js_err)
    alert js_err.Number & ":" & js_err.Description
End Sub
Call VBS_JS_TEST
</script>
</job>

 这是一个wsf脚本，用记事本保存为wsf类型文本文件（比如wsf.wsf），即可运行，建议使用如下命令调用它（因为双击弹窗会很多，也不方便对比输出）：

CScript //nologo wsf.wsf