鼠标运动轨迹测试工具

易语言 2020-08-20 12:49:41

鼠标运动轨迹测试工具

.如果 (_启动窗口.点击_鼠标轨迹.选中 = 假)
SetCursorPos (x, y)
.否则
' ----------------------------------------------------------取运行比例
.如果 (取鼠标水平位置 () > x)
m_x = 四舍五入 (取鼠标水平位置 () ÷ x, 0)
.否则
m_x = 四舍五入 (x ÷ 取鼠标水平位置 (), 0)
.如果结束
.如果 (取鼠标垂直位置 () > y)
m_y = 四舍五入 (取鼠标垂直位置 () ÷ y, 0)
.否则
m_y = 四舍五入 (y ÷ 取鼠标垂直位置 (), 0)
.如果结束
延迟 (10)
.如果 (取鼠标水平位置 () = x 且 取鼠标垂直位置 () = y)

.否则
.如果 (取鼠标水平位置 () ≤ x 且 取鼠标垂直位置 () ≥ y)
.如果真 (取鼠标水平位置 () ≤ x)
SetCursorPos (取鼠标水平位置 () + m_x, 取鼠标垂直位置 ())
.如果真结束
.如果真 (取鼠标垂直位置 () > y)
SetCursorPos (取鼠标水平位置 (), 取鼠标垂直位置 () - m_y)
.如果真结束
标签1.标题 = “1”
.否则
.如果真 (取鼠标水平位置 () ≥ x)
SetCursorPos (取鼠标水平位置 () - m_x, 取鼠标垂直位置 ())
.如果真结束
.如果真 (取鼠标垂直位置 () < y)
SetCursorPos (取鼠标水平位置 (), 取鼠标垂直位置 () + m_y)