SeleniumBasic操作运行中的Chrome浏览器

今天用免费云服务器，三丰云，做操作浏览器自动化的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”
输入以上命令，打开了浏览器。

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

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

原文地址：https://blog.csdn.net/xinhuanjieyi/article/details/140617422

免责声明：本站文章内容转载自网络资源，如本站内容侵犯了原著者的合法权益，可联系本站删除。更多内容请关注自学内容网（zxcms.com）！