Я пытаюсь запустить пакетный файл из HTA-файла. Кажется, что запуск командного файла начинается правильно (или, по крайней мере, связанная с ним подсказка CMD), но партия закрывается через несколько секунд, когда она занимает около 5 минут. В течение кратковременного момента выполняется CMD-процесс, появляется окно HTA для приостановки, затем закрывается, как только заканчивается процесс CMD. Все остальное о HTA функционирует должным образом.Запуск командного файла из 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>
Вы также должны указать исходный код 'install.cmd' – Hackoo