• 企业400电话
  • 微网小程序
  • AI电话机器人
  • 电商代运营
  • 全 部 栏 目

    企业400电话 网络优化推广 AI电话机器人 呼叫中心 网站建设 商标✡知产 微网小程序 电商运营 彩铃•短信 增值拓展业务
    从 HTA 中启动应用程序
    如何从 HTA 中启动应用程序?
    问:
    您好,脚本专家!对于 HTA,有没有什么可以替代 Wscript.Shell 命令?我需要运行某个应用程序并指定要打开的文件。
    -- DL
    答:
    您好,DL。是的,我们确实知道这样的命令,可以在 HTA 中使用并可以替代 Wscript.Shell 命令,我们一会儿就会向您介绍。不过,在介绍它之前,我们应注意到您实际上可以在 HTA 中使用 Wscript.Shell 对象。这是一个常会引发混淆之处:因为您在 HTA 中无法使用某些命令(如 Wscript.Echo 和 Wscript.Sleep),人们就认为您在 HTA 中无法使用任何 WSH 命令。
    继续之前,还有一个问题:为什么您在 HTA 中无法使用 Wscript.Echo 和 Wscript.Sleep 呢?是这样,这些方法是 Wscript 对象的属性,而您是无法创建 Wscript 对象实例。Wscript 对象是自动创建的,而且只有在您运行 Windows Script Host(即 Wscript.exe 或 Cscript.exe)时才会创建。正因为这一点,才可以说以下脚本绝对有效:
    复制代码 代码如下:

    Wscript.Echo "Hey."

    请注意,我们没有创建 Wscript 对象,该对象是在我们调用 Windows Script Host 时自动创建的。
    但这只限于 Wscript 对象。还有其他您可以创建的 WSH 对象,包括 Shell 对象。例如,下面是一个简单的小 HTA,它创建 Wscript.Shell 对象,然后运行 Notepad.exe(并在此过程中打开文件 C:\Scripts\Test.txt):
    复制代码 代码如下:

    html>
    head>
    script language="VBScript">
    Sub RunProgram
    Set objShell = CreateObject("Wscript.Shell")
    objShell.Run "notepad.exe c:\scripts\test.txt"
    End Sub
    /script>
    /head>
    body>
    button onclick="RunProgram">Run Program/button> p>
    /body>
    /html>

    如您可以看到的,这差不多是您能获得的最简单的 HTA:它只由一个按钮组成,单击时会运行名为 RunProgram 的子例程。请看一下 RunProgram 的代码:
    复制代码 代码如下:

    Sub RunProgram
    Set objShell = CreateObject("Wscript.Shell")
    objShell.Run "notepad.exe c:\scripts\test.txt"
    End Sub

    就是这样:我们创建 Wscript.Shell 对象的一个实例,然后调用 Run 方法。这样就为 Run 传递了单一参数:可执行文件名 (notepad.exe) 后跟想要打开的文件的路径。这就是我们需要做的一切。
    顺便说一句,只要是在 HTA 中运行该脚本,则不会有任何问题。如果尝试在 HTML 文件(即文件扩展名为 .htm 的文件)中运行它,则会显示一个消息框,警告您有一个 ActiveX 控件正在尝试于页面上运行。此时必须单击是以允许该子例程创建 Shell 对象,并随后运行它。这是因为 WSH 对象被认为“对脚本编写是不安全的”。
    注意:是啊,这听起来有点怪,竟然认为脚本编写对象对脚本编写是不安全的。但这是因为 Internet Explorer 使用与 WSH 不同的脚本宿主和不同的安全模型。幸好 HTA 使用与 Internet Explorer 不同的安全模型,这意味着您在 HTA 内创建 Shell 对象时不会遇到此问题。
    那么,如果是使用那个替代命令呢?嗯,如果出于某种原因您不想使用 Wscript.Shell 对象,则可以改为使用 Windows Shell 对象。下面的 HTA 也可以启动记事本并打开文件 C:\Scripts\Test.txt:
    复制代码 代码如下:

    html>
    head>
    script language="VBScript">
    Sub RunProgram
    Const NORMAL_WINDOW = 1
    Set objShell = CreateObject("Shell.Application")
    objShell.ShellExecute "notepad.exe", "c:\scripts\test.txt", , , NORMAL_WINDOW
    End Sub
    /script>
    /head>
    body>
    button onclick="RunProgram">Run Program/button> p>
    /body>
    /html>

    坦白地讲,我们认为使用 Windows Shell 对象与使用 Wscript.Shell 对象相比并没有什么真正的优势:这两个对象的功能基本上一样。不过,如果您想要摆弄一下 Windows Shell,请查阅有关 ShellExecute 方法的文档。重要的是这一点:如果想要从 HTA 启动应用程序,两种方法都可以使用。
    上一篇:hta 定时关机重启实现代码
    下一篇:ASP 辅助工具(hta版)
  • 相关文章
  • 

    © 2016-2020 巨人网络通讯 版权所有

    《增值电信业务经营许可证》 苏ICP备15040257号-8

    从 HTA 中启动应用程序 从,HTA,中,启动,应用程序,