我一直在寻找一段时间，但我似乎找不到答案。我正在制作一个基于gui的程序选择器，我对VBS和HTA很陌生。我做了一个自动打字，我似乎不明白为什么它不能在HTA工作。它自己可以正常工作。
<head>
<title>Gui Bases Program Selector.</title>
<HTA:APPLICATION
APPLICATIONNAME="HTA Test"
SCROLL="yes"
SINGLEINSTANCE="yes"
WINDOWSTATE="maximize"
>
</head>
<script language="VBScript">
Sub TestSub
Set shell = CreateObject("wscript.shell")
strtext = InputBox("What Do you want your message do be?")
strtimes = InputBox ("How many times would you like you type it?")
If Not IsNumeric(strtimes) Then
lol = MsgBox("Error = Please Enter A Number.")
WScript.Quit
End If
MsgBox "After you click ok the message will start in 5 seconds "
WScript.Sleep(5000)
Tor i=1 To strtimes
shell.SendKeys(strtext & "")
shell.SendKeys "{Enter}"
WScript.Sleep(75)
Next
End Sub
</script>
<body>
<input type="button" value="AutoTyper" name="run_button" onClick="TestSub"><p>
</body>
HTA引擎不提供WScript对象，所以像WScript.Quit或WScript.Sleep这样的东西在HTA中不起作用。要以编程方式退出HTA，请使用Self.Close或window.Close。要替换Sleep方法，请参见此问题的答案。