[源码分享] 【山海验证码插件】图片验证码（联众、打码兔）、手机短信验证码... [复制链接]

这个肯定要看

的方式是对方

ShowMessage "当前手机分辨率为："&GetScreenX()&"X"&GetScreenY()
Dim tm,tm1
tm=time()
TracePrint tm

Dim x_qd,y_qd,jl,quyu()

if GetScreenX()=320 and GetScreenY()=480 then
x_qd=30
y_qd=393
jl=45


elseif GetScreenX()=640 and GetScreenY()=960 then
x_qd=57
y_qd=786
jl=90


elseif GetScreenX()=480 and GetScreenY()=800 then
x_qd=40
y_qd=630
jl=68


elseif GetScreenX()=480 and GetScreenY()=854 then
x_qd=43
y_qd=655
jl=67


elseif GetScreenX()=800 and GetScreenY()=1280 then
x_qd=105
y_qd=985
jl=101


elseif GetScreenX()=720 and GetScreenY()=1280 then
x_qd=55
y_qd=982
jl=102


elseif GetScreenX()=540 and GetScreenY()=960 then
x_qd=45
y_qd=745
jl=73

else
ShowMessage "暂不支持此分辨率"
EndScript
end If



KeepScreen(true)
Dim xt,yt,i,j,rColor
Do
KeepCapture
xt=0
yt=0

for i=0 to 6
for j=0 to 6
xt=x_qd+jl*j
yt=y_qd-jl*i
rColor = GetPixelColor(xt,yt)

'上
If ColorDiff(rColor,GetPixelColor(xt-jl,yt-jl))<=25 and ColorDiff(rColor,GetPixelColor(xt-jl*2,yt-jl))<=25 or ColorDiff(rColor,GetPixelColor(xt,yt-jl*2))<=25 and ColorDiff(rColor,GetPixelColor(xt,yt-jl*3))<=25 or ColorDiff(rColor,GetPixelColor(xt+jl,yt-jl))<=25 and ColorDiff(rColor,GetPixelColor(xt+jl*2,yt-jl))<=25 or ColorDiff(rColor,GetPixelColor(xt-jl,yt-jl))<=25 and ColorDiff(rColor,GetPixelColor(xt+jl,yt-jl))<=25 Then
Swipe xt,yt,xt,yt-jl
Exit For
End If

'下
If ColorDiff(rColor,GetPixelColor(xt-jl,yt+jl))<=25 and ColorDiff(rColor,GetPixelColor(xt-jl*2,yt+jl))<=25 or ColorDiff(rColor,GetPixelColor(xt,yt+jl*2))<=25 and ColorDiff(rColor,GetPixelColor(xt,yt+jl*3))<=25 or ColorDiff(rColor,GetPixelColor(xt+jl,yt+jl))<=25 and ColorDiff(rColor,GetPixelColor(xt+jl*2,yt+jl))<=25 or ColorDiff(rColor,GetPixelColor(xt-jl,yt+jl))<=25 and ColorDiff(rColor,GetPixelColor(xt+jl,yt+jl))<=25 Then
Swipe xt,yt,xt,yt+jl
Exit For
End If

'左
If ColorDiff(rColor,GetPixelColor(xt-jl,yt-jl))<=25 and ColorDiff(rColor,GetPixelColor(xt-jl,yt-jl*2))<=25 or ColorDiff(rColor,GetPixelColor(xt-jl*2,yt))<=25 and ColorDiff(rColor,GetPixelColor(xt-jl*3,yt))<=25 or ColorDiff(rColor,GetPixelColor(xt-jl,yt+jl))<=25 and ColorDiff(rColor,GetPixelColor(xt-jl,yt+jl*2))<=25 or ColorDiff(rColor,GetPixelColor(xt-jl,yt-jl))<=25 and ColorDiff(rColor,GetPixelColor(xt-jl,yt+jl))<=25 Then
Swipe xt,yt,xt-jl,yt
Exit For
End If

'右
If ColorDiff(rColor,GetPixelColor(xt+jl,yt-jl))<=25 and ColorDiff(rColor,GetPixelColor(xt+jl,yt-jl*2))<=25 or ColorDiff(rColor,GetPixelColor(xt+jl*2,yt))<=25 and ColorDiff(rColor,GetPixelColor(xt+jl*3,yt))<=25 or ColorDiff(rColor,GetPixelColor(xt+jl,yt+jl))<=25 and ColorDiff(rColor,GetPixelColor(xt+jl,yt+jl*2))<=25 or ColorDiff(rColor,GetPixelColor(xt-jl,yt+jl))<=25 and ColorDiff(rColor,GetPixelColor(xt+jl,yt+jl))<=25 Then
Swipe xt,yt,xt+jl,yt
Exit For
End if

Next
Next
tm1=time()
if tm1-tm>70 then '设置脚本运行时间单位:秒！
EndScript
end if
Loop

21321312321

范德萨规范的规定

过来看下是怎么发生图片的

ZXZsda asdasdasdas

查询用户信息

哈哈哈哈哈

强烈支持！

啰嗦

山海太厉害了

看看啦

插件下载↓

11111111111111111111

霜期

阿萨德发的说法大师傅