Declare PtrSafe Sub mouse_event Lib "user32" ( _
ByVal dwFlags As Long, _
Optional ByVal dx As Long, _
Optional ByVal dy As Long, _
Optional ByVal dwDate As Long, _
Optional ByVal dwExtraInfo As Long)
Declare PtrSafe Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
#If VBA7 Then
Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal ms As LongPtr)
#Else
Private Declare Sub Sleep Lib "kernel32" (ByVal ms As Long)
#End If
Sub test68_1()
Dim driver As New ChromeDriver
driver.Start "chrome"
driver.Window.SetPosition 200, 200
SetCursorPos 206, 325
Stop
End Sub
Sub test68_2()
Dim driver As New ChromeDriver
Dim bx As Integer
Dim by As Integer
bx = 206
by = 325
driver.Start "chrome"
driver.Window.SetPosition 200, 200
SetCursorPos bx, by
Stop
End Sub
Sub test68_3()
Dim driver As New ChromeDriver
Dim bx As Integer
Dim by As Integer
bx = 206
by = 325
driver.Start "chrome"
driver.Window.SetPosition 200, 200
driver.Get "https://rakuten.co.jp/"
Stop
driver.ExecuteScript "scrollTo(0, 1150);"
SetCursorPos bx + 100, by + 350
Stop
End Sub
Sub test68_4()
Dim driver As New ChromeDriver
Dim bx As Integer
Dim by As Integer
bx = 206
by = 325
driver.Start "chrome"
driver.Window.SetPosition 200, 200
driver.Get "https://rakuten.co.jp/"
driver.ExecuteScript "scrollTo(0, 1150);"
SetCursorPos bx + 100, by + 350
Sleep 500
SetCursorPos bx + 420, by + 350
Sleep 500
SetCursorPos bx + 420, by + 115
Sleep 500
mouse_event &H2, 0, 0, 0, 0
mouse_event &H4, 0, 0, 0, 0
Stop
End Sub
Sub test68_5()
SetCursorPos 100, 400
mouse_event &H2, 0, 0, 0, 0
Sleep 500
SetCursorPos 100, 600
Sleep 500
SetCursorPos 300, 600
Sleep 500
SetCursorPos 300, 400
Sleep 500
SetCursorPos 100, 400
Sleep 500
SetCursorPos 300, 600
mouse_event &H4, 0, 0, 0, 0
End Sub
