跳到主要内容

MoveTo 鼠标移动

🎯功能​

普通模拟移动鼠标到指定的坐标点

📜语法​

MoveTo x, y

📥参数​

参数数据类型解释
x整数型移动目的地坐标x
y整数型移动目的地坐标y

📤返回​

无

💡示例​

//移动鼠标到100,100坐标
MoveTo 100, 100

//单击鼠标左键1次
LeftClick 1
//高级例子
//介绍: 带有移动轨迹的鼠标移动
//终点x: 要移动到的目的地x
//终点y: 要移动到的目的地y
Sub zmMoveReal(终点x, 终点y)
    Dim 起点x, 起点y, 速度, x, y, 延时
    速度 = 5  //速度越大越快
    延时 = 5  //延时越大越慢
    GetCursorPos 起点x, 起点y
    If 终点x = 起点x Then 
      x = 终点x
        For y = 起点y To 终点y Step sgn(终点y - 起点y) * 速度
            MoveTo x, y
            Delay 延时
        Next
    ElseIf 终点y = 起点y Then
      y = 终点y
        For x = 起点x To 终点x Step sgn(终点x - 起点x) * 速度
            MoveTo x, y
            Delay 延时
        Next
    ElseIf Abs(起点x - 终点x) > Abs(起点y - 终点x) Then
        For x = 起点x To 终点x Step sgn(终点x - 起点x) * 速度
            MoveTo x, ((终点y - 起点y) / (终点x - 起点x)) * x + (终点y - (终点y - 起点y) / (终点x - 起点x) * 终点x)
            Delay 延时
        Next
    Else 
        For y = 起点y To 终点y Step sgn(终点y - 起点y) * 速度
            MoveTo (y - (终点y - (终点y - 起点y) / (终点x - 起点x) * 终点x)) / ((终点y - 起点y) / (终点x - 起点x)), y
            Delay 延时
        Next
    End If
    MoveTo 终点x, 终点y
End Sub

//调用例子, 带轨迹移动到500, 600坐标
zmMoveReal 500, 600

📘备注​