Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Timer1_Timer()
If Hour(Now) = 22 Or Hour(Now) = 21 Then
If Minute(Now) = 50 Then
WebBrowser4.Navigate Trim(Text1.Text)
Sleep 2000 '等待网页加载
mouse_event MOUSEEVENTF_ABSOLUTE + MOUSEEVENTF_MOVE + MOUSEEVENTF_LEFTDOWN + MOUSEEVENTF_LEFTUP, 坐标x, 坐标y, 0, 0
End If
End If
End Sub
打开网页后点击任意位置,会弹出窗口显示鼠标点击位置的 x 和 y 坐标。
================我用上述代码检测webbrowser的坐标为259 415