在HTML中的VBS不会工作?

时间:2014-02-27 00:12:12

标签: html vbscript hta

我将其创建为HTA文件,现在我想将其更改为HTML页面。我以为我只能删除<HTML APPLICATION....>并将其余内容粘贴到html文件中。但看起来它不会那样工作....

HTA的作用是允许用户输入信息并将其保存到文本文件,然后调用另一个批处理文件来运行其余的工作。它适用于HTA但我在用户权限问题上将信息写回服务器上的文本文件。所以我想在网页上这样做。

有谁能告诉我如何让这个页面有效?

<html>
<head>
<title>Files Sync </title>
</head>

<script language="vbscript">

Sub WriteTxt_OnClick()
    Dim fso, txt

    Set fso = CreateObject("Scripting.FileSystemObject")
    Set txt = fso.CreateTextFile("E:\Temp\000.txt")

    txt.WriteLine document.Submitted_Link_To_Mex.body.value

    MsgBox ("File Submitted")

End Sub

Sub SYNC_onClick

     Set WshShell = CreateObject("WScript.Shell")
     WshShell.Run "E:\Temp\hahaha.bat", 0
            ' 0 => hide
     MsgBox("Success")

End Sub
</script>

<H2>Copy And Paste The Folder Path To Here </H2>
<body>

<form name="Submitted_Link_To_Mex">
<textarea name="body" cols="150" rows="20">

</textarea>
</form>

<br>
    <input type="button" value="1. SUBMIT" name="WriteTxt"> &nbsp; &nbsp; &nbsp;
    <input type="Button" value="2. SYNC" name="SYNC"> &nbsp; &nbsp; &nbsp;
    <input type="Button" value="3. CLOSE" name="button2" onClick="close">
</div>

</body>
</html>

2 个答案:

答案 0 :(得分:1)

我意识到这篇文章已有两年了,但我遇到了类似的问题,并且在谷歌搜索如何在HTA应用程序中使用VBS后无法找到解决方案。为了将来可能遇到此问题的其他人,我发现将以下代码放在标题中将允许在HTA应用程序中使用VBS。

<meta http-equiv="X-UA-Compatible" content="IE=10">

它不适用于IE的更高版本。只有IE 10及更早版本。

答案 1 :(得分:0)

浏览器是您计算机上的一个程序,可以执行全世界任意服务器的操作。按理说,必须限制这种外国势力的能力。

HTA是您在计算机上安装的程序(因为您确信可以信任它)。它由mshta.exe执行,而不是您的浏览器(尽管两者肯定共享代码)。这样的程序可以完成您在机器上的操作。

所以你不能做你想做的事。