标题:
一些网游 反挂识别图片的 [识别脚本] 模板
[打印本页]
作者:
疯言疯语
时间:
2006-11-9 21:00
标题:
一些网游 反挂识别图片的 [识别脚本] 模板
//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
时间:
2006-11-12 02:43
还是很深啊 坐沙发咯
作者:
过去一切
时间:
2006-11-12 06:24
标题:
看不明白
作者:
何缘
时间:
2006-11-12 17:37
学习当中!!
作者:
过去一切
时间:
2006-11-14 07:28
标题:
我根本不会放水走人
欢迎光临 紫菀论坛 (http://bbs.szyin.com/)
Powered by Discuz! 7.1