HTA中的VBScript,从按钮未指定错误

时间:2017-03-01 14:53:59

标签: javascript vbscript

我有这个非常简单的HTA文件,它基本上是一个用参数激活一些PowerShell的表单。

VBScript和一些Javascript函数阻止enter键提交表单&从表单中提取数据:

<script>

    function grabData(name) {
        var txt_val;
        txt_val = document.getElementById(name).value;
        return txt_val;
    }

    $('html').bind('keypress', function(e) {
        if(e.keyCode == 13) {
            return false;
        }
    });

</script>

<script language="VBScript">

    Sub readFromServer()
        CreateObject("WScript.Shell").Run "processModel.bat """ & grabData("model") & """ """ & grabData("os") & """ """ & grabData("graphics") & """ """ & grabData("hdd") & """ """ & grabData("ram") & """ """ & grabData("processor") & """ """ & grabData("UPC") & """ """ & grabData("actualmodel") & """ """ & grabData("otherIdentifier") & """ "
        window.close()
    End Sub

</script>

表单元素:

<div class="form-group">
    <label for="otherIdentifier">Bundle Number</label>
    <input type="text" class="form-control" id="otherIdentifier">
</div>
<div class="form-group">
    <label for="model">Model</label>
    <input type="text" class="form-control" readonly id="model" value="Surface 3">
</div>
<div class="form-group">
    <label for="os">OS</label>
    <input type="text" class="form-control" readonly id="os" value="Windows 10">
</div>
<div class="form-group">
    <label for="graphics">Graphics</label>
    <input type="text" class="form-control" readonly id="graphics" value="Intel(R) HD Graphics  ">
</div>
<div class="form-group">
    <label for="hdd">HDD</label>
    <input type="text" class="form-control" readonly id="hdd" value="125GB">
</div>
<div class="form-group">
    <label for="processor">Processor</label>
    <input type="text" class="form-control" readonly id="processor" value="Intel(R) Atom(TM) x7-Z8700  CPU @ 1.60GHz">
</div>
<div class="form-group">
    <label for="ram">RAM</label>
    <input type="text" class="form-control" readonly id="ram" value="3.92">
</div>

激活vbscript的按钮:

<button class="btn btn-success" onClick="vbscript:readFromServer()">Submit</button>

这与另一个以完全相同的方式运行的页面非常相似,但这不起作用。

当你点击按钮时,你得到一个&#34;未指定的错误&#34;,然后该行和Char将我引导到按钮的onClick功能,就在冒号后面。

enter image description here

我不知道出了什么问题,但迫切需要这个工作。我的剧本有什么问题?

0 个答案:

没有答案