If statement 在VBScript中,如何检查IE中div中是否存在单个单词?

If statement 在VBScript中,如何检查IE中div中是否存在单个单词?,if-statement,internet-explorer,automation,vbscript,If Statement,Internet Explorer,Automation,Vbscript,我需要创建一个If语句来标识IE div中是否存在特定的单词 这是因为默认情况下,div为空。当用户单击按钮创建帐户时,div中会出现一个警报,说明用户已经拥有一个活动帐户 您已经有一个活动帐户,请登录 但是如果用户还没有帐户,div将保持为空 这是我正在创建的ie自动化工具的一部分。我只能使用VBScript,不能使用VBA或其他任何东西 我在div中寻找的特定单词是“active”。该Div的ID为“activeAlert” 我试过isObject、isEmpty、isNull、InStr等

我需要创建一个If语句来标识IE div中是否存在特定的单词

这是因为默认情况下,div为空。当用户单击按钮创建帐户时,div中会出现一个警报,说明用户已经拥有一个活动帐户

您已经有一个活动帐户,请登录

但是如果用户还没有帐户,div将保持为空

这是我正在创建的ie自动化工具的一部分。我只能使用VBScript,不能使用VBA或其他任何东西

我在div中寻找的特定单词是“active”。该Div的ID为“activeAlert”

我试过isObject、isEmpty、isNull、InStr等,但似乎没有任何效果。以下是我需要用英语写的内容:

If doc.getElementByID("activeAlert") contains the word "active" then
   msgbox("You already have an active account")
   Exit Sub
Else
   Do something
End If

请记住,我对使用VBScript仍然很陌生,因此请详细解释您的答案,任何示例都将不胜感激。

一旦找到元素,您可以检查其
InnerHTML
InnerText

Dim objElement
Set objElement = doc.getElementByID("activeAlert")

If Not objElement Is Nothing Then
    Dim sText
    sText = objElement.InnerText
    If InStr(sText, "active") > 0 Then
        MsgBox ("You already have an active account")
        Exit Sub
    Else
        ' Not found
    End If
Else
    ' Not found
End If

找到元素后,可以检查其
InnerHTML
InnerText

Dim objElement
Set objElement = doc.getElementByID("activeAlert")

If Not objElement Is Nothing Then
    Dim sText
    sText = objElement.InnerText
    If InStr(sText, "active") > 0 Then
        MsgBox ("You already have an active account")
        Exit Sub
    Else
        ' Not found
    End If
Else
    ' Not found
End If

我赞成埃蒂安·兰维尔的答案。你可以试试他的解决方案,看看是否能解决你的问题。这能回答你的问题吗?(虽然问题是关于VBA的,但答案也与VBScript有关)。我赞成埃蒂安·兰维尔的答案。你可以试试他的解决方案,看看是否能解决你的问题。这能回答你的问题吗?(虽然问题是关于VBA的,但答案也与VBScript有关)。这非常有效!非常感谢你!这真是太棒了!非常感谢你!