VBScript inside HTA

我是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的函数获取数据以显示在我的标签

可以通过遍历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>

在这里，我已经添加了一个id的<div/>，你的目标，并使用它得到一个引用的元素设置其InnerText属性之前。

相关内容

最新更新

热门标签：