遇到一个问题~关于操作鼠标带轨迹移动的！

[七世罪人]

懒得费脑子写东西，就从按键论坛抄了个代码

但是下面的代码无论如何都无法准确移动到屏幕坐标100,100
熟悉的给看看到底啥地方问题！

    Sub GoTMouse(x1, y1)

        x1 = 100 : y1 = 100 '这里是临时测试移动到的屏幕坐标
        Dim x = MousePosition.X, Y = MousePosition.Y
        Dim 移动偏差x, 移动偏差y, 移动延时
        Dim cs
        Randomize()
        If Math.Abs(x - x1) > Math.Abs(Y - y1) Then
            cs = Math.Abs(x - x1)
        Else
            cs = Math.Abs(Y - y1)
        End If
        Dim 轨迹x = (x1 - x) / cs, 轨迹y = (y1 - Y) / cs
        Dim 移动次数 = 0, 随机次数 = 0, 移动步长 = Int((20 - 16 + 1) * Rnd() + 16)
        While x <> x1 And Y <> y1
            移动次数 = 移动次数 + 1
            x = x + 轨迹x : Y = Y + 轨迹y
            If 移动次数 = 移动步长 Then
                Randomize()
                移动次数 = 0 : 随机次数 = 随机次数 + 1 : 移动步长 = Int((20 - 16 + 1) * Rnd() + 16) : 移动延时 = 2
                If 随机次数 = 4 Then
                    移动偏差x = Int((12 + 12 + 1) * Rnd() - 12) : 移动偏差y = Int((9 + 9 + 1) * Rnd() - 9) : 随机次数 = 0
                End If
                SetCursorPos(x + 移动偏差x, Y + 移动偏差y)
                Threading.Thread.Sleep(移动延时)
            ElseIf Math.Abs(x - x1) <= 移动步长 And Math.Abs(Y - y1) <= 移动步长 Then
                x = x1 : Y = y1
                SetCursorPos(x1, y1)
            End If
        End While


    End Sub

[xuyujing2007]

学习了......................................

[七世罪人]

引用 1 楼 Tiger_Zhao 的回复:

你凭什么断定x、y是同时到达目标点坐标的？ 对 (Math.Abs(x - x1) <= 移动步长) 要优先处理，并且要各自分开处理。 即 x 或 y 之一到达目标坐标后就在这个方向不再移到，等两个方向一起到达目标坐标后就整体结束。

那我应该如何判断呢？先处理X坐标在处理Y坐标？

[七世罪人]

已经根据二楼方案更改了 并且可以正确执行

        Dim x = MousePosition.X, Y = MousePosition.Y
        Dim 移动偏差x, 移动偏差y, 移动延时
        Dim cs

        If Math.Abs(x - x1) > Math.Abs(Y - y1) Then
            cs = Math.Abs(x - x1)
        Else
            cs = Math.Abs(Y - y1)
        End If
        Dim 轨迹x = (x1 - x) / cs, 轨迹y = (y1 - Y) / cs

        Dim 移动次数 = 0, 随机次数 = 0, 移动步长 = Int((20 - 16 + 1) * Rnd() + 16)
        Randomize()

        While x <> x1 And Y <> y1
            移动次数 = 移动次数 + 1
            x = x + 轨迹x : Y = Y + 轨迹y
            ListBox1.Items.Add(Y)
            If 移动次数 = 移动步长 Then

                移动次数 = 0 : 随机次数 = 随机次数 + 1 : 移动步长 = Int((20 - 16 + 1) * Rnd() + 16) : 移动延时 = 2
                If 随机次数 = 4 Then
                    移动偏差x = 10 : 移动偏差y = 2 : 随机次数 = 0
                End If
                SetCursorPos(x + 移动偏差x, Y + 移动偏差y)
                ListBox2.Items.Add(Y)
                ListBox3.Items.Add(y1)
                ' Threading.Thread.Sleep(移动延时)
            ElseIf Math.Abs(x - x1) <= 移动步长 Then
                x = x1
            End If
            If Math.Abs(Y - y1) <= 移动步长 Then
                : Y = y1
            End If
            SetCursorPos(x1, y1)
        End While

[Tiger_Zhao]

你凭什么断定x、y是同时到达目标点坐标的？

对 (Math.Abs(x - x1) <= 移动步长) 要优先处理，并且要各自分开处理。
即 x 或 y 之一到达目标坐标后就在这个方向不再移到，等两个方向一起到达目标坐标后就整体结束。

[mobki.]

你好，可以具体解释一下移动步长以及随机次数是什么吗？代码没看懂，可以讲一下是如何实现x，y的同步吗？谢谢♡