AddclasstoanelementwithinanHTMLApplicationfromwithinVBSfunction

2  

If the element in question doesn't have a class attribute already you need to create one first before you can assign a value to it:

如果有问题的元素已经没有类属性,则需要先创建一个,然后才能为其赋值:

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

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

For running this code directly in an HTA just remove the IE object, because IE already is your runtime environment in that context:

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

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

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

If your element ID didn't have a hyphen in it (e.g. resultsDocuments instead of results-documents) you could even use its ID directly:

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

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