想改下脚本可是小白一个，脚本是朋友以前写给我的有大神教教吗？
按键精灵吧
全部回复
仅看楼主
level 10
啥时候可以改用户名 楼主
想改下脚本可是小白一个，脚本是朋友以前写给我的有大神教教吗？Dim intX,intY
Delay 7000
Call 选进收藏01()
Sub 选进收藏01()
For 99999999999999
Call 进收藏01()
Next
End Sub
Sub 进收藏01()
FindPic 80,12,123,58, "Attachment:进收藏.png", "000000", 0, 0.7, intX, intY
If intX > -1 And intY > -1 Then
Delay 100
Touch IntX, Inty, 300
Delay 3500
For 20
Call 进了收藏01()
Delay 200
Next
For 9999999999
Call 进收藏01()
Next
End If
End Sub
Sub 进了收藏01()
FindPic 407,326,466,515, "Attachment:进了收藏.png", "000000", 0, 0.7, intX, intY
If intX > -1 And intY > -1 Then
Delay 1000
Touch 378,662,300
Delay 1000
Touch 378,662,300
Delay 2000
For 9999999999
For 6
For 10
Call 查0101()
Delay 100
Next
Swipe 207,332, 287,332
Delay 2000
Swipe 287,332, 207,332
Delay 2000
Next
Touch 376,180, 300
Delay 2000
Touch 376,180, 300
Delay 2000
Touch 378,662,300
Delay 2000
Touch 378,662,300
Delay 2000
Next
End If
End Sub
Sub 查0101()
FindPic 62,175,346,391, "Attachment:01.png", "000000", 0, 0.7, intX, intY
If intX > -1 And intY > -1 Then
Delay 500
Touch IntX - 14, Inty + 482, 300
Delay 5500
For 99999999999999
Call 进了收藏01()
Call 侦查过的地方01()
Next
End If
End Sub
Sub 侦查过的地方01()
FindPic 98,374,118,401, "Attachment:搜索.png", "000000", 0, 0.8, intX, intY
If intX > -1 And intY > -1 Then
Delay 1000
For 6
Delay 1000
Touch 223,418, 300
Delay 2500
Delay 1000
Touch 223,418, 300
Delay 2500
Touch 193,530, 300
Delay 5500
For 20
Call vip()
Call 行军01()
Delay 300
Next
Next
For 99999999999999
Call 选进收藏01()
Next
End If
End Sub
Sub 侦查过的地方01副()
FindPic 98,374,118,401, "Attachment:搜索.png", "000000", 0, 0.8, intX, intY
If intX > -1 And intY > -1 Then
Delay 1000
For 6
Touch 223,418, 300
Delay 5500
Touch 193,530, 300
Delay 5500
For 20
Call 研究()
Call vip()
Call 行军01()
Delay 300
Next
Next
For 99999999999999
Call 选进收藏01()
Next
End If
End Sub
Sub 行军01()
FindPic 44,661,79,761, "Attachment:行军.png", "000000", 0, 0.7, intX, intY
If intX > -1 And intY > -1 Then
Delay 100
Touch 170,702, 300
Delay 1000
Touch 170,702, 300
Delay 2000
Touch IntX, Inty, 300
Delay 4500
For 99999999999999
Call 行军01()
Call 侦查过的地方01副()
Next
End If
End Sub
Sub vip()
FindPic 91,428,159,642, "Attachment:VIP.png", "000000", 0, 0.7, intX, intY
If intX > -1 And intY > -1 Then
Delay 100
Touch 382, 636, 300
Delay 5000
For 20
Call vip()
Delay 100
Next
//修改时间
Delay 300000
For 99999999999999
Call 选进收藏01()
Next
End If
End Sub
Sub 研究()
FindPic 156,263,216,594, "Attachment:研究.png", "000000", 0, 0.7, intX, intY
If intX > -1 And intY > -1 Then
Delay 100
Touch 337,636, 300
Delay 5000
For 20
Call 研究()
Delay 100
Next
//修改时间
Delay 300000
For 99999999999999
Call 选进收藏01()
Next
End If
End Sub
2019年04月26日 05点04分 1
level 10
啥时候可以改用户名 楼主
自动打小号资源，想改成免root自动适应各种分辨率。
2019年04月26日 05点04分 2
level 10
啥时候可以改用户名 楼主
求大神
2019年04月26日 08点04分 3
level 11
弃医从文
没法适应各个分辨率 只能适应比例相同的分辨率 按键里面有转换代码
2019年04月26日 15点04分 4
1