SeleniumBasic操作运行中的Chrome浏览器

xinhuanjieyi2024-07-23 15:59

今天用免费云服务器，三丰云，做操作浏览器自动化的VB程序。

如何自动化已经打开的浏览器？

http://chromedriver.storage.googleapis.com/index.html

首先寻找驱动，最新的驱动只支持到浏览器114，我在网上下载的浏览器是94.0.4606.81（64位版本），selenium驱动下载的是94.0.4606.61/chromedriver_win32.zip，位数不一致竟然也可以。

浏览器和驱动都解压或安装到I:\install\Chrome94\ 文件夹下。

命令行中输入以下命令：

"I:\install\Chrome94\Google94.exe" --remote-debugging-port=9999 --user-data-dir="C:\Windows\Temp"

输入以上命令，打开了浏览器。

bash 复制代码

Private WD As SeleniumBasic.IWebDriver
'"I:\install\Chrome94\Google94.exe" --remote-debugging-port=9999 --user-data-dir="C:\Windows\Temp"
Sub Baidu()
    'On Error GoTo Err1
    Dim Service As SeleniumBasic.ChromeDriverService
    Dim Options As SeleniumBasic.ChromeOptions
    Set WD = New SeleniumBasic.IWebDriver
    Set Service = New SeleniumBasic.ChromeDriverService
    With Service
        .CreateDefaultService driverPath:="I:\install\Chrome94\"
        .HideCommandPromptWindow = True
    End With
    Set Options = New SeleniumBasic.ChromeOptions
    With Options
        .BinaryLocation = "I:\install\Chrome94\Google94.exe"
        .DebuggerAddress = "127.0.0.1:9999"
    End With
    WD.New_ChromeDriver Service:=Service, Options:=Options
    WD.url = "https://www.baidu.com"
End Sub
Private Sub Form_Load()
Baidu
End Sub

运行以上代码，在打开的浏览器，打开了百度。