按鍵精靈 練rank

225549371 發表於 2015-6-19 13:12
可以分享一下原代碼麽？分辯率不合適，同時想學習一下

想学习其实还是重头写好
毕竟我这个是多点取色的 你分辨率不同 其实就等于全部要重新截取 和写个新的差不多
也就只能参考下
这版已经添加了点击弹出友情升级和每日奖励，喜欢研究的可以继续改进or提点子
有空的话可以帮你参考下

PS:断网重连 要去按键精灵官网下载huiyitool.lua
这个是用来开关wifi的 当然开关3g也可以[Openwifi改为Open3g]

PS1:代码更新

1. 
   
2. //自适应分辨率
   
3. SetScreenScale 720,1280,0
   
4. rem 关卡
   
5. Dim IntX,IntY
   
6. FindMultiColor 0,0,0,0,"7C7467","-43|28|169F57,16|40|10A967,72|36|307B42,11|-94|F5F5EC,-130|-71|AC7900,-188|43|B27F00,14|-195|454160",0,0.9,intX,intY
   
7. If intX>-1 And intY>-1 Then
   
8.     Tap intX, intY
   
9.     Delay 300
   
10.     goto 选任务
    
11. Else
    
12.     goto 关卡
    
13. End If
    
14. Rem 选任务
    
15. If CmpColorEx("204|433|35ECB7,96|434|221122,53|283|33FD9F,292|233|536E08,344|844|B7EBFE", 0.9) = 1 Then
    
16.     Delay 800
    
17.     Tap 359, 824
    
18.     goto 助战
    
19. Else
    
20.     goto 选任务
    
21. End If
    
22. Rem 助战
    
23.     If CmpColorEx("48|224|99DBFD,76|220|3F5A7F,113|226|9FDDFD,155|230|6994B6,330|211|32CCAD,396|197|158B3A,492|205|000913,592|205|EEDD44,712|204|4D2B33",0.9)=1 Then
    
24.     Delay 200
    
25.     Tap 390,545
    
26.     Goto 开战
    
27. Else
    
28.     goto 助战
    
29. End If
    
30. Rem 开战
    
31. //Call 断线2()
    
32. Call 断线()
    
33. If CmpColorEx("214|415|3ADFBF,229|355|FFFF5F,360|370|1A555C,441|429|FEF441,629|241|4A4411,575|618|AAEEFF,599|1084|683CFB,688|1088|553DFF", 0.9) = 1 Then
    
34.     Delay 600
    
35.     Tap 603, 1081
    
36.     Delay 3000
    
37.     goto 战斗结束
    
38. Else
    
39.     goto 开战
    
40. End If
    
41. Rem 战斗结束
    
42. Call 断线()
    
43. Delay 1000
    
44. If CmpColorEx("58|1182|68B572,285|1179|30723E,409|1136|34944B,522|1168|358E3D,618|1082|3A9D4A,687|1246|42A054", 0.9) = 1 Then
    
45.     Delay 500
    
46.     Tap 60, 1200
    
47.     Delay 100
    
48.     Tap 60,1200
    
49.     Delay 2000
    
50.     goto 结算
    
51. Else
    
52.     goto 战斗结束
    
53. End If
    
54. Rem 结算
    
55. Call 断线()
    
56. Call OK()
    
57. If CmpColorEx("357|1199|C7B8DC,305|1202|593EFF,410|1201|593EFF,192|1129|ACDEF5,445|1128|B8E3F6,172|84|97D5F9", 0.9) = 1 Then
    
58.     Delay 100
    
59.     Tap 360, 1200
    
60.     Delay 2000
    
61.     goto 返回
    
62. Else
    
63.     goto 结算
    
64. End If
    
65. Rem 返回
    
66. Call 断线()
    
67. Call OK()
    
68. Dim C,V
    
69. FindMultiColor 0,0,0,0,"FFFFFF","-57|3|0800C0,148|-2|142F51",0,0.9,C,V
    
70. If C > -1 And V > -1 Then
    
71.     Delay 600
    
72.     goto 关卡
    
73. Else
    
74.     goto 返回
    
75. End If
    
76. Sub 断线
    
77.     If CmpColorEx("119|1128|FFFFFF,133|1129|FFFFFF,149|1136|FFFFFF,164|1128|FFFFFF,253|1128|D1EFFB,399|1128|D5F3FE,435|1077|3A5278,518|1085|3A5278,673|1098|B6DEF5,670|1056|CCEAF8",0.9)=1 Then
    
78.         //关闭wifi
    
79.         Import "huiyitool.lua"
    
80.         huiyitool.Closewifi()
    
81.         Delay 2000
    
82.         //开启wifi
    
83.         Import "huiyitool.lua"
    
84.         huiyitool.Openwifi()
    
85.         Delay 2000
    
86.     End If
    
87.     If CmpColorEx("157|493|D6F4FF,436|488|D6F4FF,127|776|D6F5FF,181|840|38C973,330|846|34C56A,399|849|5C41FF,524|842|6447FF,474|848|FFFEFF,579|850|D6F4FF",0.9)=1 Then
    
88.         Delay 300
    
89.         Tap 466, 847
    
90.         Delay 300  
    
91.     End If
    
92. End Sub
    
93. Sub OK
    

複製代碼

evazone 發表於 2015-6-19 14:39
想学习其实还是重头写好
毕竟我这个是多点取色的 你分辨率不同 其实就等于全部要重新截取 和写个新的差不 ...

接上帖 长度不够显不全

1. 
   
2. Sub OK
   
3.         //If CmpColorEx("360|832|8336F5,334|834|FFFEFF,345|835|5E3CFC,353|833|FFFEFF,368|835|FFFEFF,375|835|FEFEFF,399|837|573DFF,446|824|6949FF,299|833|5D41FF",0.9)=1 Then
   
4. Dim P6,P8
   
5. FindMultiColor 0,0,0,0,"8135ED","-29|-3|FFFEFF,-51|1|563DFF,-19|1|5F3DFD,5|-2|FFFEFF,22|12|FEFDFF,27|-2|593FFE,24|-12|FFFFFF,42|-9|6445FF,-59|1|563DFF",0,0.9,P6,P8
   
6. If P6>-1 And P8>-1 Then
   
7. Delay 500
   
8. Tap P6, P8
   
9. End If
   
10. End Sub

複製代碼

由 手機網頁 發佈

evazone 發表於 2015-6-19 14:30
这么多游戏 有很多繁复的操作 要解放双手就只能自己写
难道每次都要求人或买脚本。。所以我玩游戏的同时 ...

求分享網盤那小精靈的源代碼，想學習一下

由 手機網頁 發佈

謝謝，剛刷新一下看到了～～現在研究去

由 手機網頁 發佈

evazone 發表於 2015-6-19 14:39
想学习其实还是重头写好
毕竟我这个是多点取色的 你分辨率不同 其实就等于全部要重新截取 和写个新的差不 ...

我可以理解為現有代碼因為是固定坐標多點取色，而且分辯率與我機子不符，所以我只需要重新自定義多點取色的新坐標就可以適用我機子了？

225549371 發表於 2015-6-19 15:49
我可以理解為現有代碼因為是固定坐標多點取色，而且分辯率與我機子不符，所以我只需要重新自定義多點取色 ...

正解
因为是自用版本 所以固定坐标执行效率高 改通用版本要重设过的

由 手機網頁 發佈

evazone 發表於 2015-6-19 15:53
正解
因为是自用版本 所以固定坐标执行效率高 改通用版本要重设过的

大概思路方向是明白了，但不知道原代碼裏當時所多點取色的圖及位置，想把原代碼720*1280改坐標為800*1280，發覺有點無從下手，求教！

由 手機網頁 發佈

225549371 發表於 2015-6-19 17:18
大概思路方向是明白了，但不知道原代碼裏當時所多點取色的圖及位置，想把原代碼720*1280改坐標為800*1280 ...

If CmpColorEx("204|433|35ECB7,96|434|221122,53|283|33FD9F,292|233|536E08,344|844|B7EBFE", 0.9) = 1 Then
    Delay 800
    Tap 359, 824
    goto 助战
Else
    goto 选任务
End If
就像上面這段，坐標有轉換方式麽？

225549371 發表於 2015-6-19 17:24
If CmpColorEx("204|433|35ECB7,96|434|221122,53|283|33FD9F,292|233|536E08,344|844|B7EBFE", 0.9) = 1 ...

你还是未懂
CmpColorEx那类代码 是多点抓色的 是一个参照物
当屏幕上出现匹配的 就会运行下面的代码

你要做的是 找一个独一无二参照物 用抓抓弄个多点抓色
之后再把要点击的坐标[挑战，助战，选关卡等] 替换掉tap后边的坐标

由 手機網頁 發佈

請教一下，源代碼中進行判定是否需要斷網時的參照物是什麼？單從坐標上理解不了