JavaScript调用VBScript函数,如何传递参数？

Question

<SCRIPT  LANGUAGE="VBScript">  
    function  getRegContent(a,b,c,d)
getRegContent = a  & b & c & d
    end  function  
  </SCRIPT>  
    
  <SCRIPT  LANGUAGE="JavaScript">  
      var a,b,c,d; 
  a = "a, ";
  b = "b, ";
  c = "c, ";
  d = "d, ";
      alert(getRegContent(a,b,c,d)); 
  </SCRIPT> 

Answer 1

实际应用中，我需要在javascript里对这四个参数分别作处理，可不是简单的alert()。如果是将a,b,c,d四个参数组合成一个字符串返回的话，我在javascript里还要再写段程序来解析这个字符串，将它们重新分割成a,b,c,d，这样太麻烦了。难道就不能直接传递多个参数吗？组合字符串的话，分隔符也是个问题，因为无法预知从注册表里取出的值中包含什么字符。简单的"," ";"之类的肯定不行，还得选个基本不可能出现的字符。

Answer 2

<SCRIPT  LANGUAGE="VBScript">  
    function  getRegContent(a,b,c,d)
eval(a)
eval(b)
eval(c)
eval(d)
    end  function  
  </SCRIPT>  
    
<SCRIPT  LANGUAGE="JavaScript">
var a = 'MsgBox("a1")';
var b = 'MsgBox("b1")';
var c = 'MsgBox("c1")';
var d = 'MsgBox("d1")';getRegContent(a,b,c,d); 
</SCRIPT> 

Answer 3

此回复为自动发出,仅用于显示而已，并无任何其他特殊作用
楼主【tangzong】截止到2008-06-26 19:24:54的历史汇总数据(不包括此帖)：
发帖数:3                  发帖分:170                
结贴数:2                  结贴分:150                
未结数:1                  未结分:20                 
结贴率:66.67 %            结分率:88.24 %            
楼主加油

Answer 4

传对象
<script type='text/vbscript'>
Sub P(arg)
arg.a = "A"
arg.b = "B"
arg.c = "C"
arg.d = "D"
End Sub
</script>
<script type='text/javascript'>
var arg = {a:1, b:2, c:3, d:4};
alert(arg.a + "," + arg.b + "," + arg.c + "," + arg.d);
p(arg);
alert(arg.a + "," + arg.b + "," + arg.c + "," + arg.d);
</script>

Answer 5

返回数组:<script type='text/vbscript'>
Function P(a, b, c, d)
Dim arr(3)
arr(0) = a * 10
arr(1) = b * 10
arr(2) = c * 10
arr(3) = d * 10
P = arr
End Function
</script>
<script type='text/javascript'>
var vbArray = P(1, 2, 3, 4);
var javaArray = new VBArray(vbArray).toArray();
alert(javaArray.join(","));
</script>

Answer 6

读取注册表也可以用 JavaScript
var path = "HKEY_CURRENT_USER\\Software\\Microsoft\\testScript\\"
var shell = new ActiveXObject("WScript.Shell");
alert(shell.RegRead(path + "\\a"));