《SeleniumBasic 3.141.0.0

SeleniumBasic中的Proxy类用来设置代理。使用步骤是先声明和创建Proxy,然后把该变量赋给ChromeOptions,最后启动浏览器。

Private WD As SeleniumBasic.IWebDriver
Sub Baidu()
    On Error GoTo Err1
    Dim Service As SeleniumBasic.ChromeDriverService
    Dim Options As SeleniumBasic.ChromeOptions
    Dim MyProxy As SeleniumBasic.Proxy
    Set WD = New SeleniumBasic.IWebDriver
    Set Service = New SeleniumBasic.ChromeDriverService
    With Service
        .CreateDefaultService driverPath:="E:SeleniumDrivers"
        .HideCommandPromptWindow = True
    End With
    Set MyProxy = New SeleniumBasic.Proxy
    With MyProxy
        .Kind = SeleniumBasic.ProxyKind.ProxyKind_Manual
        .AddBypassAddress "192.168.1.1"
        .SocksUserName = "yongfu"
        .SocksPassword = "123456"
    End With
    Set Options = New SeleniumBasic.ChromeOptions
    With Options
        Set .Proxy = MyProxy
    End With
    WD.New_ChromeDriver Service:=Service, Options:=Options
    WD.URL = "https://www.baidu.com"
    Debug.Print WD.Capabilities.ToString
End Sub

程序的最后,打印浏览器的所有能力,从打印结果中可以看到设置代理成功。

 另外一种简单的方式是,通过AddArgument方法。例如:

在Chrome选项中增加参数 .AddArgument "–proxy-server=http://ip:Port"

    Dim Options As SeleniumBasic.ChromeOptions
    Set Options = New SeleniumBasic.ChromeOptions
    With Options        
        .AddArgument "–proxy-server=http://192.168.1.1:8080"
    End With
    WD.New_ChromeDriver Service:=Service, Options:=Options

 以上两个方式有什么区别,我也不太懂。欢迎探讨。

原文地址:https://www.cnblogs.com/ryueifu-VBA/p/13759060.html