一些网游 反挂识别图片的 [识别脚本] 模板

疯言疯语

//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


   

    //下面坐标自己修改(就是颜色位置)

   

    VBS cx=100:cy=100


   ElseIf mx>200 and mx

   

    VBS cx=200:cy=200


   ElseIf mx>300 and mx

   

    VBS cx=300:cy=300


   ElseIf mx>400 and mx

   

    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 移动单击

jwfsys

还是很深啊  坐沙发咯

过去一切

何缘

学习当中！！

过去一切