BUG: 调用VBS脚本的参数不能超过3个

cxkice

BUG: 调用VBS脚本的参数不能超过3个
语句: sc.run("VBS函数名",参数1,参数2,参数3 ...)
发现: 参数最多只能两个. 超过3个以上的参数, 下面的程序段就会没有反应.
版主, 也许是我不会正确使用, 假如这样的话,希望能回复我.谢谢

function 消息框s(文本,提示类型=0,标题="VBS操作",句柄=0)

    if(句柄==0)
        句柄=窗口获取自我句柄()
    end
    var strProgram="Function MsgboxTip(Text,TextStyle,TextTitle): MsgboxTip = MsgBox(Text, TextStyle, TextTitle): End Function"
    var sc = com("ScriptControl")
    sc.language = "VBScript"
    sc.SitehWnd=句柄
    sc.addcode(strProgram)   
    返回 sc.run("MsgboxTip",文本,提示类型,标题)
end

cxkice

补充: 我用的是TC5.5

cxkice

补充:
举例一个更加简单的. 如下面, 三个参数调用vbs, 就无法运行:
function sss(a,b,c)
    var strProgram="Function MsgboxTip(a,b,c) : MsgBox a : msgbox b : msgbox c : End Function"
    var sc = com("ScriptControl")
    sc.language = "VBScript"
    sc.addcode(strProgram)   
    return sc.run("MsgboxTip",a,b,c)
end

下面缩减为两个函数, 就能正常运行:
function sss(a,b,c)
    var strProgram="Function MsgboxTip(a,b) : MsgBox a : msgbox b: End Function"
    var sc = com("ScriptControl")
    sc.language = "VBScript"
    sc.addcode(strProgram)   
    return sc.run("MsgboxTip",a,b)
end

cxkice

现在,我不得不在vbs中进行字符串拆解,这样好麻烦的

cxkice

就是在传递前将参数合并成一个或者两个, 在vbs脚本里再将参数拆解成三个或者更多的方法.