16,552
社区成员
发帖
与我相关
我的任务
分享
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
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