2

我是脚本、vbs 和 HTA 命令的新手，但我尝试创建一个简单的 hta 文件夹，其中包含一些代表日期和当前时间的文本框，我需要运行一个特定的 cmd 命令来获取该日期/小时并使用它们在指定的逗号中。我想您阅读代码后会理解更多。对于错误，我提前致歉。

<html>
<head>
<title>HTA Test</title>
<HTA:APPLICATION 
 ID="objTest" 
 APPLICATIONNAME="HTA Test"
 SCROLL="no"
 SINGLEINSTANCE="yes"
>
</head>

<SCRIPT LANGUAGE="VBScript">
Sub TestSub
Dim Shell
Set Shell = WScript.CreateObject ("WScript.Shell")
Shell.run WScript "cmd /g applStart.sh SetTime.dat Year.Value-Month.Value-Day.Value-          Hour.Value-Minute.Value-Second.Value"
Set Shell = Nothing
End Sub
</SCRIPT>
<body>
 Type in the date you want to jump to:</br>

<input type="number" name="Day" size="2">
<input type="number" name="Month" size="2">
<input type="number" name="Year" size="4">
<input type="number" name="Hour" size="2">
<input type="number" name="Minute" size="2">
<input type="number" name="Second" size="2">

<input id=runbutton  type="button" value="Run Script" name="run_button"   onClick="TestSub">

嘿，感谢您的快速响应。我已经设法让它运行我想要的一部分。settime.sh 的部分实际上是腻子中的一个命令，我在写这篇文章的时候还没有完全意识到，但我当我按下运行按钮时，已经设法让它运行腻子。现在我需要它用用户在文本框中给出的值输入命令。这就是我到目前为止所拥有的：HTA 测试 

<SCRIPT LANGUAGE="VBScript">
Sub RunProgram 
    Set objShell = CreateObject("Wscript.Shell")
    objShell.Run "C:\Users\uidv4860\Desktop\Getlogs\PuTTY\putty.exe -load EOBR"
End Sub

</SCRIPT>
<body>
Type in the date you want to jump to:</br>
Day:
<input type="int" name="fDay" size="2" maxLength="2">
Month:
<input type="int" name="fMonth" size="2" maxLength="2">
Year:
<input type="int" name="fYear" size="4" maxLength="4">
Hour:
<input type="int" name="fHour" size="2" maxLength="2">
Minute:
<input type="int" name="fMinute" size="2" maxLength="2">
Second:
<input type="int" name="fSecond" size="2" maxLength="2">
<button onclick="RunProgram">Run Program</button> <p>
</body>
4

1 回答 1

1 
Shell.run WScript "cmd /g applStart.sh SetTime.dat Year.Value-Month.Value-Day.Value-Hour.Value-Minute.Value-Second.Value"

我在上面的陈述中看到了几个错误：

  • 有一个假的WScript。
  • CMD.EXE没有选项/g。你的意思是/c？
  • .sh是一个通常用于 Linux/Unix shell 脚本的扩展。Windows 批处理文件具有扩展名.bat或.cmd.
  • VBScript 不会在字符串中展开变量，因此您需要将变量与字符串文字连接起来。

另外，我会附加, 0, True到语句中，以便CMD实例隐藏运行并且代码等待外部命令完成。

尝试这个：

Shell.run "cmd /c applStart.cmd SetTime.dat " _
  & Year.Value & "-" & Month.Value & "-" & Day.Value & "-" _
  & Hour.Value & "-" & Minute.Value & "-" & Second.Value, 0, True
于 2013-08-12T16:29:19.057 回答