Add Method. GetAlertText, AcceptAlert, DismissAccept

[Deleted user]

TinySeleniumVBA WebDriver.cls

' ==========================================================================
' Alert operations
' ==========================================================================

' Get Alert Text                '2021/6/20 add ishi
Public Function GetAlertText(Optional ByVal sessionId As String = vbNullString) As String
    Dim Data    As New Dictionary
    If sessionId <> vbNullString Then
        Data.Add "sessionId", sessionId
    End If

    GetAlertText = Execute(CMD_W3C_GET_ALERT_TEXT, Data)
End Function

' Accept Alert                  '2021/6/20 add ishi
Public Function AcceptAlert(Optional ByVal sessionId As String = vbNullString)
    Dim Data    As New Dictionary
    If sessionId <> vbNullString Then
        Data.Add "sessionId", sessionId
    End If

    Execute CMD_W3C_ACCEPT_ALERT, Data
End Function

' Dismiss Accept                '2021/6/20 add ishi
Public Function DismissAccept(Optional ByVal sessionId As String = vbNullString)
    Dim Data    As New Dictionary
    If sessionId <> vbNullString Then
        Data.Add "sessionId", sessionId
    End If

    Execute CMD_W3C_DISMISS_ALERT, Data
End Function