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

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

按键精灵安卓版
立即下载

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

按键精灵iOS版
立即下载

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

按键手机助手
立即下载

软件版本:3.7.6
软件大小:262M
更新时间:08-06

快捷导航

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

发新话题 回复该主题

[源码分享] 传奇类手游我的第一次尝试 [复制链接]

1#
  1. 第一次尝试写代码 请各位大佬指正一下错误点或者精简一下
  2. //以当前屏幕方向,在屏幕350,350这个位置上显示"我爱按键精灵"
  3. //ShowMessage "我爱按键精灵",2000,60,600
  4. //Call 关闭窗口()
  5. Do
  6. If 找图(693,1175,717,1253, "傲来国")or 找图(693,1175,717,1253, "第二大陆") Then
  7. TracePrint "找到了"
  8. ShowMessage "开始挂机",2000,60,600
  9. 随机延迟
  10. 随机延迟
  11. Call 挂机开始()
  12. Else
  13. TracePrint "没找到"
  14. End If
  15. If 找图(570, 259, 645, 298, "暗黑西游") Then
  16. TracePrint "找到了"
  17. Call 随机延迟()
  18. Call 登入全集()
  19. Else
  20. 随机延迟
  21. 随机延迟
  22. TracePrint "没找到"
  23. End If
  24. If 找图(271,450,334,587, "重连游戏") Then
  25. TracePrint "找到了"
  26. 随机延迟
  27. 随机延迟
  28. Call 重连游戏()
  29. Else
  30. 随机延迟
  31. 随机延迟
  32. TracePrint "没找到"
  33. End If
  34. If 找图(323,942,367,1046, "安全复活")Then
  35. TracePrint "找到了"
  36. 随机延迟
  37. 随机延迟
  38. Call 死亡检测()
  39. Else
  40. 随机延迟
  41. 随机延迟
  42. TracePrint "没找到"
  43. End If
  44. If 找图(558, 1158, 607, 1232, "包满") Then
  45. TracePrint "找到了"
  46. 随机延迟
  47. 随机延迟
  48. Call 熔炼回收()
  49. Else
  50. 随机延迟
  51. 随机延迟
  52. TracePrint "没找到"
  53. End If
  54. If 找图(469,54,672,100, "怪物图标") Then
  55. TracePrint "找到了"
  56. 随机延迟
  57. 随机延迟
  58. Else
  59. 随机延迟
  60. 随机延迟
  61. Call 随机石()
  62. TracePrint "没找到"
  63. End If
  64. If 找图(267,509,440,752, "断线") Then
  65. TracePrint "找到了"
  66. 随机延迟
  67. 随机延迟
  68. Call 断线()
  69. Else
  70. 随机延迟
  71. 随机延迟
  72. TracePrint "没找到"
  73. End If
  74. Loop
  75. //战斗随机
  76. Function 随机石()
  77. Dim X,Y
  78. If 找图(99,491,152,548, "随机石") Then
  79. TracePrint "找到了"
  80. 随机延迟
  81. 随机延迟
  82. Delay 8000
  83. Call 随机点击(123,520)
  84. Else
  85. 随机延迟
  86. 随机延迟
  87. TracePrint "没找到"
  88. End If
  89. End Function
  90. Function 人物()
  91. Dim X,Y
  92. If 找图(592,9,668,41, "人物") Then
  93. TracePrint "找到了"
  94. 随机延迟
  95. 随机延迟
  96. Call 随机点击(509,28)
  97. Else
  98. 随机延迟
  99. 随机延迟
  100. TracePrint "没找到"
  101. End If
  102. End Function
  103. Function 任务面板()
  104. Dim X,Y
  105. If 找图(585,3,674,48, "任务") Then
  106. TracePrint "找到了"
  107. 随机延迟
  108. 随机延迟
  109. Call 随机点击(565,24)
  110. Else
  111. 随机延迟
  112. 随机延迟
  113. TracePrint "没找到"
  114. End If
  115. End Function
  116. //战斗随机结尾

  117. //回收
  118. Function 熔炼回收()
  119. 随机延迟
  120. 随机延迟
  121. Call 包满处理()
  122. 随机延迟
  123. 随机延迟
  124. 随机延迟
  125. 随机延迟
  126. Call 点击熔炼()
  127. 随机延迟
  128. 随机延迟
  129. 随机延迟
  130. 随机延迟
  131. Call 关闭窗口()
  132. 随机延迟
  133. 随机延迟
  134. 随机延迟
  135. 随机延迟
  136. End Function

  137. Function 点击熔炼()
  138. Dim X,Y
  139. If 找图(64,901,119,986, "点击熔炼")Then
  140. TracePrint "找到了"
  141. 随机延迟
  142. 随机延迟
  143. Call 随机点击(87,942)
  144. Else
  145. 随机延迟
  146. 随机延迟
  147. TracePrint "没找到"
  148. End If
  149. End Function

  150. Function 包满处理()
  151. Dim X,Y
  152. If 找图(558,1158,607,1232, "包满")and 找图(59,1223,121,1262, "熔炼") Then
  153. TracePrint "找到了"
  154. 随机延迟
  155. 随机延迟
  156. Call 随机点击(91,1244)
  157. Else
  158. 随机延迟
  159. 随机延迟
  160. TracePrint "没找到"
  161. Call 随机点击(422,1243)
  162. End If
  163. End Function
  164. //回收结尾
  165. //挂机全集
  166. Function 挂机开始()
  167. Call 随机延迟()
  168. Call 随机延迟()
  169. Call 随机延迟()
  170. Call 首领挑战()
  171. Call 随机延迟()
  172. Call 随机延迟()
  173. Call 随机延迟()
  174. Call 首领挑战BOSS()
  175. Call 随机延迟()
  176. Call 随机延迟()
  177. Call 随机延迟()
  178. Call 随机延迟()
  179. Call 随机延迟()
  180. Call 进入地图()
  181. Call 随机延迟()
  182. Call 随机延迟()
  183. Call 随机延迟()
  184. Call 关闭窗口()
  185. ShowMessage "挂机中", 2000, 60, 600
  186. Delay 60000
  187. End Function
  188. Function 首领挑战()
  189. Dim X,Y
  190. If 找图(632,1014,684,1096, "首领挑战")Then
  191. TracePrint "找到了"
  192. 随机延迟
  193. 随机延迟
  194. Call 随机点击(649,1055)
  195. Else
  196. 随机延迟
  197. 随机延迟
  198. TracePrint "没找到"
  199. End If
  200. End Function


  201. Function 进入地图()
  202. Dim X,Y
  203. If 找图(72,929,126,1054, "进入地图")Then
  204. TracePrint "找到了"
  205. 随机延迟
  206. 随机延迟
  207. Call 随机点击(99,985)
  208. Else
  209. 随机延迟
  210. 随机延迟
  211. TracePrint "没找到"
  212. End If
  213. End Function
  214. Function 首领挑战BOSS()
  215. Dim X,Y
  216. If 找图(595,202,632,317, "首领挑战BOSS")Then
  217. TracePrint "找到了"
  218. 随机延迟
  219. 随机延迟
  220. Call 随机点击(89,795)
  221. 随机延迟
  222. 随机延迟
  223. Else
  224. 随机延迟
  225. 随机延迟
  226. TracePrint "没找到"
  227. End If
  228. End Function
  229. Function 关闭窗口()
  230. Dim X,Y
  231. If 找图(648, 1157, 699, 1212, "关闭窗口") Then
  232. 随机延迟
  233. 随机延迟
  234. Call 随机点击(668, 1185    )
  235. Else
  236. 随机延迟
  237. 随机延迟
  238. End If
  239. End Function
  240. //通用处理
  241. Function 死亡检测()
  242. Dim X,Y
  243. If 找图(323,942,367,1046, "安全复活")Then
  244. TracePrint "找到了"
  245. 随机延迟
  246. 随机延迟
  247. Call 随机点击(336,988)
  248. Else
  249. 随机延迟
  250. 随机延迟
  251. TracePrint "没找到"
  252. End If
  253. End Function
  254. Function 重连游戏()
  255. Dim X,Y
  256. If 找图(271,450,334,587, "重连游戏")Then
  257. TracePrint "找到了"
  258. 随机延迟
  259. 随机延迟
  260. KillApp "com.heianguangnian.yaoling"
  261. Delay 600000
  262. Else
  263. 随机延迟
  264. 随机延迟
  265. TracePrint "没找到"
  266. End If
  267. End Function
  268. Function 断线()
  269. If 找图(267,509,440,752, "断线")Then
  270. TracePrint "找到了"
  271. 随机延迟
  272. 随机延迟
  273. KillApp "com.heianguangnian.yaoling"
  274. Delay 600000
  275. Else
  276. 随机延迟
  277. 随机延迟
  278. TracePrint "没找到"
  279. End If
  280. End Function
  281. //挂机结尾
  282. //登入全部程序
  283. Function 登入全集()
  284. For 1

  285. Call 随机延迟()
  286. Call 暗黑西游()
  287. Call 随机延迟()
  288. Call 随机延迟()
  289. Call 随机延迟()
  290. Call 随机延迟()
  291. Call 随机延迟()
  292. Call 点击屏幕()
  293. Call 随机延迟()
  294. Call 随机延迟()
  295. Call 随机延迟()
  296. Call 随机延迟()
  297. Call 随机延迟()
  298. Call 随机延迟()
  299. Call 点击登入第一步()
  300. Call 随机延迟()
  301. Call 随机延迟()
  302. Call 随机延迟()
  303. Call 随机延迟()
  304. Call 随机延迟()
  305. Call 随机延迟()
  306. Call 点击进入游戏第一步()
  307. Call 随机延迟()
  308. Call 随机延迟()
  309. Call 随机延迟()
  310. Call 随机延迟()
  311. Call 随机延迟()
  312. Call 点击进入游戏第二步()
  313. Call 随机延迟()
  314. Call 随机延迟()
  315. Call 随机延迟()
  316. ShowMessage "登入中"
  317. Next
  318. End Function


  319. Function 点击进入游戏第二步()
  320. Dim X,Y
  321. If 找图(71,595,108,687, "进入游戏第二步")Then
  322. TracePrint "找到了"
  323. Call 随机延迟()
  324. Call 随机点击(170,637)
  325. Else
  326. 随机延迟
  327. 随机延迟
  328. Call 暗黑西游()
  329. TracePrint "没找到"
  330. End If
  331. End Function
  332. Function 点击进入游戏第一步()
  333. Dim X,Y
  334. If 找图(261,565,309,723, "进入游戏第一步")Then
  335. TracePrint "找到了"
  336. Call 随机延迟()
  337. Call 随机点击(279,636)
  338. Else
  339. 随机延迟
  340. 随机延迟
  341. Call 暗黑西游()
  342. TracePrint "没找到"
  343. End If
  344. End Function


  345. Function 点击登入第一步()
  346. Dim X,Y
  347. If 找图(199,585,285,725, "登入第一步")Then
  348. TracePrint "找到了"
  349. Call 随机延迟()
  350. Call 随机点击(238,641)
  351. Else
  352. 随机延迟
  353. 随机延迟
  354. Call 暗黑西游()
  355. TracePrint "没找到"
  356. End If
  357. End Function


  358. Function 点击屏幕()
  359. Dim X,Y
  360. If 找图(279,489,447,815, "点击屏幕")Then
  361. TracePrint "找到了"
  362. Call 随机延迟()
  363. Call 随机点击(355,593)
  364. Else
  365. 随机延迟
  366. 随机延迟
  367. Call 暗黑西游()
  368. TracePrint "没找到"
  369. End If
  370. End Function

  371. Function 暗黑西游()
  372. Dim X,Y
  373. If 找图(570,259,645,298, "暗黑西游")Then
  374. TracePrint "找到了"
  375. 随机延迟
  376. 随机延迟
  377. Call 随机点击(580,275)
  378. Else
  379. KillApp "com.heianguangnian.yaoling"
  380. 随机延迟
  381. 随机延迟
  382. TracePrint "没找到"
  383. End If
  384. End Function
  385. //登入程序结尾
  386. Function 随机延迟()
  387. Delay 随机数(500,1500)    
  388. End Function

  389. Function 随机点击(X,Y)
  390. Tap X + 随机数(-5, 5), Y + 随机数(-5, 5)
  391. TracePrint X + 随机数(-5, 5), Y + 随机数(-5, 5)
  392. End Function

  393. Function 随机数(最小值, 最大值)
  394. 随机数 = Int((最大值 - 最小值) * Rnd() + 最小值)
  395. End Function



  396. Function 找图(x1, y1, x2, y2, 图片)
  397. Dim X,Y
  398. FindPic x1, y1, x2, y2,"Attachment:"&图片&".png","101010",0,0.9,X,Y
  399. If X > -1 Then
  400. 找图 = True
  401. Else
  402. 找图 =False
  403. End If
  404. End Function

  405. Function 找图点击(x1, y1, x2, y2, 图片)
  406. Dim X,Y
  407. FindPic x1, y1, x2, y2,"Attachment:"&图片&".png","101010",0,0.9,X,Y
  408. If X > -1 Then
  409. Tap X, Y
  410. 找图点击 = True
  411. Else
  412. 找图点击 =False
  413. End If
  414. End Function
复制代码

2#

学习了

发新话题 回复该主题