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