• 按键公众号 :
按键精灵电脑版
立即下载

软件版本:2014.06
软件大小:22.9M
更新时间:2021-12-03

按键精灵安卓版
立即下载

软件版本:3.7.2
软件大小:46.2M
更新时间:2023-05-10

按键精灵iOS版
立即下载

软件版本:1.8.0
软件大小:29.2M
更新时间:2023-03-21

按键手机助手
立即下载

软件版本:3.8.0
软件大小:262M
更新时间:2023-05-30

快捷导航

登录 后使用快捷导航
没有帐号? 注册

发新话题 回复该主题

完全免费---盗墓笔记(手游)--之完整版(刷图,推图,爬塔,活... [复制链接]

1#
本帖最后由 yangyss1 于 2015-4-15 16:52 编辑

上次 由于时间匆匆,比较紧张,只和大家分享了 盗墓笔记(手游)的刷图脚本

在这一段时间中,有不少朋友希望我把完整的脚本放出来

经过多天的备战,有所收获

不罗嗦了,**!!!!!!!!!!!!!!!!!!!!!!!!

既然要写一个脚本,那么毫无疑问,要有一个主循环,这个主循环中,有我们所想要的
所有功能,加上界面上的数据读取,这些构成了 主循环,代码如下:
  1. Dim state
  2. state = ReadUIConfig("脚本模式")

  3. //---主循环部分--
  4. While True

  5. KeepReleaseC()
  6. Select Case state
  7. Case 0
  8. //刷图(一)
  9. ActionForFarmMap()
  10. Case 1
  11. //推图(二)
  12. ActionForPushMap()
  13. Case 2
  14. //爬塔(三)
  15. ActionForClimbingFuben()
  16. Case 3
  17. //精英副本(四)
  18. ActionForJYFuben
  19. Case 4
  20. //活动副本
  21. ActionForHDFuben()
  22. End Select

  23. // --↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑加需要的功能↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑--
  24. // --↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑加需要的功能↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑--
  25. // --↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑加需要的功能↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑--

  26. Delay(500)
  27. Wend
复制代码
源码如下:


http://pan.baidu.com/s/1gd0ADKf

APK地址:
http://pan.baidu.com/s/1bn0ILuJ

对于不同的任务,我们需要明确的判断
所以定义以下变量:
  1. Dim winX,winY,nowWorkStyle,gNonwWin,gMainWin,gCharWin,gAdvenWin,gBegWin,gShopWin,gGrvkperWin,gNineDWin,gCheckPtsWin
  2. Dim gSuccessWin,gfailWin,gNeedBuyChance,gFubenWin,gShiLiWin,gGuLouKaiShiWin,gBattleWin1,gBattleWin2,gBatSignWin
  3. winX = GetScreenX()
  4. winY = GetScreenY()
  5. SetScreenScale(480,854,0)

  6. //----当前界面状态
  7. nowWorkStyle = -1

  8. //---全局变量定义区域---
  9. gNonwWin = -1 //-- 未知界面
  10. gMainWin = 0 //-- 主界面
  11. gCharWin = 1 //-- 角色界面
  12. gAdvenWin = 2 //-- 探险界面
  13. gBegWin = 3 //-- 背包界面
  14. gShopWin = 4 //-- 商城界面
  15. gGrvkperWin = 5 //-- 守墓人界面
  16. gNineDWin = 6 //-- 九门任务界面
  17. gCheckPtsWin = 7 //-- 关卡界面
  18. gSuccessWin = 8 //-- 胜利的界面
  19. gfailWin = 9 //-- 失败界面
  20. gNeedBuyChance=10//-- 买次数界面
  21. gFubenWin = 11 //-- 活动副本界面
  22. gShiLiWin = 12 //-- 势力场界面
  23. gGuLouKaiShiWin =13 //--张家古楼开始界面


  24. gBattleWin1 = 98 //--战斗中...界面
  25. gBattleWin2 = 99 //--战斗中...界面
  26. gBatSignWin = 100//--准备开始战斗界面
复制代码


这些变量分别表示不同的界面值,当然,你可以定义更多的
既然定义好了变量,自然引申除了返回界面状态函数
如下:
  1. function GetWinName()
  2. GetWinName = gNonwWin
  3. KeepReleaseC()
  4. Dim intX,intY
  5. //判断主界面
  6. FindMultiColor 7,0,479,836,"000893","18|-1|000893,-1|44|000893,18|45|000893,-427|783|FFFFFF,-396|783|FFFFFF,-387|795|FFFFFF",0,0.9,intX,intY
  7. If intX > -1 Then
  8. GetWinName = gMainWin
  9. Exit Function
  10. End If
  11. //判断角色界面
  12. FindMultiColor 5,5,475,821,"509FD6","18|-2|509FD6,0|49|509FD6,19|47|509FD6,4|30|FFFFFF,-422|779|FFFFFF,-382|795|FFFFFF,-391|788|FFFFFF",0,0.9,intX,intY
  13. if (intX > -1) then
  14. GetWinName = gCharWin
  15. Exit Function
  16. End If
  17. FindMultiColor 183,4,310,65,"FFFFFF","-2|4|FFFFFF,0|14|FFFFFF,2|13|FFFFFF,3|11|FFFFFF,6|11|FFFFFF,10|10|FFFFFF,16|4|FFFFFF",0,0.9,intX,intY
  18. if (intX > -1) then
  19. if CmpColorEx("216|26|FFFFFF,262|23|FFFFFF",0.9) = 1 then
  20. GetWinName = gAdvenWin
  21. else
  22. GetWinName = gBegWin
  23. End If
  24. Exit Function
  25. End If
  26. FindMultiColor 181,10,217,41,"FFFFFF","0|2|FFFFFF,5|0|FFFFFF,10|0|FFFFFF,14|10|FFFFFF,18|9|FFFFFF,0|10|FFFFFF,2|8|FFFFFF",0,0.9,intX,intY
  27. if (intX > -1) then
  28. GetWinName = gNineDWin
  29. Exit Function
  30. End If
  31. FindMultiColor 240,4,270,40,"FFFFFF-050505","1|-1|FFFFFF,3|-1|FFFFFF,3|4|FFFFFF,0|6|FFFFFF,5|7|FFFFFF,6|4|FFFEFE,12|1|FFFFFF",0,0.9,intX,intY
  32. if (intX > -1) then
  33. if (CmpColorEx("70|160|6C5E4A",0.9) = 1)then
  34. GetWinName = gShopWin
  35. Exit Function
  36. End If
  37. End If
  38. FindMultiColor 429,808,478,840,"28A7FF-050505","-3|2|28A7FF-050505,0|2|28A7FF-050505,3|2|28A7FF-050505,-1|5|28A7FF-050505,0|5|28A7FF-050505,2|5|28A7FF-050505",0,0.9,intX,intY
  39. If (intX > -1) Then
  40. If CmpColorEx("352|156|4236B3-050505",0.9)=1 Then
  41. GetWinName = gGrvkperWin
  42. Exit Function
  43. else
  44. GetWinName = gCheckPtsWin
  45. Exit Function
  46. End If
  47. End If
  48. FindMultiColor 137,717,336,786,"4490C5-050505","2|8|4490C5-050505,15|11|4490C5-050505,22|11|4490C5-050505,53|-3|4490C5-050505,72|4|4490C5-050505,72|13|4490C5-050505",0,0.9,intX,intY
  49. If (intX > -1) Then
  50. FindMultiColor 187,5,243,47,"FFFFFF-050505","6|0|FFFFFF,13|0|FFFFFF,5|4|FFFFFF,9|4|FFFFFF,13|4|FFFFFF,-1|6|FFFFFF",0,0.9,intX,intY
  51. if (intX > -1) then
  52. GetWinName = gBatSignWin
  53. Exit Function
  54. End If
  55. End If
  56. FindMultiColor 398,804,479,848,"20679D-050505","14|0|267CB3,46|0|2984B6,54|1|2374AB",0,0.9,intX,intY
  57. if (intX > -1) then
  58. if CmpColorEx("417|825|ECF1F6",0.9) = 1 then
  59. GetWinName = gBattleWin1
  60. else
  61. GetWinName = gBattleWin2
  62. End If
  63. Exit Function
  64. End If
  65. FindMultiColor 339,114,396,163,"FFFFFF-050505","1|4|FFFFFF,3|9|FFFFFF,4|18|FFFFFF,4|17|FFFFFF,3|25|FFFFFF,4|0|FFFFFF,10|-1|FFFFFF,9|7|FFFFFF,10|16|FFFFFF",0,0.9,intX,intY
  66. if (intX > -1) then
  67. if CmpColorEx("219|671|4490C5,218|682|4490C5,239|689|4490C5,260|678|4490C5,351|145|FFFFFF",0.9) = 1 then
  68. GetWinName = gSuccessWin
  69. Exit Function
  70. End If
  71. End If
  72. FindMultiColor 330,111,399,167,"FFFFFF-050505","-1|3|FFFFFF,4|1|FFFFFF,10|-5|FFFFFF,11|-1|FFFFFF,20|-3|FFFFFF,12|7|FFFFFF,2|11|FFFFFF,2|25|FFFFFF,29|19|FFFFFF",0,0.9,intX,intY
  73. if (intX > -1) then
  74. if CmpColorEx("217|671|4490C5,220|681|4490C5,240|688|4490C5,258|679|4490C5,254|668|4490C5",0.9) = 1 then
  75. GetWinName = gfailWin
  76. Exit Function
  77. End If
  78. End If
  79. FindMultiColor 83,250,392,566,"FFFFFF-050505","43|12|FFFFFF,-106|277|438FC5,-61|276|438EC4,54|276|4590C5,100|278|4590C5",0,0.9,intX,intY
  80. if (intX > -1) then
  81. GetWinName = gNeedBuyChance
  82. Exit Function
  83. End If
  84. FindMultiColor 238,6,359,35,"0000FF-050505","8|-1|0000FD,32|0|0000FF,41|8|0000FF",0,0.9,intX,intY
  85. if (intX > -1) then
  86. GetWinName = gFubenWin
  87. Exit Function
  88. End If
  89. FindMultiColor 252,12,291,39,"FFFFFF-050505","1|1|FFFFFF,1|7|FFFFFF,3|6|FFFFFF,3|0|FFFFFF,15|-1|FFFFFF,15|1|FFFFFF,15|3|FFFFFF",0,0.9,intX,intY
  90. if (intX > -1) then
  91. FindMultiColor 144,794,364,836,"4490C5-050505","8|17|4490C5,78|-2|4490C5,87|17|4490C5,103|-2|4490C5",0,0.9,intX,intY
  92. if (intX > -1) then
  93. GetWinName = gGuLouKaiShiWin
  94. else
  95. GetWinName = gShiLiWin
  96. End If
  97. Exit Function
  98. End If
  99. End Function
复制代码

既然界面状态有了,那么我们就可以用界面函数的返回值,来判断我们将要做的事
做什么呢?当然是操作了
具体操作,直接自己添加
  1. Dim result,myRet
  2. result = 0
  3. myRet = -1
  4. myRet = GetWinName()
  5. if myRet = gNonwWin then
  6. //-- 未知界面
  7. result = -1
  8. ElseIf myRet = gMainWin Then
  9. //-- 主界面
  10. ElseIf myRet = gCharWin Then
  11. //-- 角色界面
  12. ElseIf myRet = gAdvenWin Then
  13. //-- 探险界面
  14. ElseIf myRet = gBegWin Then
  15. //-- 背包界面
  16. ElseIf myRet = gShopWin Then
  17. //-- 商城界面
  18. Swipe(147,799,395,799)
  19. Delay(2000)
  20. Tap(221,793) //--打开探险界面
  21. ElseIf myRet = gGrvkperWin Then
  22. //--守墓人界面
  23. ElseIf myRet = gNineDWin Then
  24. //--九门任务界面
  25. ElseIf myRet = gCheckPtsWin Then
  26. //--关卡界面
  27. ElseIf myRet = gSuccessWin Then
  28. //--胜利的界面
  29. Tap 240, 675
  30. ElseIf myRet = gfailWin Then
  31. //-- 失败界面
  32. Tap(242,680)
  33. ShowMessage("失败啦,停止脚本!")
  34. EndScript
  35. ElseIf myRet = gBattleWin1 Then
  36. //--战斗中...界面
  37. elseif myRet = gBattleWin2 then
  38. //--战斗中...界面 ---非托管
  39. if bTuoguan = false then
  40. elseif myRet = gBatSignWin then
  41. //--准备开始战斗界面
  42. end If
复制代码

就说到这里吧,简单的操作而已,具体的见源码,或者直接下载apk

2#

谢谢楼主好人,

3#

我只想下载看看

4#

反反复复反反复复反反复复反反复复反反复复反反复复凤飞飞

5#

的算法的收费多少

6#

顶顶~~~~~~~

7#


8#

速度

9#

谢谢分享~~~~~~~~~~~~

10#

试试事实上事实上事实上事实上

11#

66666666666666666

12#

感谢分享

13#

学习了 谢谢诶

14#

44444

15#

学习受用

16#

支持下

17#


18#

123456789

19#

看看

20#

学习谢谢

发新话题 回复该主题