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

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

按键精灵安卓版
立即下载

软件版本:3.5.3
软件大小:46.2M
更新时间:03-02

按键精灵iOS版
立即下载

软件版本:1.7.3
软件大小:29.2M
更新时间:12-06

最新企业版UiBot
立即下载

软件版本:3.3
软件大小:282M
更新时间:08-06

快捷导航

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

发新话题 回复该主题

[分享脚本] 分享【王者荣耀】冒险闯关开源码仅适交流(大鸟绕过) [复制链接]

1#
版本:王者冒险【V2.0】
作者:国王陛下(转载请声明!)

①请下载源码文件文档(源码已打包):http://pan.baidu.com/s/1mij3lc0
②辅助下载(目标apk文件):http://bbs.anjian.com/showtopic-651686-1.aspx
③辅助教程(目标apk文件):http://bbs.anjian.com/showtopic-664249-1.aspx
  1. //脚本名:[秦国陛下]王者荣耀冒险(开源码)
  2. //作者:国王陛下
  3. //QQ:595836434
  4. //(转载请声明!)
  5. //*****************************
  6. //创作不易,求鼓励(1毛也行啊)**
  7. //①截一张图片②选择从相册里扫描*
  8. //*****************************
  9. //更多辅助&源码下载:


  10. //===以下是函数功能==========
  11. Function 时间_延迟(时间)
  12. Delay 时间
  13. End Function

  14. Function 时间_倒计时(提示,延时)
  15. Dim i=延时
  16. For 延时
  17. 消息框和调试(提示&i)
  18. Delay 1000
  19. i=i-1
  20. Next
  21. End Function

  22. Function 消息框和调试(提示)
  23. ShowMessage 提示, 0, 0, 960*(GetScreenY()/960)
  24. TracePrint 提示
  25. End Function

  26. Function 设备_截屏(时间)
  27. ReleaseCapture:Delay 时间:KeepCapture
  28. End Function

  29. Function 触摸_点(x,y)
  30. Tap x, y
  31. Delay 10
  32. End Function

  33. Function 触摸_点击(x,y)
  34. TouchDown x, y, 1
  35. Delay 100
  36. TouchUp 1
  37. End Function

  38. Function 随机数(M,X)
  39. Dim MyValue
  40. Randomize //随机数种子
  41. MyValue = Int(((M-X+1) * Rnd()) + X)
  42. 随机数= MyValue
  43. End Function

  44. Function 触摸_随机点(x,y,x1,y1)
  45. Dim x范围 = 随机数(x1,x)
  46. Dim y范围 = 随机数(y1,y)
  47. 触摸_点 x范围, y范围
  48. End Function

  49. Function 触摸_随机点击(x,y,x1,y1)
  50. Dim x范围 = 随机数(x1,x)
  51. Dim y范围 = 随机数(y1,y)
  52. 触摸_点击 x范围, y范围
  53. End Function

  54. //几秒:点A到 点B的时长
  55. Function 滑动_普通(x, y, x1, y1, 毫秒)
  56. TouchDown x,y, 1
  57. Delay 100
  58. TouchMove x1, y1, 1, 毫秒
  59. Delay 100
  60. TouchUp 1
  61. End Function

  62. //返回:bool
  63. //数组参数:下标0:比色颜色。下标1:相似度
  64. Function 颜色_多点比色arr(颜色)
  65. If CmpColorEx(颜色(0),颜色(1)) = 1 Then
  66. 颜色_多点比色arr=true
  67. Else
  68. 颜色_多点比色arr=false
  69. End If
  70. End Function

  71. //返回:bool。参数:数组型[下标:6]。
  72. //参数说明:0~3找色的区域。4第一颜色。5颜色偏差。6相似度
  73. Function 颜色_区域找色arr(颜色)
  74. Dim IntX,IntY
  75. FindMultiColor 颜色(0),颜色(1),颜色(2),颜色(3),颜色(4),颜色(5),0,颜色(6),intX,intY
  76. If intX > -1 Then
  77. 颜色_区域找色arr=true
  78. Else
  79. 颜色_区域找色arr=false
  80. End If
  81. End Function

  82. //返回:bool。参数:数组型。
  83. //参数说明:0~3点击区域坐标。4相似度。5提示。6延迟。7比色的颜色
  84. Function 颜色_多点比色随机点击arr(颜色)
  85. 颜色_多点比色随机点击arr = false
  86. if CmpColorEx(颜色(7),颜色(4)) =1 then
  87. 触摸_随机点(颜色(0),颜色(1),颜色(2),颜色(3))
  88. If 颜色(5)<> "" Then
  89. 消息框和调试 (颜色(5))
  90. End If
  91. Delay 颜色(6)
  92. 颜色_多点比色随机点击arr=true
  93. End If
  94. End Function
  95. //===以上是函数功能==========

  96. //======================冒险功能===========================↓
  97. Function 冒险特征_选地图(类图,难度,地图)
  98. //滑动:点a:380,200 点b:120,200
  99. //类图:362,146,421,228 隔:134
  100. //难度:394,795,410,823 隔:104
  101. //地图:414,449,427,505 隔:55
  102. If 类图 = 3 Then //用户选4类图时
  103. 滑动_普通 120, 242, 390, 243, 200 //往上滑动
  104. 类图 = 2 //初始化第三类图
  105. Else
  106. 滑动_普通 380, 200, 120, 200,200 //往下滑动
  107. End If
  108. 时间_延迟 500
  109. 类图 = 类图 * 134
  110. 触摸_随机点 362 - 类图, 146, 421 - 类图, 228
  111. 时间_延迟 200
  112. 难度 = 难度 * 104
  113. 触摸_随机点 394 - 难度,795,410 - 难度,823
  114. 时间_延迟 200
  115. 地图 = 地图 * 55
  116. 触摸_随机点 414 - 地图,449,427 - 地图,505
  117. End Function

  118. Function 冒险上限执行()
  119. Dim 用户选择 = Int(ReadUIConfig("下拉框_上限操作",0))
  120. Select Case 用户选择
  121. Case 0 //关闭辅助
  122. 时间_倒计时("金币上限!"&chr(10)&"关闭辅助",10)
  123. EndScript
  124.             
  125. Case 1 //退出游戏,关辅
  126. 时间_倒计时("金币上限!"&chr(10)&"退游关辅",10)
  127. KillApp "com.tencent.tmgp.sgame"//关闭游戏
  128. EndScript
  129.             
  130. Case 2 //退游,关辅,息屏
  131. 时间_倒计时("金币上限!"&chr(10)&"退游关辅,息屏",10)
  132. KillApp "com.tencent.tmgp.sgame"//关闭游戏
  133. KeyPress "Power"//息屏
  134. EndScript
  135.             
  136. End Select
  137. End Function

  138. Function 逻辑线程_冒险挑战()
  139. Dim x = 0,y = 0
  140. Thread.SetShareVar "局部变量_冒险挑战颜色", ""
  141.     
  142. Do
  143. Dim 冒险找色 = Thread.GetShareVar("局部变量_冒险挑战颜色")
  144. Select Case 冒险找色
  145. Case "主界面颜色"
  146. 触摸_随机点 160,766,209,836 //选择冒险模式
  147. Thread.SetShareVar "局部变量_冒险挑战颜色", ""

  148. Case "冒险页面颜色"
  149. 触摸_随机点 164, 438, 237, 554
  150. Thread.SetShareVar "局部变量_冒险挑战颜色", ""

  151. Case "闯关颜色"
  152. 触摸_随机点 66,706,94,784
  153. Thread.SetShareVar "局部变量_冒险挑战颜色", ""
  154.             
  155. Case "页面人物没满颜色"
  156. 触摸_随机点 69,539,95,613
  157. Thread.SetShareVar "局部变量_冒险挑战颜色", ""
  158.             
  159. Case "选人未满颜色"
  160. 触摸_随机点 257,214,282,235//打开英雄表
  161. Thread.SetShareVar "局部变量_冒险挑战颜色", ""

  162. Case "选人表颜色"
  163. //横距离100,纵100
  164. //第一英雄坐标:400,30,430,60
  165. 触摸_随机点 400 - x * 100, 30 + y * 100, 430 - x * 100, 60 + y * 100
  166. y = y + 1
  167. If y >= 8 Then
  168. y = 0
  169. x = x + 1
  170. If x >= 5 Then
  171. x = 0
  172. y = 0
  173. 消息框和调试 "人物已完!"
  174. End If
  175. End If
  176. 消息框和调试 ("第"&1+y+x*8&"个英雄!")
  177. Thread.SetShareVar "局部变量_冒险挑战颜色", ""

  178. Case "选人确定颜色"
  179. 触摸_随机点 17, 853, 42, 904
  180. Thread.SetShareVar "局部变量_冒险挑战颜色", ""
  181.     
  182. Case "自动颜色"
  183. 触摸_随机点 514, 887, 526, 907    
  184. Thread.SetShareVar "局部变量_冒险挑战颜色", ""

  185. Case "胜利颜色"
  186. 触摸_随机点 16,412,47,555 //点任意点击屏幕
  187. 时间_延迟 200
  188. 触摸_随机点 16,412,47,555 //点任意点击屏幕
  189. 时间_延迟 4000

  190. Thread.SetShareVar "全局数组_胜次数",Thread.GetShareVar("全局数组_胜次数") + 1
  191. Thread.SetShareVar "局部变量_冒险挑战颜色", ""    

  192. Case "失败颜色"
  193. 触摸_随机点 33,433,67,524 //点击返回
  194. 时间_延迟 4000
  195. Thread.SetShareVar "全局数组_败次数",Thread.GetShareVar("全局数组_败次数") + 1
  196. Thread.SetShareVar "局部变量_冒险挑战颜色", ""

  197. Case "胜利奖励颜色"
  198. 触摸_随机点 59,456,82,506
  199. Thread.SetShareVar "局部变量_冒险挑战颜色", ""
  200.             
  201. Case "再来一次颜色"
  202. Thread.SetShareVar "局部变量_冒险挑战颜色", ""

  203. End Select
  204. 时间_延迟 500
  205. Loop
  206. End Function

  207. Function 冒险挑战_内部广告()
  208. Dim 子程序_相似度 = 0.9
  209. Dim 冒险跳过红色 = Array(505,861,519,928,子程序_相似度,"跳过红",1000,"490|856|0E59CB-101010,504|944|1574CE-101010,508|925|158DE5-101010,526|905|41F1F8-101010,520|901|1DAAEB-101010")
  210. Dim 冒险跳过白色 = Array(498,871,519,921,子程序_相似度,"跳过白",1000,"489|879|F5DF45-101010,504|879|F9F0E2-101010,500|904|FFFFFF-101010,523|943|FDDB5B-101010,504|936|AF6D32-101010")
  211. Dim 满星奖励 = Array(383,714,405,733,子程序_相似度,"满星奖励",1000,"392|419|B7821B-101010,394|723|E7C532-101010,388|761|291811-101010,367|745|F9C727-101010")
  212. Dim 提示框_健康系统 = Array("351|467|4D1D2D-101010,346|720|682747-101010,131|625|1E4587-101010,83|594|2E0D14-101010,156|670|4E23B9-101010",子程序_相似度)
  213.     
  214. 设备_截屏(100)
  215. If 颜色_多点比色随机点击arr (冒险跳过白色) Then
  216. ElseIf 颜色_多点比色随机点击arr(冒险跳过红色) Then
  217. ElseIf 颜色_多点比色随机点击arr(满星奖励) Then
  218. ElseIf 颜色_多点比色arr(提示框_健康系统) Then
  219. 消息框和调试("健康系统_内")
  220. 触摸_随机点 149,594,169,647
  221. End If
  222. End Function

  223. Function 循环找色_冒险挑战()
  224. Dim 子程序_相似度 = 0.9
  225. Dim 超时_计时 = 0
  226. Dim 主界面颜色 = Array("508|427|0220D6-101010,520|525|FDF7FC-101010,523|624|D8B186-101010,515|708|FFFFFE-101010,525|715|99600E-101010,499|682|291816-101010",子程序_相似度)
  227. Dim 冒险页面颜色 = Array("526|57|E3CE0E-101010,391|478|E9D8B7-101010,149|485|B8946E-101010,159|470|E69191-101010,515|114|DBB02C-101010",子程序_相似度)
  228. Dim 选图页面颜色 = Array("504|49|ECC21D-101010,510|54|2C1B12-101010,525|160|FFFFFF-101010,523|199|FFFFFF-101010,518|242|261B14-101010",子程序_相似度)
  229. Dim 下一步颜色 = Array("47|742|B57332-101010,63|781|FFFFFF-101010,49|804|D49932-101010,59|829|FFFFFF-101010,62|853|C48238-101010",子程序_相似度)
  230. Dim 闯关颜色 = Array("71|678|1C82D7-101010,79|709|FFFFFF-101010,86|732|29A3E6-101010,90|748|FFFFFF-101010,80|782|2287D7-101010",子程序_相似度)
  231. Dim 页面人物没满颜色 = Array("513|55|291812-101010,527|283|FEFEFE-101010,199|770|2C1A0D-101010,194|775|2B180D-101010,82|509|C58439-101010,83|617|BE7A35-101010",子程序_相似度)
  232. Dim 选人主页颜色 = Array("511|15|BA9115-101010,512|78|BA9115-101010,513|118|332323-101010,517|827|4C2B23-101010,487|810|000674-101010",子程序_相似度)
  233. Dim 选人未满颜色 = Array("487|809|000674-101010,457|814|FDC427-101010,288|821|EAB025-101010,298|883|C87D1A-101010,275|889|3A3333-101010",子程序_相似度)
  234. Dim 选人表颜色 = Array("487|809|000674-101010,462|809|FFD833-101010,378|813|FEBC28-101010,284|827|E9AF23-101010,286|813|442B23-101010",子程序_相似度)
  235. Dim 选人满颜色 = Array("313|905|FFFFFE-101010,313|897|1C0B8B-101010,313|913|1C0B8B-101010,305|906|17087F-101010,370|811|FECD30-101010",子程序_相似度)
  236. Dim 选人确定颜色 = Array("520|806|4C2B23-101010,499|810|EFEFEF-101010,486|809|00066E-101010,30|840|2498E2-101010,33|923|248EDA-101010",子程序_相似度)

  237. Dim 自动颜色 = Array("511|886|E8B52D-101010,519|885|FFFFFE-101010,520|883|654A07-101010,529|906|805F0D-101010,525|948|E9AF5C-101010",子程序_相似度)
  238. Dim 新自动颜色 = Array("511|884|E7B42C-101010,519|884|FFFFFC-101010,521|882|654A09-101010,512|902|DEB531-101010,506|896|CD9B25-101010",子程序_相似度)
  239. Dim 自动已开启颜色 = Array("500|881|9E5C1A-101010,534|880|9B5A19-101010,535|914|995919-101010,501|915|9E5C1A-101010",子程序_相似度)
  240. Dim 胜利颜色 = Array("471|702|234C7D-101010,418|685|4689CD-101010,34|416|FFFFFF-101010,35|461|FFFFFF-101010,38|541|FFFFFF-101010",子程序_相似度)
  241. Dim 失败颜色 = Array("458|419|D1D1D1-101010,454|460|CACACA-101010,431|542|999999-101010,51|443|1B9CE6-101010,55|467|FFFFFF-101010",子程序_相似度)
  242. Dim 再来一次颜色 = Array("441|504|2774BF-101010,441|601|8195CB-101010,227|513|1032E1-101010,228|522|63EFFE-101010,465|499|FFFFFF-101010",子程序_相似度)
  243. Dim 金币上限颜色_模拟器 = Array("235|714|CEECEE-101010,226|738|CEECEE-101010,238|731|CEECEE-101010,250|744|CEECEE-101010,241|750|CEECEE-101010,236|833|E5DED0-101010,238|898|ECE5D5-101010",子程序_相似度)
  244. Dim 金币上限颜色_手机 = Array("235|714|CCEDEB-101010,226|738|CFEDEE-101010,238|731|CFEEEE-101010,250|744|CCEBED-101010,241|750|CEEEEE-101010,230|875|120C04-101010,235|912|AEAA9B-101010",子程序_相似度)
  245. Dim 胜利奖励颜色 = Array("61|421|2688D8-101010,77|461|FFFFFF-101010,77|491|FFFFFF-101010,75|507|38A8E7-101010,61|540|2584D3-101010",子程序_相似度)

  246. Dim 返回键颜色 = Array(500, 32, 527, 71,子程序_相似度,"返回键",1000,"505|7|291811-101010,497|41|A76201-101010,503|47|E7B71A-101010,507|69|EAC428-101010,511|89|241410-101010")

  247. Thread.SetShareVar("局部变量_冒险挑战颜色","")
  248. Dim 冒险线程ID = Thread.Start(逻辑线程_冒险挑战)
  249. Do
  250. 设备_截屏(100)
  251. If 颜色_多点比色arr(主界面颜色) Then
  252. Thread.SetShareVar "局部变量_冒险挑战颜色", "主界面颜色"
  253. 消息框和调试 "主界面颜色"
  254. 时间_延迟 1000
  255.         
  256. ElseIf 颜色_多点比色arr(冒险页面颜色) Then
  257. Thread.SetShareVar "局部变量_冒险挑战颜色", "冒险页面颜色"
  258. 消息框和调试 "冒险页面颜色"
  259.         
  260. ElseIf 颜色_多点比色arr(选图页面颜色) Then
  261. Dim 冒险模式用户 = Thread.GetShareVar("冒险模式用户")
  262. Select Case 冒险模式用户
  263. Case 0
  264. //指定卡关
  265. Dim 类图 = Int(ReadUIConfig("下拉框_地图类",0))
  266. Dim 难度 = Int(ReadUIConfig("下拉框_地图难度",0))
  267. Dim 地图 = Int(ReadUIConfig("下拉框_地图图", 0))
  268. 冒险特征_选地图(类图,难度,地图)
  269. Case 1
  270. //最新卡关
  271. //冒险选图_最新卡关
  272. Case 2
  273. //随机卡关
  274. //Dim 类图_随机 = 随机数(3,0)
  275. //Dim 难度_随机 = 随机数(2,0)
  276. //Dim 地图_随机 = 随机数(3,0)
  277. //冒险特征_选地图(类图_随机,难度_随机,地图_随机)
  278. End Select
  279. 触摸_随机点 38, 764, 60, 810     //下一步
  280. 时间_延迟 3000
  281.         
  282. ElseIf 颜色_多点比色arr(闯关颜色) Then //这里需要找没满人 则选人
  283. If 颜色_多点比色arr(页面人物没满颜色) Then
  284. Thread.SetShareVar "局部变量_冒险挑战颜色", "页面人物没满颜色"
  285. 消息框和调试 "页面人物没满颜色"
  286. Else
  287. Thread.SetShareVar "局部变量_冒险挑战颜色", "闯关颜色"
  288. 消息框和调试 "闯关颜色"
  289. End If
  290.         
  291. ElseIf 颜色_多点比色arr(选人主页颜色) Then//进入选人页面
  292. Thread.SetShareVar "局部变量_冒险挑战颜色", "选人主页颜色"    
  293. //Dim t = TickCount()
  294. Do
  295. //If 时间_计时(t, 120000, true) Then //超时无条件退出do
  296. // Exit Do
  297. //End If
  298. 设备_截屏(100)
  299. If 颜色_多点比色arr(选人未满颜色) Then
  300. Thread.SetShareVar "局部变量_冒险挑战颜色", "选人未满颜色"
  301. 消息框和调试 "选人未满颜色"
  302. 时间_延迟 1000
  303. ElseIf 颜色_多点比色arr(选人满颜色) Then//人满时,找确定
  304. 设备_截屏(100)
  305. If 颜色_多点比色arr(选人确定颜色) Then
  306. 消息框和调试 "选人确定颜色"
  307. Thread.SetShareVar "局部变量_冒险挑战颜色", "选人确定颜色"
  308. 时间_延迟 2000
  309. Exit Do
  310. End If
  311. ElseIf 颜色_多点比色arr(选人表颜色) Then
  312. 消息框和调试 "选人表颜色"
  313. Thread.SetShareVar "局部变量_冒险挑战颜色", "选人表颜色"
  314. 时间_延迟 1000
  315. End If
  316. 时间_延迟 500
  317. Loop
  318.         
  319. ElseIf 颜色_多点比色arr(自动颜色) And 颜色_多点比色arr(自动已开启颜色) = False Then
  320. Thread.SetShareVar "局部变量_冒险挑战颜色", "自动颜色"
  321. 消息框和调试 "自动颜色"

  322. ElseIf 颜色_多点比色arr(新自动颜色) And 颜色_多点比色arr(自动已开启颜色) = False Then
  323. Thread.SetShareVar "局部变量_冒险挑战颜色", "自动颜色"
  324. 消息框和调试 "新自动颜色"
  325.         
  326. ElseIf 颜色_多点比色arr(胜利颜色) Then
  327. Thread.SetShareVar "局部变量_冒险挑战颜色", "胜利颜色"
  328. 消息框和调试 "胜利颜色"
  329.         
  330. ElseIf 颜色_多点比色arr(失败颜色) Then
  331. Thread.SetShareVar "局部变量_冒险挑战颜色", "失败颜色"
  332. 消息框和调试 "失败颜色"
  333.             
  334. ElseIf 颜色_多点比色arr(再来一次颜色) Then
  335. 时间_延迟 1000
  336. If ReadUIConfig("多选框_金币上限", true) Then
  337. 设备_截屏(100)
  338. If 颜色_多点比色arr(金币上限颜色_模拟器) Then //金币上限
  339. TracePrint "金币上限_模拟器"
  340. 冒险上限执行
  341. ElseIf 颜色_多点比色arr(金币上限颜色_手机) Then
  342. TracePrint "金币上限_手机"
  343. 冒险上限执行
  344. End If
  345. End If

  346. //次数到了
  347. Dim 用户人机次数 = Thread.GetShareVar("全局_用户冒险次数")
  348. Dim 人机已执行次数 = Thread.GetShareVar("全局数组_胜次数")+ Thread.GetShareVar("全局数组_败次数")
  349. If 人机已执行次数 >= 用户人机次数 And 用户人机次数 <> 0 Then
  350. ShowMessage ("胜:"&Thread.GetShareVar("全局数组_胜次数")&" 败:"&Thread.GetShareVar("全局数组_败次数"),0,0,960*(GetScreenY()/960))
  351. TracePrint "胜:"&Thread.GetShareVar("全局数组_胜次数")&" 败:"&Thread.GetShareVar("全局数组_败次数")
  352. 时间_倒计时 "已完成相应次数!" & Chr(10) & "即将关闭", 10
  353. EndScript
  354. End If

  355. //几局休息
  356. Dim 用户确定休息 = ReadUIConfig("多选框_冒险休息")
  357. Dim 用户几局休息 = Int(ReadUIConfig("输入框_冒险休息_次"))
  358. Dim 用户休息时间 = Int(ReadUIConfig("输入框_冒险休息_分钟"))
  359. If 用户确定休息 Then
  360. Dim 次数转换 = Int(Thread.GetShareVar("全局数组_按次数休息"))
  361. If 次数转换 >= 用户几局休息 Then
  362. Thread.SetShareVar("全局数组_按次数休息",0)//初始0
  363. 时间_倒计时("冒险休息"&用户休息时间&"分钟:",用户休息时间*60)
  364. End If
  365. Thread.SetShareVar("全局数组_按次数休息",Thread.GetShareVar("全局数组_按次数休息") + 1 )
  366. End If

  367. Dim 冒险用户卡关选择 = ReadUIConfig("下拉框_冒险模式",0)
  368. If 冒险用户卡关选择 = 0 Then
  369. 触摸_随机点 35,686,59,767 //点击再来一次
  370. Else
  371. 触摸_随机点 40,530,65,583 //点击返回
  372. End If
  373. Thread.SetShareVar "局部变量_冒险挑战颜色", "再来一次颜色"
  374. 消息框和调试 "再来一次颜色"
  375. 时间_延迟 7000

  376. ElseIf 颜色_多点比色arr(胜利奖励颜色) Then
  377. Thread.SetShareVar "局部变量_冒险挑战颜色", "胜利奖励颜色"
  378. 消息框和调试 "胜利奖励颜色"

  379. Else
  380. Thread.SetShareVar "局部变量_冒险挑战颜色", ""
  381. 冒险挑战_内部广告
  382. ShowMessage ("胜:"&Thread.GetShareVar("全局数组_胜次数")&" 败:"&Thread.GetShareVar("全局数组_败次数"),0,0,960*(GetScreenY()/960))

  383. End If

  384. If Thread.GetShareVar("局部变量_冒险挑战颜色") = "" Then
  385. 超时_计时 = 超时_计时 + 1
  386. If 超时_计时 >= 6 Then
  387. 超时_计时 = 0
  388. 设备_截屏 (100)
  389. Do While 颜色_多点比色随机点击arr(返回键颜色)
  390.             设备_截屏 (100)
  391. 时间_延迟 1000
  392. Loop
  393. //王者_游内启动游戏()
  394. End If
  395. Else
  396. 超时_计时 = 0
  397. End If
  398. 时间_延迟 1000
  399. Loop

  400. Thread.Start (冒险线程ID)
  401. End Function
  402. //======================冒险功能===========================↑

  403. //主程序虚构
  404. Function OnScriptExit()
  405. ResetScreenScale //释放分频率
  406. End Function

  407. //①建议你把下面的分类,然后包装到函数里;
  408. //②现在下面零零散散的,不好阅读;
  409. //③写的时候想偷懒一下,呵呵,平时不是这样写的,这样对部分人好理解!
  410. Function UI初始化()
  411. SetScreenScale 540,960 //设置开发分频率
  412. For 3 //提示内容
  413. 消息框和调试 ("欢迎使用!秦国王者" & Chr(10) & GetScreenX() & "*" & GetScreenY())
  414. 时间_延迟 1000
  415. Next
  416. //界面设置初始化
  417. Thread.SetShareVar "全局_主模式", CInt(ReadUIConfig("下拉框_主模式", 0))
  418. Thread.SetShareVar "冒险模式用户", CInt(ReadUIConfig("下拉框_冒险模式", 0))
  419. Thread.SetShareVar "全局_用户冒险次数", CInt(ReadUIConfig("输入框_挑战次数", 0))
  420. End Function

  421. Function 主函数()
  422. Select Case Thread.GetShareVar("全局_主模式")
  423. Case 0
  424. //冒险
  425. For 2
  426. 消息框和调试 "正在执行-冒险模式"
  427. 时间_延迟 1000
  428. Next
  429. 循环找色_冒险挑战
  430. End Select
  431. End Function


  432. //全局变量
  433. Thread.SetShareVar("全局数组_胜次数",0)
  434. Thread.SetShareVar("全局数组_败次数",0)
  435. Thread.SetShareVar "全局数组_按次数休息", 0

  436. //代码执行入口
  437. UI初始化:主函数()
复制代码
创作不易,求鼓励(1毛也行啊)

您所在的用户组无法下载或查看附件


您所在的用户组无法下载或查看附件

    已有2评分我要评分查看所有评分

    最后编辑595836434 最后编辑于 2017-11-16 09:05:55
    即使把他关在敌军的营地里,他依然做着皇椅。
    2#

    支持下。。

    qq:1649916498
    3#

    很热门的游戏,感谢分享精神

    4#

    感谢分享精神

    5#

    回复 1楼595836434的帖子

    2小时在线弹窗会停止掉本的问题 怎么弄

    6#

    楼主不能少用一点函数吗。。。。

    7#

    如果只是要冒险的用这个命令就可以了,不过玩家需要先手动进入冒险,我没有写适应多种分辨率的


    //开启

    Delay 50
    Dim a,b,c,d,e,f,g,h,i,j,k

    do //选

    Tap 76, 1116
    Delay 1000
    //变量rColor需要预先定义。如果您还没有定义该变量,请取消下面一行的注释
    //Dim rColor
    //开启自动
    Do
    e = GetPixelColor(145, 1047)
    If e = "2FA2E3" Then
    Tap 145, 1047
    Exit Do
    Else
    Tap 249,712
    Tap 76, 1116
    End If
    Loop
    Delay 100
    Do
    //跳过剧本,并且结束重来
    f = GetPixelColor(766, 1176)
    If f = "8B7A62" Then
    Delay 500
    Tap 768, 1176
    Exit Do
    Else
    Tap 600,1000
    End If

    Loop
    Delay 100


    Do//重来
    g = GetPixelColor(68, 714)
    If g = "D29834" Then
    Delay 1000
    Tap 68, 714
    Delay 100
    Tap 68, 714
    Exit Do
    Else
    Tap 600, 1000
    Delay 500
    End If

    Loop
    Delay 1500

    Loop

    8#

    更多功能: 人机对战,实战对战,人物选择等等: http://bbs.anjian.com/showtopic-659623-1.aspx

    即使把他关在敌军的营地里,他依然做着皇椅。
    9#

    回复 8楼595836434的帖子

    没权限看不到

    10#

    新人学习

    11#

    谢谢楼主的分享

    12#

    楼主威武,学学习

    13#

    来学习一下

    14#

    666zhenbang

    15#

    时隔多年测试学习

    16#

    时隔多年测试学习

    17#

    冒险闯关开源码仅适交

    18#

    这个源码不错,纠错率很强,很多看的不是很懂

    发新话题 回复该主题