模拟真实鼠标动作防检测——“老鼠慢慢跑”

金猪脚本（原飞猪脚本）以按键精灵教学为主,涉及UiBot，Python,Lua等脚本编程语言,教学包括全自动办公脚本,游戏辅助脚本,引流脚本, 页脚本,安卓脚本,IOS脚本,注册脚本,点赞脚本,阅读脚本以及 赚脚本等各个领域。想制作脚本和学习按键精灵的朋友可以添加按键精灵学习交流群:554127455 学习路上不再孤单,金猪脚本伴你一同成长.5

内容提要

[backcolor=rgb(154, 205, 50)]1点到点模拟鼠标真实移动——直线

[backcolor=rgb(154, 205, 50)] 2点到点模拟鼠标真实移动——直线+转折

[backcolor=rgb(154, 205, 50)]3点到点模拟鼠标真实移动——直线+振幅

[backcolor=rgb(154, 205, 50)] 4点到点模拟鼠标真实移动——曲线场景

[backcolor=rgb(154, 205, 50)] 在mspaint画图工具中，让鼠标从点100，100 移动到点800，600

NO.1-点到点模拟鼠标真实移动——直线

1. x1 = 800 : y1 = 600 //目标点
2. x2 = 100 : y2 = 100//起始点
3. MoveTo x2,y2
4. k = (y2 – y1) / (x2 – x1)
5. b = y2 – k * x2
6. For x = x2 To x1 Step sgn(x1 – x2)
7. //sgn函数为返回表示数字符 的整数。当(x1 – x2)>0时,返回值为1.当(x1 – x2)<0时,返回值为-1.当=0时,返回值为0
8. LeftDown 1
9. MoveTo x, (k * x + b)
10. LeftUp 1
11. Delay 1
12. Next

复制代码

运行效果：

1. Call 鼠标慢慢跑(100,100,800,600,5)
2. Sub 鼠标慢慢跑(x1, y1, x2, y2,time1)
3. Dim a, x, y, i
4. x = x1 : y = y1
5. a = x2 / y2
6. MoveTo x1, y1
7. For i = y To y2-1
8. y = y + 1
9. x = y * a
10. LeftDown 1
11. MoveTo x, y
12. LeftUp 1
13. Delay time1
14. Next
15. End Sub

复制代码

运行效果：

1. //点到点直线移动，鼠标移动速度开始快后来越来越慢
2. Call 老鼠慢慢跑(100,100,800,600,100)
3. Sub 老鼠慢慢跑(x1,y1,x2,y2,times)
4. MoveTo x1,y1
5. While abs(x1-x2)>5 or abs(y1-y2)>5
6. GetCursorPos x1, y1
7. LeftDown 1
8. MoveR (x2 – x1) / 4, (y2 – y1) / 4
9. LeftUp 1
10. Delay times
11. Wend
12. LeftDown 1
13. MoveTo x2, y2
14. LeftUp 1
15. End Sub

复制代码

运行效果：

1. //点到点直线移动，并且可以设置移动几次到达目标地点
2. Dim a, b, c, d ,n,t //起点（100,100),终点（800,600）
3. a = 100 : b = 100 : c = 800 : d = 600
4. //匀速直线移动
5. UserVar n=100 “多少次移动到位”
6. UserVar t=50 “每一次移动相隔多少时间”
7. Call 老鼠慢慢跑()
8. Sub 老鼠慢慢跑
9. MoveTo a, b
10. Delay t
11. For n
12. x = (c – a) / n : y = (d – b) / n
13. LeftDown 1
14. MoveR x, y
15. LeftUp 1
16. Delay t
17. Next
18. End Sub

复制代码

运行效果：

1. MoveTo 100,100
2. Call 老鼠慢慢跑(800, 600, 5, 50)
3. Sub 老鼠慢慢跑(x, y, mousestep, mouseDelay)
4. ‘x,y : 移动终点坐标 ‘ mousestep: 移动间距 ‘mouseDelay : 移动时间间隔(ms)
5. Dim Xstep, Ystep
6. Dim curx, cury, PianYiX, PianYiY
7. GetCursorPos curx, cury
8. If abs(curx – x) < mousestep And abs(cury – y) < mousestep Then
9. LeftDown 1
10. MoveTo x, y
11. LeftUp 1
12. Exit Sub
13. End If
14. Xstep = (x – curx) / mousestep
15. Ystep = (y – cury) / mousestep
16. If abs(Xstep) > abs(Ystep) Then
17. PianYiX = mousestep * sgn(Xstep)
18. PianYiY = (y – cury) / abs(Xstep)
19. Else
20. PianYiX = (x – curx) / abs(Ystep)
21. PianYiY = mousestep * sgn(Ystep)
22. End If
23. LeftDown 1
24. MoveR PianYiX, PianYiY
25. LeftUp 1
26. Delay mouseDelay
27. Call 老鼠慢慢跑(x, y, mousestep, mouseDelay)
28. End Sub

复制代码

运行效果：

[backcolor=rgb(46, 139, 87)]

NO.2-点到点模拟鼠标真实移动——直线+转折

1. //tD几毫秒移动一点
2. call 鼠标慢慢跑(100,100,800,600,5)
3. Sub 鼠标慢慢跑(X1,Y1,X2,Y2,tD)
4. Dim xl,yl,xc,yc,endx,endy,sx,sy
5. Dim FORC,i
6. xl=abs(clng(X1)-clng(X2))
7. yl=abs(clng(y1)-clng(y2))
8. EndX = X2
9. EndY = Y2
10. XC=1
11. YC=1
12. sx=x1
13. sy=y1
14. If clng(X1)>=clng(X2) Then
15. EndX = X1
16. xc = -1
17. End If
18. If clng(Y1)>=clng(Y2) Then
19. EndY = Y1
20. yc = -1
21. End If
22. If xl>yl Then
23. FORC = xl
24. Else
25. FORC = yl
26. End If
27. For i = 1 To FORC+1
28. LeftDown 1
29. MoveTo sx, sy
30. LeftUp 1
31. Delay clng(tD)
32. sx = sx + xc
33. sy = sy + yc
34. If sx=endx Then
35. xc = 0
36. End If
37. If sy=endy Then
38. yc=0
39. End If
40. Next
41. End Sub

复制代码

运行效果：

1. //点到点直线移动，先走x轴横坐标直线，然后转折走y轴纵坐标直线，直至终点 (这是游戏里常用的单步移动的原理)
2. Call 老鼠慢慢跑(100,100,800,600,5)
3. Sub 老鼠慢慢跑(x1, y1, x2, y2, t)
4. MoveTo x1,y1
5. i = 0
6. For abs(x1 – x2)
7. LeftDown 1
8. MoveTo x1+(x2-x1)/abs(x2-x1)*i,y1
9. Delay t
10. LeftUp 1
11. i = i + 1
12. Next
13. i = 0
14. For abs(y1 – y2)+1
15. LeftDown 1
16. MoveTo x2, y1 + (y2 – y1) / abs(y2 – y1) * i
17. LeftUp 1
18. Delay t
19. i = i + 1
20. Next
21. End Sub

复制代码

运行效果：

NO.3-点到点模拟鼠标真实移动——直线+振动

1. //点到点直线移动，移动中鼠标轻微震动
2. Call 老鼠慢慢跑(100,100,800,600,50)
3. Sub 老鼠慢慢跑(x1, y1, x2, y2, t)
4. MoveTo x1,y1
5. While x2 – x1

运行效果：

NO.4-点到点模拟鼠标真实移动——曲线

0 and y2 – y1运行效果：

NO.5

[backcolor=rgb(154, 205, 50)] 为了加强模拟效果，我们可以将上述代码中移动间隔时间、移动距离使用随机数来代替。