Question

我正在尝试在我的HTA应用程序中运行VB脚本，但每次选择提交时，唯一发生的事情是我的屏幕变白。我已多次阅读过剧本，但无法找出导致这种情况发生的原因。任何帮助将不胜感激

代码如下：

<script language="VBScript" 
  Public Sub RunScript() 
  Set objWSH = CreateObject("WScript.Shell") 
  strCMD = "cscript.exe c:\C:\Users\william.smith03\Documents\HTML5 Printer            Install\Printer     (file:///c:/C:/Users/william.smith03/Documents/HTML5%20Printer%20Install/Printer) Install   v3.7.vbs" 
  objWSH.Run(strCMD)  

End Sub 
</script>

Answer 1

你错过了第一行末尾的>字符。

如果你确定目录路径中的所有空格和字符都没问题，那么这将有效：

<script language="VBScript">
    Sub RunScript() 
        app  = "cscript.exe"
        args = """c:\C:\Users\william.smith03\Documents\HTML5 Printer            Install\Printer     (file:///c:/C:/Users/william.smith03/Documents/HTML5%20Printer%20Install/Printer) Install   v3.7.vbs"""
        CreateObject("WScript.Shell").Run(app & " " & args)  
    End Sub 
</script>

VB脚本不会在我的HTA应用程序中运行....只会将屏幕变为白色

1 个答案: