vbscript - 使用SendKeys方法的VBScript错误 “Invalid or Unqualified Reference”

Question

我在.vbs文件中的代码出现以下错误:

C:\...\Root_VBS_Script_1.vbs(19, 1) Microsoft
VBScript runtime error: Invalid or unqualified reference

1 was unexpected at this time.

.vbs文件如下:

Set wshShell = CreateObject("Wscript.Shell")

Set args = WScript.Arguments
arg1 = args.Item(0)

Dim filename

filename = ""&arg1&""


WshShell.SendKeys "root -b" //opens root in batch mode
WshShell.SendKeys "~"
WshShell.AppActivate ROOT_session
WshShell.SendKeys ".x analysis.C"
wshShell.SendKeys "~"
WshShell.SendKeys ".x double_gaus.C"
WshShell.SendKeys "~"
WshShell.AppActivate ROOT_session
WshShell.SendKeys "c1->SaveAs("&filename&.pdf&")"
WshShell.SendKeys "~"
WshShell.SendKeys ".q"
WshShell.SendKeys "~"

WScript.Quit 1

我正在使用send keys方法从批处理文件中调用的.vbs文件中运行名为root(由CERN开发)的程序。我在调用.vbs文件时将文件名作为参数附加。我不确定为什么会出现此错误，但是我确实知道send keys方法会打开root并起作用，直到应该将c1保存为给定的文件名和类型为止。

谁能帮助我解决此错误？

Answer 1

这是您的罪魁祸首:

WshShell.SendKeys "c1->SaveAs("&filename&.pdf&")"

没有可以串联的 .pdf变量。由于前导点，它甚至不是有效的变量名。您可能打算在此处将变量 filename与字符串 .pdf连接起来。将上面的行更改为此:

WshShell.SendKeys "c1->SaveAs(" & filename & ".pdf)"

更笼统地说:为什么首先要使用VBScript(尤其是 SendKeys)？如果我正确理解了 documentation，则可以从其他 root脚本中运行 root脚本，因此不需要其他脚本语言或诸如 SendKeys之类的不可靠方法。