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

软件版本: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#











  1. //调用插件
  2. Import "GK.luae"

  3. //====脚本大纲====
  4. //----封装函数----


  5. //----封装函数----
  6. //----脚本子程序----
  7. //启动程序
  8. //进入游戏
  9. //领取元宝

  10. //----脚本子程序----
  11. //调用程序
  12. //====脚本大纲====
  13. Sub 启动程序 ////////////////////////启动程序
  14. Dim 是否启动
  15. Do
  16. Delay 500
  17. 是否启动=sys.IsRunning("com.sqw.jwdzg.jwdzg_pz")

  18. If 是否启动 = false Then
  19. RunApp "com.sqw.jwdzg.jwdzg_pz"
  20. End If
  21. Loop Until 是否启动=true :TracePrint "启动游戏成功"
  22. End Sub

  23. Sub 进入游戏 ////////////////////////进入游戏
  24. Dim 欢迎_叉=array(147,22,217,81,"DEF7F7","83|450|3165CE,-43|449|000000,33|90|94AEA5,18|79|84929C,839|7|8CA2B5,818|29|B5D7DE,889|77|6B8284,893|99|000408,873|117|7B9ABD",true)
  25. Dim 开始游戏_按钮=array(1071,413,1129,451,"29518C","-2|8|A5C7D6,8|7|ADD3DE,-87|90|2145A5,25|-138|A5CFD6,-316|-22|3141B5,-287|-107|4A5D9C,-327|-101|6B8263,113|122|29827B,114|-232|4249B5",true)
  26. Dim 更新提示_确定按钮=array(685,200,720,273,"6B8A31","-2|20|D6F7FF,-1|197|3945AD,-1|252|BDD7EF,-248|64|395163,-244|-4|426173,-110|-180|9CAEBD,-402|151|000000,-635|402|082431,-618|440|313031",true)
  27. Dim 离线收益_确定按钮=array(753,331,787,396,"6B8231","-2|12|D6F3EF,-2|25|637D21,-197|-1|ADA294,-228|-35|FFFFFF,-362|158|D6E7F7,-376|159|CEE3F7,-365|67|D6E7FF,-410|78|84BADE,-694|219|000C21",true)
  28. Dim 头像红点=array(6,572,67,634,"2928B5","5|-577|6BAE5A,3|-426|3969A5,3|-230|6B6552,1159|-90|31458C,1164|-528|21288C,1171|-348|84C3EF,1180|-407|94DBFF,1201|56|524D4A,1197|-171|42417B")
  29. Do
  30. Delay 500
  31. TracePrint "执行启动游戏。。。"
  32. If GK.Find(欢迎_叉) Then
  33. ElseIf GK.Find(开始游戏_按钮) Then
  34. ElseIf GK.Find(更新提示_确定按钮) Then
  35. ElseIf GK.Find(头像红点) Then : Exit Sub
  36. End If
  37. loop Until GK.Find(离线收益_确定按钮)

  38. End Sub

  39. Sub 领取元宝 ////////////////////////领取元宝
  40. Dim 头像红点=array(6,572,67,634,"2928B5","5|-577|6BAE5A,3|-426|3969A5,3|-230|6B6552,1159|-90|31458C,1164|-528|21288C,1171|-348|84C3EF,1180|-407|94DBFF,1201|56|524D4A,1197|-171|42417B",true)
  41. Dim 身份界面=array(8,665,55,706,"84DBFF","-3|-109|CEE3FF,1|-125|C6DFFF,829|-170|212C9C,819|-199|212894,848|-27|8CB6DE,956|-10|18557B,1099|-134|5A7121,1043|-135|4A96E7,1167|-362|397DAD")
  42. Dim 身份界面_宝箱坐标=array(993,64)
  43. Dim 身份界面_退出按钮=array(28,685)
  44. Dim 恭喜获得元宝=array(574,339,607,365,"4A719C","-22|-27|C6EFF7,37|15|104973,17|31|21385A,17|24|000C21,271|158|000818,540|203|101400,618|54|081C21,-260|46|B5E7F7,-229|-173|7BDBFF",true)
  45. Dim 领取元宝开关=0
  46. Dim 主界面=array(21,588,46,616,"5A7DA5","16|-423|4A719C,14|-228|948E7B,5|-241|F7F3F7,11|-571|6BAE5A,43|-21|214DA5,38|-582|84B2CE,1155|-419|5259C6,1201|-166|423C6B,1201|-215|292831")
  47. Do
  48. Delay 500
  49. TracePrint "执行领取元宝。。。"
  50. If GK.Find(头像红点) Then
  51. ElseIf 领取元宝开关>20 then :GK.ck(身份界面_退出按钮) :领取元宝开关=0
  52. ElseIf GK.Find(身份界面) Then : Gk.ck(身份界面_宝箱坐标) : 领取元宝开关=领取元宝开关+1
  53. ElseIf GK.Find(恭喜获得元宝) Then :Delay 3000 :GK.ck(身份界面_退出按钮)
  54. ElseIf gk.find(主界面)then : exit sub
  55. End If
  56. loop

  57. End Sub





  58. //------调用程序
  59. 启动程序
  60. 进入游戏
  61. 领取元宝
复制代码

发新话题 回复该主题