SeleniumBasic CookieClass　クッキー情報の取得

2023年3月21日2023年8月6日

リファレンス

概要

Cookieハンドル用クラスを解説します。Cookieの各種情報を取得できます。

オブジェクト設定

・変数宣言

Dim Cookie As Cookie

文法

Set Cookie = Manage.[FindCookieBy]("<検索値>")
Cookie.[メソッド]

メソッド・プロパティ

メソッド

スクロールできます

Name	解説	ShortExample
Delete	取得したCookieを削除	Cookies.Item(2).Delete

プロパティ

スクロールできます

Name	解説	ShortExample
Domain	Cookieのドメイン名を取得	Cookie.Domain
Expiry	Cookieの有効期限を取得	Cookie.Expiry
Name	Cookie名を取得	Cookie.Name
Path	Cookieのパス名を取得	Cookie.Path
Secure	httpsのセキュア送信の判別を取得	Cookie.Secure
Value	Cookieの値を取得	Cookie.Value

※Short Exampleは、動作確認ができたコードを記載しています。

Example

Use_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