02.基本命令02.鼠标命令
,

MoveTo 鼠标移动

文章目录
  1. 1. 功能
  2. 2. 语法
  3. 3. 参数
  4. 4. 返回值
  5. 5. 示例
  6. 6. 备注

功能

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

语法

MoveTo x, y

参数

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

返回值

无

示例

1
2
3
4
5
//移动鼠标到100,100坐标
MoveTo 100, 100

//单击鼠标左键1次
LeftClick 1
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
//高级例子
//介绍: 带有移动轨迹的鼠标移动
//终点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

备注