如何通过Selenium VBA实现鼠标光标可视化移动至指定位置？

Selenium的Actions.MoveByOffset方法仅在浏览器内部模拟鼠标事件，不会移动真实的系统鼠标光标，因此放大镜无法捕捉到这个操作。要实现让放大镜可见的可视化移动，需要结合Windows系统API直接控制真实鼠标位置。

解决方案步骤 #

1. 声明Windows API函数，用于获取窗口位置和设置鼠标坐标
2. 计算页面目标坐标对应的屏幕坐标（结合浏览器窗口位置）
3. 调用API移动真实鼠标

完整代码示例 #

首先在VBA模块顶部添加API声明：

Private Declare PtrSafe Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long
Private Declare PtrSafe Function GetWindowRect Lib "user32" (ByVal hwnd As LongPtr, lpRect As RECT) As Long

Private Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type

然后编写移动鼠标的子程序：

Sub VisuallyCursorMove()
    Dim Driver As Selenium.ChromeDriver
    Dim browserRect As RECT
    Dim screenX As Long, screenY As Long
    
    Set Driver = New Selenium.ChromeDriver
    Driver.Start
    Driver.Get "http://www.yahoo.com"
    
    ' 获取浏览器窗口在屏幕上的位置
    GetWindowRect Driver.Window.hwnd, browserRect
    
    ' 转换页面坐标(5,10)为屏幕坐标：窗口左上角偏移 + 页面内坐标
    ' 注意：根据Chrome的标题栏、边框高度，需要额外调整偏移值，以下数值仅供参考，可自行测试调整
    screenX = browserRect.Left + 5 + 12 ' 12为浏览器左侧边框宽度
    screenY = browserRect.Top + 10 + 78 ' 78为浏览器标题栏+导航栏总高度
    
    ' 移动真实鼠标到目标屏幕坐标
    SetCursorPos screenX, screenY
    
    ' 若需同时触发页面上的鼠标事件（如悬停），可再执行Selenium的Actions操作
    ' Driver.Actions.MoveByOffset(5, 10).Perform
End Sub

关键说明 #

• SetCursorPos：Windows系统API，直接控制真实鼠标光标位置，放大镜能捕捉到该移动
• 坐标转换：页面内的坐标需要加上浏览器窗口在屏幕上的偏移量，同时要考虑浏览器边框、标题栏的高度/宽度，不同浏览器版本可能需要微调偏移数值
• 若需移动到指定元素位置：可通过elem.Rect获取元素在页面内的坐标，再转换为屏幕坐标，示例如下：

' 获取目标元素
Dim targetElem As Selenium.WebElement
Set targetElem = Driver.FindElement(By.Id, "target-element-id")

' 获取元素在页面内的位置和尺寸
Dim elemRect As Object
Set elemRect = targetElem.Rect

' 计算元素中心对应的屏幕坐标
screenX = browserRect.Left + elemRect.Left + (elemRect.Width / 2) + 12
screenY = browserRect.Top + elemRect.Top + (elemRect.Height / 2) + 78

SetCursorPos screenX, screenY

内容的提问来源于stack exchange，提问作者Sherlock_Holmes