TC官方合作论坛

标题: BUG: 调用VBS脚本的参数不能超过3个 [打印本页]

作者: cxkice 时间: 2016-7-23 13:17
标题: BUG: 调用VBS脚本的参数不能超过3个
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 时间: 2016-7-23 13:18
补充: 我用的是TC5.5

作者: cxkice 时间: 2016-7-23 13:53
补充:
举例一个更加简单的. 如下面, 三个参数调用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 时间: 2016-7-23 13:54
现在,我不得不在vbs中进行字符串拆解,这样好麻烦的

作者: cxkice 时间: 2016-7-23 13:55
就是在传递前将参数合并成一个或者两个, 在vbs脚本里再将参数拆解成三个或者更多的方法.

欢迎光临 TC官方合作论坛 (http://bbs.52tc.co/)