VBS如何把变量值传给另外一个VBS

[PQianbei]

1.vbs：
Set WshShell = WScript.CreateObject("WScript.Shell")
Return = TEST
WshShell.Run "2vbs", 1, true

2.vbs：
把1中的Return打印出来，为TEST

请问如何编写这两个脚本，运行1，就去调用2，然后显示1中Return的值

[hookee]

简单点用 文件、数据库、注册表之类的存数据。 麻烦点用组件，调用ScriptEngine 去 执行代码取得返回结果。 不然就涉及到进程间通讯了。

[jingnidai]

我一般用文件或者数据库去存取中间结果，这样方便调试。 进程间通讯我不太懂，我估计也是要用共享的文件地址的 。 vb好像不能指定物理地址访问，求高手顺便指导。

[chinashiji]

用ScriptEngine 去 执行代码取得返回结果

[wcwtitxu]

1.vbs

Function GetContent(path, cSet)
	With WScript.CreateObject("ADODB.Stream")
		.Mode = 3
		.Type = 1
		.Open
		.LoadFromFile path
		.Position = 0
		.Type = 2
		.Charset = cSet
		GetContent = .ReadText(-1)
		.Close
	End With
End Function



Dim Return
Return = "TEST"
ExecuteGlobal GetContent("2.vbs", "GBK")

2.vbs

MsgBox Return

[a602812234]

我懂你。
'调用端
Set ws=wscript.createobject("wscirpt.shell")
var="参数1，参数2"
ws.run "1.vbs " & var, 0

'1.vbs接收
var=wscript.arguments(0)
str=split(var,",")
msgox str(0)
msgbox str(1)