SeleniumBasic CookiesClass　Cookieの集合体ハンドル

Private Sub Use_Cookie()
    Dim Assert As New Selenium.Assert
    Dim driver As New ChromeDriver
    Dim Mng As Manage
    driver.Get "https://ja.wikipedia.org/wiki/"
    driver.Wait 2000

    'cookie名でcookieオブジェクトを取得
    Dim Cookie As Cookie
    Set Mng = driver.Manage
    Set Cookie = Mng.FindCookieByName("WMF-Last-Access-Global")
    Assert.Equals ".wikipedia.org", Cookie.Domain

    'cookieの登録
    Mng.AddCookie "hoge", "hogehoge"

    '取得ページの全cookie情報を取得
    Dim maxrow As Long, Cookies As Cookies
    Set Cookies = Mng.Cookies
    With ThisWorkbook.Worksheets("Cookie")
    For Each Cookie In Mng.Cookies
        maxrow = .Cells(Rows.Count, 1).End(xlUp).row
        .Cells(maxrow + 1, 1) = Cookie.Name
        .Cells(maxrow + 1, 2) = Cookie.Value
        .Cells(maxrow + 1, 3) = Cookie.Domain
        .Cells(maxrow + 1, 4) = Cookie.Path
        .Cells(maxrow + 1, 5) = Cookie.Secure
        .Cells(maxrow + 1, 6) = Cookie.Expiry
    Next Cookie
    End With
    
    'cookie情報の削除
    Debug.Print Mng.Cookies.Count
    Cookies.Item(2).Delete
    Mng.DeleteCookieByName "WMF-Last-Access-Global"
    Debug.Print Mng.Cookies.Count
    Mng.DeleteAllCookies
    
    driver.Quit
End Sub