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

软件版本:2014.05
软件大小:21.6M
更新时间:07-04

按键精灵安卓版
立即下载

软件版本:3.3.0
软件大小:62.5M
更新时间:5-24

按键精灵iOS版
立即下载

软件版本:1.3.3
软件大小:29.2M
更新时间:06-14

按键精灵Mac版
立即下载

软件版本:1.1.0
软件大小:12.3M
更新时间:12-29

快捷导航

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

登录 注册
发新话题 回复该主题

[分享脚本] 【秦国陛下】王者荣耀辅助源码分享适合学习交流(开放源码)——... [复制链接]

1#
1,【游戏名】:王者荣耀

2,【辅助类型】:开放源码(适合交流学习)

3,【下载地址&目标apk文件&图片先预览】:
①apk文件下载&图片浏览:http://bbs.anjian.com/showtopic-651686-1.aspx
②apk王者脚本教程:http://bbs.anjian.com/showtopic-664249-1.aspx
③其他游戏的辅助:http://pan.baidu.com/s/1mij3lc0
④源码下载(带界面):http://pan.baidu.com/s/1mij3lc0

//提示:以下↓↓↓是源码=====:
  1. //脚本名:[秦国陛下]王者荣耀(开放源码)
  2. //作者:国王陛下
  3. //(转载请声明!)
  4. //*****************************
  5. //如果思路对你有启发,不红包表示一下吗,呵呵
  6. //①截一张图片②选择从相册里扫描 **
  7. //*****************************



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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

  201. End Select
  202. 时间_延迟 500
  203. Loop
  204. End Function

  205. Function 冒险挑战_内部广告()
  206. Dim 子程序_相似度 = 0.9
  207. 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")
  208. 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")
  209. Dim 满星奖励 = Array(383,714,405,733,子程序_相似度,"满星奖励",1000,"392|419|B7821B-101010,394|723|E7C532-101010,388|761|291811-101010,367|745|F9C727-101010")
  210. Dim 提示框_健康系统 = Array("351|467|4D1D2D-101010,346|720|682747-101010,131|625|1E4587-101010,83|594|2E0D14-101010,156|670|4E23B9-101010",子程序_相似度)
  211.     
  212. 设备_截屏(100)
  213. If 颜色_多点比色随机点击arr (冒险跳过白色) Then
  214. ElseIf 颜色_多点比色随机点击arr(冒险跳过红色) Then
  215. ElseIf 颜色_多点比色随机点击arr(满星奖励) Then
  216. ElseIf 颜色_多点比色arr(提示框_健康系统) Then
  217. 消息框和调试("健康系统_内")
  218. 触摸_随机点 149,594,169,647
  219. End If
  220. End Function

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

  235. Dim 自动颜色 = Array("511|886|E8B52D-101010,519|885|FFFFFE-101010,520|883|654A07-101010,529|906|805F0D-101010,525|948|E9AF5C-101010",子程序_相似度)
  236. Dim 新自动颜色 = Array("511|884|E7B42C-101010,519|884|FFFFFC-101010,521|882|654A09-101010,512|902|DEB531-101010,506|896|CD9B25-101010",子程序_相似度)
  237. Dim 自动已开启颜色 = Array("500|881|9E5C1A-101010,534|880|9B5A19-101010,535|914|995919-101010,501|915|9E5C1A-101010",子程序_相似度)
  238. Dim 胜利颜色 = Array("471|702|234C7D-101010,418|685|4689CD-101010,34|416|FFFFFF-101010,35|461|FFFFFF-101010,38|541|FFFFFF-101010",子程序_相似度)
  239. Dim 失败颜色 = Array("458|419|D1D1D1-101010,454|460|CACACA-101010,431|542|999999-101010,51|443|1B9CE6-101010,55|467|FFFFFF-101010",子程序_相似度)
  240. Dim 再来一次颜色 = Array("441|504|2774BF-101010,441|601|8195CB-101010,227|513|1032E1-101010,228|522|63EFFE-101010,465|499|FFFFFF-101010",子程序_相似度)
  241. 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",子程序_相似度)
  242. 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",子程序_相似度)
  243. Dim 胜利奖励颜色 = Array("61|421|2688D8-101010,77|461|FFFFFF-101010,77|491|FFFFFF-101010,75|507|38A8E7-101010,61|540|2584D3-101010",子程序_相似度)

  244. 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")

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

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

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

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

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

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

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

  381. End If

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

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

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

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

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


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

  434. //代码执行入口
  435. UI初始化:主函数()
复制代码

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

谢谢楼主分享

3#

哈哈,学习一下了

4#

楼主大大,学习学习

5#

谢谢分享,学习

6#

回复看内容

7#

回复看内容

8#

开放源码(适合交流学习)

9#

来学习一下

10#

学习一下!!!!!!!!!!!!!!!!!!!!!!!!!

11#

试试

12#

wolai 试试试试,谢谢

13#

鲜香豆腐蟹


1

14#

看下源码谢谢

15#

厉害了我的给1

16#

试试

17#

】王者荣耀辅助源码分享适合学习交流

18#

好东西谢谢

19#

可以在电脑模拟器上跑么

20#

感谢分享,试试效果如何

发新话题 回复该主题