如何让 HTA 应用程序接受命令行参数？

Question

Sub Window_onLoad
    arrCommands = Split(ITTool.commandLine, chr(34))
    For i = 3 to (Ubound(arrCommands) - 1) Step 2
        MsgBox arrCommands(i)
    Next
End Sub

当我运行我的 HTA 申请时，我得到：

arrCommands is undefined

我正在尝试制作一个 accepts command line arguments（可选）的 HTA 应用程序。

Answer 1

您的脚本部分包含 Option Explicit 语句。这使得必须先定义变量，然后才能使用它们。在您的程序中添加一行 Dim arrCommands, i：

Sub Window_onLoad
    <b>Dim arrCommands, i</b>
    arrCommands = Split(ITTool.commandLine, chr(34))
    For i = 3 to (Ubound(arrCommands) - 1) Step 2
        MsgBox arrCommands(i)
    Next
End Sub

如何让 HTA 应用程序接受命令行参数？

How to get an HTA application to accept command line arguments?

vbscript

hta