啥时候可以改用户名 qq190182778
关注数: 197 粉丝数: 109 发帖数: 2,714 关注贴吧数: 328
想改下脚本可是小白一个,脚本是朋友以前写给我的有大神教教吗? 想改下脚本可是小白一个,脚本是朋友以前写给我的有大神教教吗?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
1 下一页