Question

我试图从HTA文件中启动批处理文件。批处理文件的启动似乎正常启动（或至少是相关的CMD提示），但批处理稍后关闭，此时应该大约需要5分钟。在短时间内CMD进程正在运行，HTA窗口似乎暂停，然后一旦CMD进程结束就关闭。关于HTA的其他所有功能都能正常运行。

目标是让HTA在后台启动批处理文件（隐藏）并在批处理文件处理时，对HTA没有影响。批处理文件完成并退出后，HTA将启动一个包含用户信息的新HTA。

这里的HTA我的功能不正常......

<html>
  <head>
    <style>
      body { background:#fff url('../_dependencies/welcome.jpg') no-repeat center center fixed; color:#000; margin:25px; padding:0; }
      div#gap { height:306px; }
      div#buttons { padding-right:12px; position:absolute; right:0; }
    </style>
    <title>Installer</title>
    <script language="vbscript">
      Sub Window_OnLoad
        Set Shell = CreateObject("WScript.Shell")
        Set objFSO = CreateObject("Scripting.FileSystemObject")
        sPath = Shell.ExpandEnvironmentStrings("%curdir%")
        Continue = Chr(34) & sPath & "_install.cmd" & Chr(34)
        Shell.Run Continue,0,True
        CompName = Shell.ExpandEnvironmentStrings("%computername%")
        Const ForAppending = 8
        textFile = sPath & "_Logs\" & CompName & ".upgraded.txt"
        If Not objFSO.FileExists(textFile) Then
          Set objTextFile = objFSO.CreateTextFile(textFile, True)
          objTextFile.Close
        End If
        Set objTextFile = objFSO.opentextfile(textFile,ForAppending)
        objTextFile.WriteLine("Upgrade complete on this computer." & vbCrLf & Now())
        objTextFile.Close
        Set textFile = Nothing
        self.close()
      End Sub
    </script>
    <script language="javascript">
      window.resizeTo(620,365);
      window.moveTo((screen.width-620)/2,(screen.height-365)/2);
    </script>
    <hta:application applicationname="Installer" border="none" caption="no" id="objnotitlebar" innerborder="no" maximizebutton="no" minimizebutton="no" scroll="no" showintaskbar="no" singleinstance="yes" systemmenu="no">
  </head>
  <body>
    <div id="gap"><img src="../_dependencies/waiting.gif" /></div>
    <div id="buttons"></div>
  </body>
</html>

Answer 1

Windows不提供环境变量%curdir%。它的扩展产生一个文字字符串%curdir%，因此命令提示符可能会立即关闭，因为找不到文件%curdir%_install.cmd。你或许是%cd%吗？该变量仅在CMD中可用。

你真的想首先从当前的工作目录运行脚本吗？我说它更有可能意味着从与HTA相同的目录中运行批处理文件。该位置可以这样确定：

dir = objFSO.GetParentFolderName(Replace(document.location.href, "file:///", ""))
sPath = objFSO.GetFolder(dir).Path

如果这没有帮助改变行

Shell.Run Continue,0,True

进入这个：

Shell.Run "%COMSPEC% /k " & Continue, 1, True

运行带有cmd /k的批处理脚本可在执行（尝试）脚本后保持命令提示符处于打开状态，这样您就可以查看是否存在任何错误。

Answer 2

因此，经过一些故障排除后，批处理脚本中的问题是配置错误的启动语句。

开始陈述是这样的：

@start /b /min /wait "upgradeinstaller.exe" /silent /noreboot

我把它更改为：

@start /b /min /wait "Upgrade Installer" "upgradeinstaller.exe" /silent /noreboot

我显然需要将标题添加到start命令，否则start命令认为第一个引用文本是标题，然后将开关应用于启动，这不起作用。

从HTA中

2 个答案: