Question

如何将退出状态从HTA（vbscript）返回到调用批处理文件？

我的批处理文件代码

@echo OFF
echo Configuring Test...
call AppConfigurationEditor.hta
call TestConfigurationEditor.hta

1.如果用户点击第一个HTA上的CANCEL按钮，我不想运行第二个HTA。

2.Batch脚本调用/立即显示第二个HTA，而不是等到第一个HTA关闭。

Answer 1

HTA没有实现将错误级别返回给调用者进程的方法。

WScript.Quit无法使用。 lenguage引擎vbscript / javascript / ...是相同的，但实例化引擎的主机对象不是习惯性的Windows脚本主机，它是一个浏览器对象，因此WScript对象不存在。

window.close方法无法使用。它可以关闭hta，但不会给出返回值。

使用hta将值返回给调用进程的常用方法是将此值保存在文件或注册表中。然后调用进程可以检索所需的值。

如果需要errorlevel，则没有直接的方法。但是可以实施间接方法。只需使用WMI检索正在运行的进程列表，找到当前的hta，并为此进程调用Terminate方法，该方法允许设置退出值。

<HTML>
    <HEAD>
        <HTA:APPLICATION 
            ID              = "testCloseHTA" 
            APPLICATIONNAME = "testCloseHTA"
            VERSION         = "0.1"
            NAVIGABLE       = "yes"
            SHOWINTASKBAR   = "yes" 
            SINGLEINSTANCE  = "yes" 
            WINDOWSTATE     = "normal"

            BORDER          = "normal" 
            BORDERSTYLE     = "normal"
            INNERBORDER     = "no" 

            CAPTION         = "yes" 
            MINIMIZEBUTTON  = "yes"
            MAXIMIZEBUTTON  = "yes"
            SYSMENU         = "yes" 
            SCROLL          = "yes" 
            SCROLLFLAT      = "yes"

            CONTEXTMENU     = "yes"
            SELECTION       = "yes"
        />

        <TITLE>testCloseHTA</TITLE>

        <STYLE>
            body { font-size: 1em; font-family:Verdana; }
        </STYLE>

        <SCRIPT language="Javascript">
            function closeWithErrorlevel(errorlevel){
                var colProcesses = GetObject('winmgmts:{impersonationLevel=impersonate}!\\\\.\\root\\cimv2').ExecQuery('Select * from Win32_Process Where Name = \'mshta.exe\'');
                var myPath = (''+location.pathname).toLowerCase();
                var enumProcesses = new Enumerator(colProcesses);
                for ( var process = null ; !enumProcesses.atEnd() ; enumProcesses.moveNext() ) {
                    process = enumProcesses.item();
                    if ( (''+process.CommandLine).toLowerCase().indexOf(myPath) > 0 ){
                        process.Terminate(errorlevel);
                    }
                }
            }

            function closeHTA(value){
                // test close of window. Use default value
                if (typeof value === 'undefined') value = 0; 
                try { closeWithErrorlevel(value) } catch (e) {};
            }

        </SCRIPT>

    </HEAD>

    <BODY>
        <button onclick="closeHTA(0);">close application 0</button>
        <button onclick="closeHTA(1);">close application 1</button>
        <button onclick="closeHTA(2);">close application 2</button>
    </BODY>

    <script language="Javascript">
            window.attachEvent('onbeforeunload',closeHTA);
    </script>

</HTML>

然后您可以将其作为

从批处理文件中调用

start "" /wait testCloseHTA.hta
if errorlevel 2 (
    echo option 2 has been selected
) else if errorlevel 1 (
    echo option 1 has been selected
) else (
    echo option 0 has been selected
)

Answer 2

@echo OFF
echo Configuring Test...
start /wait "" AppConfigurationEditor.hta
echo %errorlevel%
if %errorlevel%==0 call TestConfigurationEditor.hta

应该完成工作 - 如果errorlevel的{{1}}返回为0，则“已取消”将返回其他内容。

terminated normally行只是用于测试，只是告诉你发生了什么。

echo %errorlevel%将启动目标，并暂停批处理直到该过程完成。另外一对兔子的耳朵实际上包含了新的窗口标题 - 这里是多余的，但最好保留为start /wait，否则从目标中选择第一个引用的字符串（如果有的话）作为窗口标题。

Answer 3

您必须将按下的按钮的结果返回Exit Code，可以在errorlevel中使用Wscript.Quit [Value]在您的两个Hta代码中恢复（或者如果您只是想先检查一下）

例如：

Test.vbs

result=Msgbox("Are you sure?",vbokcancel, "")
WScript.Quit result

runtest.bat

@echo off&cls
cscript Test.vbs
if %errorlevel% Equ 1 Echo Process OK
if %errorlevel% Equ 2 Echo Process canceled

如何将退出状态从HTA（vbscript）返回到调用批处理文件

3 个答案: