Add Method. GetActiveElement

[ghost]

trafficstars

TinySeleniumVBA WebDriver.cls に対して、GetActiveElement のメソッド追加。

' ==========================================================================
' DOM operations
' ==========================================================================


' Get Active Element            '2021/8/7 add ishi
Public Function GetActivElement(Optional ByVal sessionId As String = vbNullString) As WebElement
    Dim data As New Dictionary
    If sessionId <> vbNullString Then
        data.Add "sessionId", sessionId
    End If

   ' Return element
   Set GetActivElement = ToWebElement(Execute(CMD_W3C_GET_ACTIVE_ELEMENT, data)(ELEMENT_KEY), sessionId)
End Function

[GCuser99]

suggest to change GetActivElement to GetActiveElement

[ghost]

ありがとうございます。 スペルミスです。GetActiveElementに変更。

Public Function GetActiveElement(Optional ByVal sessionId As String = vbNullString) As WebElement
    Dim data As New Dictionary
    If sessionId <> vbNullString Then
        data.Add "sessionId", sessionId
    End If

   ' Return element
   Set GetActivElement = ToWebElement(Execute(CMD_W3C_GET_ACTIVE_ELEMENT, data)(ELEMENT_KEY), sessionId)
End Function