getBotAttribute 方法

返回 IHTMLFrontPageBotElement 对象的指定 strAttributeName 属性。

expression  返回 IHTMLFrontPageBotElement 对象的表达式。

strAttributeName  必选，String 类型。表示属性名称的字符串。

返回类型

Variant

示例

本示例使用 getBotAttribute 方法在初始时获得属性，并检查搜索组件是否设置正确，稍后再检查搜索组件是否已删除。

Private Sub AccessBots()
Dim myMyFPBot As FPHTMLFrontPageBotElement
Dim myBodyObject As FPHTMLBody
Dim myHTMLString As String
Dim myPage As PageWindow

myHTMLString = ""
myHTMLString = myHTMLString & _
    "<!--webbot bot=""Search"" s-index=""All"""
myHTMLString = myHTMLString & _
    " s-fields s-text=""Search for:"""
myHTMLString = myHTMLString & _
    "i-size=""20"" s-submit=""Start Search""
myHTMLString = myHTMLString & _
    " s-clear=""Reset"" s-timestampformat=""%m/%d/%y"""
myHTMLString = myHTMLString & " tag=""BODY"" -->"

Set myBodyObject = ActivePageWindow.Document.body
Set myPage = ActivePageWindow

Call myBodyObject.insertAdjacentHTML("BeforeEnd", _
    myHTMLString)

Set myMyFPBot = _
    myPage.Document.all.tags("webbot").Item(0)

Debug.Print myMyFPBot.getBotAttribute("s-submit")
Call myMyFPBot.setBotAttribute("s-submit", "new item")
Debug.Print myMyFPBot.getBotAttribute("s-submit")
Call myMyFPBot.removeBotAttribute("s-submit")
Debug.Print myMyFPBot.getBotAttribute("s-submit")

End Sub