//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 移动单击
评论1