Vbs代码在hta中不起作用答案

【问题标题】：Vbs code not working in htaVbs代码在hta中不起作用
【发布时间】：2014-04-09 09:29:54
【问题描述】：

我这里有这个 vbscript 代码：

Set fso = CreateObject("Scripting.FileSystemObject")
Set objShell = CreateObject("WScript.Shell")
Sub Write
Set oFile = fso.OpenTextFile("Text.txt",8,true)
oFile.close
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "m1.hta"
End Sub

这将创建一个文本文件并启动 m1.hta，它可以完美运行。但是，当我将它放入这样的 hta 文件中时：

<Script Language="VBscript">
Set fso = CreateObject("Scripting.FileSystemObject")
Set objShell = CreateObject("WScript.Shell")
Sub Write
Set oFile = fso.OpenTextFile("Text.txt",8,true)
oFile.close
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "m1.hta"
End Sub
</Script>
<input type="Button" value="GO" onclick="Write">

我似乎遇到了这个错误：

我的问题首先是代码有什么问题，其次是如何修复它。提前致谢。

【问题讨论】：

标签： html windows windows-7 vbscript hta

【解决方案1】：

用这个CreateObject("WScript.Shell")替换WScript.CreateObject("WScript.Shell")

【讨论】：

【解决方案2】：

HTA 文件 使用mshta.exe 运行脚本。 mshta.exe 无法识别 wscript 对象。这是该错误的原因。

在运行.vbs 文件时，将使用wscript.exe，它将完美地运行您的代码。

因此，从您的代码中删除 wscript 应该可以正常工作。

【讨论】：