无意中发现的 selenium后期绑定

Yanxi2021

lss001 发表于 2024-10-30 14:18
需要安装edgedriver_win32
或edgedriver_win64

多谢高手指点，回头试试

cyhwy

下面是前期绑定edge的例子，已测试正常运行，如何改成后期绑定呢


Sub Baidu()  '打开百度，搜索“好看视频”
    On Error GoTo Err1
    Dim WD As SeleniumBasic.IWebDriver      '声明一个名为WD的变量，类型为SeleniumBasic库中的IWebDriver接口
    Dim Service As SeleniumBasic.EdgeDriverService  '声明一个名为Service的变量，类型为SeleniumBasic库中的EdgeDriverService类。
    Dim Options As SeleniumBasic.EdgeOptions '声明一个名为Options的变量，类型为SeleniumBasic库中的EdgeOptions类。
    Set WD = New SeleniumBasic.IWebDriver   '创建一个新的IWebDriver对象，并将其赋值给WD变量
    Set Service = New SeleniumBasic.EdgeDriverService  '创建一个新的EdgeDriverService对象，并将其赋值给Service变量
    With Service
        .CreateDefaultService driverPath:="D:\SeleniumBasic\Drivers", driverexecutablefilename:="msedgedriver.exe"  '调用CreateDefaultService方法，设置edge驱动程序路径和可执行文件名。
        .HideCommandPromptWindow = True    '隐藏命令提示符窗口
    End With
    Set Options = New SeleniumBasic.EdgeOptions '创建一个新的EdgeOptions对象，并将其赋值给Options变量
    With Options
        .StartPage = "https://www.cnblogs.com/ryueifu-VBA/"  '设置StartPage属性为指定的网址
    End With
    WD.New_EdgeDriver Service:=Service, Options:=Options '调用New_EdgeDriver方法，传入Service和Options对象，创建一个新的EdgeDriver实例。
    WD.Navigate.GoToUrl "https://www.baidu.com" '调用Navigate对象的GoToUrl方法，导航到指定的网址
    Dim form As SeleniumBasic.IWebElement '声明一个名为form的变量，类型为SeleniumBasic库中的IWebElement接口。
    Dim keyword As SeleniumBasic.IWebElement '声明一个名为keyword的变量，类型为SeleniumBasic库中的IWebElement接口。
    Dim button As SeleniumBasic.IWebElement '声明一个名为button的变量，类型为SeleniumBasic库中的IWebElement接口。
    Set form = WD.FindElementById("form") '调用WD对象的FindElementById方法，查找ID为"form"的元素，并将其赋值给form变量。
    Set keyword = form.FindElementById("kw") '调用form对象的FindElementById方法，查找ID为"kw"的元素，并将其赋值给keyword变量。
    keyword.Clear '调用keyword对象的Clear方法，清空输入框中的内容
    keyword.SendKeys "好看视频" '调用keyword对象的SendKeys方法，输入关键词"好看视频"
    Set button = form.FindElementById("su") '调用form对象的FindElementById方法，查找ID为"su"的元素，并将其赋值给button变量。
    button.Click '调用button对象的Click方法，模拟点击按钮
    Debug.Print WD.Title, WD.URL '输出网页的标题和URL
    Debug.Print WD.PageSource '输出网页的源代码
    MsgBox "下面退出浏览器。"
    WD.Quit '调用WD对象的Quit方法，关闭浏览器
    Exit Sub
Err1:
    MsgBox Err.Description, vbCritical
End Sub

cyhwy

搞定了，不需要这么复杂
只要把Dim WD As SeleniumBasic.IWebDriver   放在公共就行了，后面wd别退出，以后就能调用这个已经打开的wd了