| |
一些网游反挂识别图片的 [识别脚本] 模板 :
//2张间距
VBS n=200
//初始抓第一张图的颜色点坐标(下面坐标自己修改)
VBS x=100:y=100
//4张图,循环4次
For 4
VBSCall c=GetPixelColor(x,y)
//颜色判断(可自行增加多个判断项)
If c="00FF00" or c="FF00FF" or c="DDFFDD"
Gosub 移动单击
ElseIf c="DDFF00" or c="FFDDFF" or c="FFFFDD"
Gosub 移动单击
ElseIf c="AAFF00" or c="FFAAAA" or c="AAAADD"
Gosub 移动单击
EndIf
VBS x=x+n
EndFor
Rem 开始
MessageBox 识别错误,发现新图片,请把鼠标移动到不同的图片上,再按[ctrl]键
WaitKey k
//[ctrl]键acsii码17
If k=17
//鼠标位置判断(4个位置区域)
VBSCall GetCursorPos(mx,my)
If mx>100 and mx<200
//下面坐标自己修改(就是颜色位置)
VBS cx=100:cy=100
ElseIf mx>200 and mx<300
VBS cx=200:cy=200
ElseIf mx>300 and mx<400
VBS cx=300:cy=300
ElseIf mx>400 and mx<500
VBS cx=400:cy=400
Else
MessageBox 鼠标位置放的不对,重新开始!
Goto 开始
EndIf
//得到鼠标区域位置颜色
VBSCall c1=GetPixelColor(cx,cy)
VBSCall MessageBox("[ "&c1&" ]得到的新颜色自己手动增加到颜色判断里面")
EndIf
Rem 结束
EndScript
Sub 移动单击
MoveTo x y
Delay 200
LeftClick 1
Delay 500
Goto 结束
Return 移动单击 |
|