SeleniumBasic的下载（VBA中调用Selenium）

ovxyz

博士，咨询一下，这个selenium支持鼠标悬停菜单吗？部分菜单要控制鼠标停留到菜单上一段时间后才会显示，这样的情况，在python中是用ActionChains模块来处理，如果在vba中，用SeleniumBasic要怎么实现鼠标悬停菜单的操作啊？

perfect131

ovxyz 发表于 2023-4-6 16:04
博士，咨询一下，这个selenium支持鼠标悬停菜单吗？部分菜单要控制鼠标停留到菜单上一段时间后才会显示，这 ...

ClickAndHold

志65

想问一下，我在其他电脑操作，是没问题的。可在我自己电脑操作，运行代码，提示没有注册类。这个要怎么解决？多谢

志65

志65 发表于 2023-5-31 16:32
想问一下，我在其他电脑操作，是没问题的。可在我自己电脑操作，运行代码，提示没有注册类。这个要怎么解决 ...

自己找到答案了，我重新卸载了office，然后再重新操作了一遍，就可以了。我也不清楚我是不是没有以管理员身份运行regasm.bat这份文件，所以才报错

逍遥爱迪生

16381584 发表于 2022-10-28 21:52
我研究了很久，也是想把这段改写成VBS，搞不定，问了博士本人，他也不回复

段改写成VBS，搞不定，问了博士本人，他也不回复
qq 2776478814,我可以

逍遥爱迪生

voodoo2008 发表于 2022-10-5 20:46
Private WD As SeleniumBasic.IWebDriver
Sub Baidu()
    On Error GoTo Err1

段改写成VBS，搞不定，问了博士本人，他也不回复
qq 2776478814,我可以

新界123

好详尽的资料，真厉害

Lillian6565

刘老师，可以给下微云的地址嘛？

cjy964

cb.SwitchToNextWindow   可以切换浏览器窗口

离去的都是风景

执行Edge浏览器的时候，弹出Cannot start the driver service on http://localhost:53116, 楼主，能帮我解释一下什么原因吗？
Private WD As SeleniumBasic.IWebDriver
Sub Baidu()
    On Error GoTo Err1
    Dim Service As SeleniumBasic.EdgeDriverService
    Dim Options As SeleniumBasic.EdgeOptions
    Set WD = New SeleniumBasic.IWebDriver
    Set Service = New SeleniumBasic.EdgeDriverService
    With Service
'        .CreateDefaultService driverPath:="E:\Selenium\Drivers", driverexecutablefilename:="MicrosoftWebDriver.exe"
        .CreateDefaultService driverPath:="C:\Program Files (x86)\Microsoft\Edge\Application", driverexecutablefilename:="msedge.exe"
        
        .HideCommandPromptWindow = True
    End With
    Set Options = New SeleniumBasic.EdgeOptions
    With Options
        .StartPage = "https://www.cnblogs.com/ryueifu-VBA/"
    End With
    WD.New_EdgeDriver Service:=Service, Options:=Options
    WD.Navigate_GoToUrl "https://www.baidu.com"
    Dim form As SeleniumBasic.IWebElement
    Dim keyword As SeleniumBasic.IWebElement
    Dim button As SeleniumBasic.IWebElement
    Set form = WD.FindElementById("form")
    Set keyword = form.FindElementById("kw")
    keyword.Clear
    keyword.SendKeys "好看视频"
    Set button = form.FindElementById("su")
    button.Click
    Debug.Print WD.Title, WD.URL
    Debug.Print WD.PageSource
    MsgBox "下面退出浏览器。"
    WD.Quit
    Exit Sub
Err1:
    MsgBox Err.Description, vbCritical
End Sub