VBScript внутри HTA - PullRequest
Новая
       9

VBScript внутри HTA

1 голос
/ 09 ноября 2011

Я новичок в 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 для отображения в моих тегах

1 Ответ

3 голосов
/ 10 ноября 2011

Вы можете сделать это, обходя 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/>, на который вы нацеливаетесь, и использовал его, чтобы получить ссылку наэлемент перед установкой его свойства InnerText.

...