概要
プロキシサーバーの設定用クラスを解説します。簡易的にプロキシサーバーを設定し、動作検証しました。設定結果は、Capabilitiesメソッドにて確認しています。
オブジェクト設定
・変数宣言
Private Proxy As Proxy
・親クラス：WebDriver
文法
Set Proxy = driver.Proxy
Proxy.[メソッド]
メソッド・プロパティ
メソッド
スクロールできます
| Name | 解説 | ShortExample |
|---|---|---|
| SetAutoConfigure | URLからのプロキシを自動構成 | Proxy.SetAutoConfigure ProxyUrl |
| SetAutodetect | 自動検出でプロキシを使用 | Proxy.SetAutodetect |
| SetFTPProxy | FTPプロキシを使用 | Proxy.SetFTPProxy ProxyUrl |
| SetHttpProxy | HTTPプロキシを使用 | Proxy.SetHttpProxy ProxyUrl |
| SetSocksProxy | Socksプロキシを使用 | |
| SetSSLProxy | SSLプロキシを使用 | Proxy.SetSSLProxy ProxyUrl |
※Short Exampleは、動作確認ができたコードを記載しています。
Example
Proxy_SetAutodetect
Private Const ProxyUrl As String = "<HostName>:<PortNumber>"
Private Proxy As Proxy
Option Explicit
Private Sub Proxy_SetAutodetect()
Dim driver As New ChromeDriver
Set Proxy = driver.Proxy
Proxy.SetAutodetect
Call ProxyCapability(driver)
driver.Quit
End Sub
Private Sub Proxy_SetAutoConfigure()
Dim driver As New ChromeDriver
Set Proxy = driver.Proxy
Proxy.SetAutoConfigure ProxyUrl
Call ProxyCapability(driver)
driver.Quit
End Sub
Private Sub Set_Proxy_Manual()
Dim driver As New ChromeDriver
Set Proxy = driver.Proxy
Proxy.SetHttpProxy ProxyUrl
Proxy.SetSSLProxy ProxyUrl
Proxy.SetFTPProxy ProxyUrl
Call ProxyCapability(driver)
driver.Quit
End Sub
Private Function ProxyCapability(driver As ChromeDriver)
driver.Get "https://google.co.jp"
Dim Cap As Dictionary
Set Cap = driver.Manage.Capabilities
Dim Key, Item, i As Integer
Key = Cap.Keys
Item = Cap.Values
For i = 1 To Cap.Count - 1
If Key(i) = "proxy" Then
Dim prxDic As Dictionary
Set prxDic = Item(i)
Debug.Print "proxy count: " & prxDic.Count
If prxDic.Count > 0 Then
Dim prxKey, prxItem, j As Integer
prxKey = prxDic.Keys
prxItem = prxDic.Values
For j = 0 To prxDic.Count - 1
Debug.Print prxKey(j) & ": " & prxItem(j)
Next j
End If
End If
Next i
End Function
