首页
学习
活动
专区
工具
TVP
发布
社区首页 >问答首页 >HTA表单变量传递到批处理文件

HTA表单变量传递到批处理文件
EN

Stack Overflow用户
提问于 2018-05-29 12:52:53
回答 1查看 398关注 0票数 1

我正在尝试将.hta文件保存在与我希望运行的.exe相同的文件夹中。我知道至少有两种方法可以从.hta文件中启动这个应用程序。

我更希望代码可以在一个文件中完成,而不是将用户输入变量发送到批处理文件中,而是最好地工作。

  1. .hta必须确定它在哪个工作文件夹(SourceDir)中运行,并将其用作.exe
  2. 的命令变量的一部分,用户将从下拉列表中选择一些选项。无论选择的是什么,都将用作.exe的命令变量的一部分(除了上述内容之外) 2a。然后用户可以选择在文本框中输入值,这将向.exe
  3. 添加一个额外的变量,然后用户将有两个按钮来单击以完成表单。无论选择什么,都将指定命令行输出的最后部分的路径。

路径1的当前批处理文件:

代码语言:javascript
复制
     @echo off
     cd SourceDir
     app.exe -v --log-file testH.txt -H -L "SourceDir\123\x.dll" 
     "SourceDir\456\abc.rar"

路径2的当前批处理文件:

代码语言:javascript
复制
    @echo off
    cd SourceDir
    app.exe -v --log-file testC.txt -C usertext -L "SourceDir\123\x.dll" 
    "SourceDir\456\abc.rar"

我有一个不太好用的基本代码:

代码语言:javascript
复制
    <SCRIPT LANGUAGE="VBScript">
     Sub Hosting
       Set Shell = CreateObject("WScript.Shell")
       Shell.run "app.exe -v --log-file testH.txt -H -L "& 
       SourceDir.Value & "123\x.dll" & SourceDir.Value & "456\abc.rar"
     End Sub
    </SCRIPT>

如何使表单域和源目录数据在此exe上工作?将变量转移到批处理文件并进行相应的编辑会更容易吗?

小节部分:

代码语言:javascript
复制
    <html>
    <head>
    <title>Test</title>  
    <HTA:APPLICATION  
         ID="objHTA_Info"  
         APPLICATIONNAME="HTA_Info"  
         SINGLEINSTANCE="yes"  
    >
    <script language="VBScript"> 
    FullName = replace(objHTA_Info.commandLine,chr(34),"")  
    arrFN=split(FullName,"\")  
    FileName = arrFN(ubound(arrFN))  
    SourceDir=replace(FullName,FileName,"")  
    Sub Window_onLoad  
        html = "<TABLE><TR><TD><b>Directory of app.exe </b></TD></TR><TR><TD>" & SourceDir & "</TD></TR></TABLE>"
        BLAH.InnerHTML = html  
    End Sub

    Sub RunProgram
        Set objShell = CreateObject("Wscript.Shell")
        objShell.Run "app.exe -L " & SourceDir & "123\x.dll" & SourceDir & "456\abc.rar"
    End Sub
    </script>
    </head> 
    <body>
    <button onclick="RunProgram">Run app.exe</button>
    <SPAN ID=BLAH></SPAN>
    </body>
    </html>

脚本的第一部分工作正常,并显示了正确的工作目录路径。单击该按钮将打开应用程序,但由于参数错误而崩溃。

在没有参数的情况下,它运行良好:

代码语言:javascript
复制
       Sub RunProgram
        Set objShell = CreateObject("Wscript.Shell")
        objShell.Run "app.exe"
       End Sub

我需要参数!如有任何帮助,非常感谢!

EN
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接:

https://stackoverflow.com/questions/50576517

复制
相关文章

相似问题

领券
问题归档专栏文章快讯文章归档关键词归档开发者手册归档开发者手册 Section 归档