从VBS函数中向HTML应用程序中的元素添加类

时间:2015-06-04 15:08:55

标签: css dom vbscript hta

我有一个HTA,当备份例程完成时显示,我希望能够通过VBS操作HTA,显示是否正确备份了一系列文件夹。

那么,使用HTA中元素的ID,是否可以在元素中添加一个类?

例如 -

  

如果result = true那么{将类'成功'添加到id' results-documents'}

以下是我展示HTA的VBS -

Shell.Run COMPLETED_MESSAGE_PATH, 0, True

我希望定位的元素示例如下所示。例如,这里我想添加一个类属性(类名称不同)到ID为'result-documents'的元素 -

<span class="list-item"><span id="result-documents"></span>Documents</span>

1 个答案:

答案 0 :(得分:2)

如果相关元素已经没有class属性,您需要先创建一个属性,然后才能为其赋值:

Set p = IE.Document.getElementById("result-documents")

Set attr = IE.Document.createAttribute("class")
attr.value = "success"
p.setAttributeNode(attr)

为了直接在HTA中运行此代码,只需删除IE对象,因为IE已经是该上下文中的运行时环境:

Set p = document.getElementById("result-documents")

Set attr = document.createAttribute("class")
attr.value = "success"
p.setAttributeNode(attr)

如果您的元素ID中没有连字符(例如resultsDocuments而不是results-documents),您甚至可以直接使用其ID:

Set attr = document.createAttribute("class")
attr.value = "success"
resultDocuments.setAttributeNode(attr)