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

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

快捷导航

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

返回列表 12345678» / 18
发新话题 回复该主题

[源码分享] 一点识别十数字法 [复制链接]

1#
以后分享的源码直接发在老帖子里 文字识别和字库源码分享
传送门 http://bbs.anjian.com/showtopic-583978.aspx
万恶的回复贴我也讨厌*^_^*,以后分享的源码全贴在老帖子文字识别里,方便查看,回复过的人直接点击查看楼主就可以看到

一点识别十个数字有一定的局限性,以后你们也会知道

这子程序就是一点识别十个数字的代码,是醉江山掠夺声望的
Call 识数(268,424)
w=su
Call 识数(268,436)
y=su
一共三位数,百位数是一固定不变,w是十位数,y是个位数,这样就可以读取出声望


Sub 识数(x,y)
Select Case GetPixelColor(x,y)
Case "DDDDDD"
su=0
Case "000000"
su=1
Case "181818"
su=2
Case "2A2A2A"
su=3
Case "2B2B2B"
su=4
Case "505050"
su=5
Case "707070"
su=6
Case "101010"
su=7
Case "232323"
su=8
Case "EAEAEA"
su=9
Case Else
su=-1
End Select
End Sub




下面是原理和工具的代码


区域检测屏幕颜色变化并写入文本(颜色组)
Dim c(),x,y,i,j,写入
Import "FileEx.lua"
Import "LuaArray.lua"
写入="/sdcard/时间取色组.txt"
j=0
'Delay 3000
For 100
Call 屏幕变化(334,347,533,533,1,1)
'Next

Sub 屏幕变化(x1,y1,x2,y2,x3,y3)
i=0
KeepCapture
For x = x1 To x2 Step x3
For y = y1 To y2 Step y3
i=i+1
c(i)=GetPixelColor(x,y)
Next
Next
ReleaseCapture
Delay 600

KeepCapture
i=0
For x = x1 To x2 Step x3
For y = y1 To y2 Step y3
i=i+1
If GetPixelColor(x,y) <> c(i) Then
'Tap x,y
'Delay 10
'可以放截图代码
Call 偏移取色(334,347,533,533)
Exit Sub
End If
Next
Next
ReleaseCapture
End Sub

Sub 偏移取色(x1,x2,y1,y2)
i=0
j=j+1
ShowMessage j
KeepCapture
For x=x1 To x2
For y=y1 To y2
i=i+1
c(i) = GetPixelColor(x,y)
If i<(x2-x1+1)*(y2-y1+1) Then
FileEx.WriteEx(写入,x&"|"&y&"|"&c(i)&",")
Else
FileEx.WriteEx(写入,x&"|"&y&"|"&c(i)&"\n")
End If
Next
Next
ReleaseCapture

If j=10 Then
ShowMessage "截图或取色"&j
Delay 1800
EndScript
End If

End Sub

这段代码是用来抓取一个位置里十个数字方框里所有点
阵颜色

下面一段是把十个数字点阵上的同一点颜色加以分析,找出十种不同颜色的一点

抓色偏移并对比
Dim 文本,x,a(),b(),c,arr,i,j,k,d
Import "Fileex.lua"
Import "LuaArray.lua"

文本 = File.ReadLines("/sdcard/时间取色组.txt")
For Each x In 文本
arr = Split(x, ",")
next
j=LuaArray.UBound(arr)
ShowMessage j
Delay 1000

for j=0 to j-1
i=0
k=0
c=0
d=1
For Each x In 文本
arr = Split(x, ",")
k=k+1
i=i+1
a(i)=arr(j)
a(k)=arr(j)
next

for i=d to i
for k=d to k
if a(i) = a(k) then
if i <> k then
c=c+1
FileEx.WriteEx("/sdcard/抓色结果对比.txt",c&" "&Mid(arr(j),1,7)&" "&i&"和"&k&"重复\n")
End if
End if
'ShowMessage j&i&k
'Delay 20

next
d=d+1
next
if c = 0 then
FileEx.WriteEx("/sdcard/抓色结果对比.txt",Mid(arr(j),1,7)&" 无重复\n")
End if
next

为什么取名时间,是因为时间数字是一秒一变化的,就可以做到自动抓色
也可以适用于coc训练营的兵力数字,在代码内加一行代码,变化一次,点击下黄毛加一个兵力,从零开始,启动脚本,然后等几秒,手动点一下黄毛,脚本就会自动抓色并加兵力如此循环九次终止循环

最后编辑86293772 最后编辑于 2015-09-12 10:56:33
2#


3#

uhcxdbnn

4#

啊是大叔大叔大叔大叔大叔大叔的

5#

学习了~~~~~~~~~~~

6#

学习下,谢谢啦

7#

回复 1楼86293772的帖子

学习学习

8#

谢谢支持中55

9#

谢谢~

10#


11#


为了做脚本而游戏
12#

楼主好东西啊

13#

消痤膏vbsdfgsdfgsrrrrrrrrrrrrr

14#

学习下

15#


低调做人,走自己的路!
16#

源码分享

17#

感谢分享

18#

电饭锅电饭锅

19#

一点识别十数字法

20#

学习学习...

发新话题 回复该主题