HTA 中的 VBScript答案

【问题标题】：VBScript inside HTAHTA 中的 VBScript
【发布时间】：2011-12-25 12:51:21
【问题描述】：

我是 HTA 新手，我想使用 VBScript。

我有一些 HTML，我想在表格中生成计算机名称（例如）

我遇到的最大问题是如何从函数中检索值并将其放入 HTML 中？

<body style="font:12 pt arial; color:white; filter:progid:DXImageTransform.Microsoft.Gradient(GradientType=0, StartColorStr='#0080FF', EndColorStr='#00FFFF')" onresize="RestoreWindowSize()">

<div align="Center">

<span id="Update">&nbsp;</span>

<table border="0">
<tr>
    <td>Computer name</td>
    <td><div>Data I would like to generate</div></td>
    <td></td>
    <td></td>
    <td></td>
    <td></td>
</tr>
</table>

</div>

</body>
</html>

我知道我的 HTML 有点草率，我将对其进行清理。如何从名为 ComputerName 的函数中获取数据以显示在我的标签中

【问题讨论】：

标签： html scripting vbscript hta

【解决方案1】：

你可以通过遍历 DOM 来做到这一点，就像 JavaScript：

<html>
    <body style="font:12 pt arial; color:white; filter:progid:DXImageTransform.Microsoft.Gradient(GradientType=0, StartColorStr='#0080FF', EndColorStr='#00FFFF')" onresize="RestoreWindowSize()">

    <div align="Center">

    <span id="Update">&nbsp;</span>

    <table border="0">
        <tr>
            <td>Computer name</td>
            <td><div id="computername">Data I would like to generate</div></td>
            <td></td>
            <td></td>
            <td></td>
            <td></td>
        </tr>
    </table>

    </div>
    <script type="text/vbscript">

        dim c: set c = document.getElementById("computername")
        c.InnerText = GetComputerName()

        function GetComputerName()
             ' do your computername lookup here
             GetComputerName = "Geoff"
        end function

     </script>
    </body>
</html>

在这里，我向您所定位的 <div/> 添加了一个 id，并在设置其 InnerText 属性之前使用它获取对该元素的引用。

【讨论】：