x6=x5+1
x7=x6+1
x8=x7+1
Rem kaishi
VBSCall color4=GetPixelColor(x4,y)
VBSCall color5=GetPixelColor(x5,y)
VBSCall color6=GetPixelColor(x6,y)
VBSCall color7=GetPixelColor(x7,y)
///插入验证数字y坐标///
If color4=color6
If color4=color999
y=y+1
Goto kaishi
EndIf
EndIf
If color4=color7
If color4=color999
y=y+1
Goto kaishi
EndIf
EndIf
If color5=color7
If color5=color999
y=y+1
Goto kaishi
EndIf
EndIf
If color5=color6
If color5=color999
y=y+1
Goto kaishi
EndIf
EndIf
If color4=color5
If color4<>color999
Goto yanzheng
EndIf
EndIf
If color6=color7
If color6<>color999
Goto yanzheng
EndIf
EndIf
If color4<>color999
If color5<>color999
If color4<>color5
y=y+1
Goto kaishi
EndIf
EndIf
EndIf
If color6<>color999
If color7<>color999
If color6<>color7
y=y+1
Goto kaishi
EndIf
EndIf
EndIf
EndIf
EndIf
///插入验证数字y坐标///
//////////////确定y开始坐标///////////
Rem yanzheng
VBSCall color1=GetPixelColor(x2,y)
y=y+1
VBSCall color2=GetPixelColor(x2,y)
y=y+1
VBSCall color3=GetPixelColor(x2,y)
y=y+1
VBSCall color4=GetPixelColor(x2,y)
y=y+1
VBSCall color5=GetPixelColor(x2,y)
y=y+1
VBSCall color6=GetPixelColor(x2,y)
y=y+1
VBSCall color7=GetPixelColor(x2,y)
y=y+1
VBSCall color8=GetPixelColor(x2,y)
y=y+1
VBSCall color9=GetPixelColor(x2,y)
y=y+1
VBSCall color10=GetPixelColor(x2,y)
y=524
///确定数字///////
If color3=color10
If color3<>color999
If color3=color2
shu=2
Goto queding
Else
shu=1
Goto queding
EndIf
EndIf
EndIf
If color1=color2
If color1=color9
If color1<>color999
If color1=color10