测试设备:雷电模拟器 540*960 dpi 240
基本原理:
把滑块验证图片转化成0和1的二值化图片,也就是黑白图

原图

二值化后的图片
然后找滑块序列,匹配成功,就找到滑块位置了

代码分享:
Dim r,g,b,m,s,y,k,d,GetColor
dim p=0
Dim q=0
KeepCapture
For j= 195 To 479
For i = 21 To 518
GetColor = GetPixelColor(i,j)
ColorToRGB(GetColor,r,g,b)
y=r+g+b
If 384 - y > 50 Then
k =0
Else
k=1
End If
d=d&k
Next
s = InStr(260, d, "100000000000000000000000000000000000000000000000000000000000000001")
m = InStr(260, d, "10000000000000000000000000000000000000000000000000000000000000001")
If 0

本文介绍了一种通过将滑块验证图片转化为二值化图片,即黑白图,来自动识别滑块位置的方法。该方法通过匹配特定序列,快速定位滑块,优化了识别过程,提高了识别效率,整个识别过程在一秒内完成。

4356

被折叠的 条评论
为什么被折叠?



