Html 通过Web浏览器在vbscript中运行.BAT文件_Html_Vbscript

Html 通过Web浏览器在vbscript中运行.BAT文件

html vbscript

Html 通过Web浏览器在vbscript中运行.BAT文件,html,vbscript,Html,Vbscript,我不熟悉vbscript。我不知道它是否会发生。我有一些VB脚本代码来运行批处理文件我正在尝试通过HTML代码在vbscript中运行.bat文件，如下所示： <HTML> <HEAD> <TITLE>Test Button Events</TITLE> </HEAD> <BODY> <FORM NAME="Form1"> <INPUT TYPE="Button" NAME="Button1" VA

我不熟悉vbscript。我不知道它是否会发生。我有一些VB脚本代码来运行批处理文件

我正在尝试通过HTML代码在vbscript中运行.bat文件，如下所示：

<HTML>
<HEAD>
<TITLE>Test Button Events</TITLE>
</HEAD>
<BODY>
<FORM NAME="Form1">
   <INPUT TYPE="Button" NAME="Button1" VALUE="Run">
   <SCRIPT FOR="Button1" EVENT="onClick" LANGUAGE="VBScript">
    Set WshShell = WScript.CreateObject("WScript.Shell")
    WshShell.Run "%comspec% /K C:\path\to\the\file\a.bat", 0
    ' 0 => hide
    MsgBox("File bop.txt successfully generated")
   </SCRIPT>
</FORM>
</BODY>
</HTML>

但它不会生成文件bop.txt

a、 bat包含：

@echo off
echo Hello World!>bop.txt

也许这是一个正确的起点-Internet设置>安全性>自定义级别>Active x

您可能必须启用某些Activex权限

根据您使用此文件的方式，我成功地使用了.hta文件，例如：

<JOB ID="Test">
    <Head>
        <HTA:APPLICATION
        ID="Test"
        />

        <SCRIPT LANGUAGE="VBScript">
        Sub buttonClick
                Set WshShell = WScript.CreateObject("WScript.Shell")
            WshShell.Run "%comspec% /K C:\path\to\the\file\a.bat", 0
            ' 0 => hide
            MsgBox("File bop.txt successfully generated")
        End Sub
        </SCRIPT>

    </HEAD>
    <HTML>
        <FORM NAME="Form1">
        <INPUT TYPE="Button" NAME="Button1" VALUE="Run" ONCLICK="buttonClick">
    </HTML>
</JOB>


子按钮点击
设置WshShell=WScript.CreateObject（“WScript.Shell”）
WshShell。运行“%comspec%/K C:\path\to\the\file\a.bat”，0
'0=>隐藏
MsgBox（“文件bop.txt已成功生成”）
端接头

另存为file.hta

据我所知，HTA文件的作用域安全性更高，因此不会被浏览器阻止

这里有更多信息：

在1999版的InternetExploder中，这类功能可能会起作用，但我有理由相信现代浏览器会阻止它。@不知为什么现代浏览器会阻止它？它会导致任何安全问题吗？这不是一个好的做法吗？我正在尝试在应用程序中实现这些东西。我应该继续吗？或者有其他方法吗？除非你正在处理一些我从脑海中抹去的特殊MSIE/LDAP内容，否则这是一个坏主意，而且不是跨平台的。JavaScript可能是您希望用于需要客户端脚本的网站的脚本。

<JOB ID="Test">
    <Head>
        <HTA:APPLICATION
        ID="Test"
        />

        <SCRIPT LANGUAGE="VBScript">
        Sub buttonClick
                Set WshShell = WScript.CreateObject("WScript.Shell")
            WshShell.Run "%comspec% /K C:\path\to\the\file\a.bat", 0
            ' 0 => hide
            MsgBox("File bop.txt successfully generated")
        End Sub
        </SCRIPT>

    </HEAD>
    <HTML>
        <FORM NAME="Form1">
        <INPUT TYPE="Button" NAME="Button1" VALUE="Run" ONCLICK="buttonClick">
    </HTML>
</JOB>