概要
ウェブストレージのハンドル用クラスを解説します。ウェブストレージ(ローカルストレージ、セッションストレージ)を取得し、各種操作をします。
オブジェクト設定
・変数宣言
Dim Storage As Storage
・親クラス:StorageLocal,StorageSession
文法
Set Storage = driver.Manage.StorageLocal
Storage.[メソッド]
メソッド・プロパティ
メソッド
スクロールできます
Name | 解説 | ShortExample |
---|---|---|
Clear | ストレージをクリア | Storage.Clear |
Count | ストレージ内のアイテム数を取得 | Debug.Print Storage.Count |
Keys | ストレージの全キーを取得 | Set List = Storage.Keys |
Remove | 指定キーのストレージアイテムを削除 | Storage.Remove "CentralAuthAnon" |
※Short Exampleは、動作確認ができたコードを記載しています。
プロパティ
スクロールできます
Name | 解説 | ShortExample |
---|---|---|
Item(Get) | 指定キーのストレージアイテムを取得 | Storage.Item("hoge") = 123456789 |
Item(Set) | 指定キーのストレージアイテムを設定 | Debug.Print Storage.Item("CentralAuthAnon") |
※Short Exampleは、動作確認ができたコードを記載しています。
Example
Use_Storage
Private Sub Use_Storage()
Dim driver As New ChromeDriver
Dim Storage As Storage
driver.Get "https://ja.wikipedia.org/wiki/"
driver.Wait 2000
Set Storage = driver.Manage.StorageLocal
Debug.Print Storage.Count
Dim List As New List: Set List = Storage.Keys
Dim i As Integer
For i = 1 To List.Count
Debug.Print List.Item(i)
Next i
Storage.Item("hoge") = 123456789
Debug.Print Storage.Item("CentralAuthAnon")
Storage.Remove "CentralAuthAnon"
Debug.Print Storage.Count
Storage.Clear
Debug.Print Storage.Count
driver.Quit
End Sub