SayString PASSWD
Delay	50
//姓名
MoveTo	Ux+300,Uy+175
//Delay	30
LeftClick	1
//Delay	50
SayString NAME
Delay	50
//身份证号
MoveTo	Ux+300,Uy+200
//Delay	30
LeftClick	1
SayString NAMEID
Delay	50
//重复身份证号
MoveTo	Ux+300,Uy+225
//Delay	30
LeftClick	1
//Delay	50
SayString NAMEID
Delay	50
//电话
MoveTo	Ux+300,Uy+250
//Delay	30
LeftClick	1
//Delay	50
SayString PHONE
Delay	50
//验证码
MoveTo	Ux+300,Uy+275
//Delay	30
LeftClick	1
//Delay	50
Call	identifyingcode()
Delay	50
//同意
MoveTo	Ux+270,Uy+360
//Delay	30
LeftClick	1
//Delay	30
//点击注册
MoveTo	Ux+300,Uy+394
//Delay	30
LeftClick	1
Delay	500

Call	ToDisplayClient()
    RegisteTemp=0
    RegisteResult = ""
    For 15
        GetColor=GetPixelColor(Ux+165+RegisteTemp,Uy+170)
        If GetColor="00FCF8" Then
            RegisteTempA = "1"
        Else
            RegisteTempA = "0"
        End If
        RegisteResult = RegisteResult + RegisteTempA
        RegisteTemp=RegisteTemp+1
    Next
    
	If RegisteResult=ress Then
		Delay	50
		//将账号存于文件
		resss = ""
		resss = id + CStr(i) 
		Call Plugin.File.WriteFileEx("D:\Account1.txt", resss)
//		MessageBox	"1:成功"
		
		Call	Registe()
	
	ElseIf	RegisteResult=reis Then
		Delay	50
		//将账号存于文件
		reiss = ""
		reiss = id + CStr(i)
		Call Plugin.File.WriteFileEx("D:\Account2.txt", reiss)
//		MessageBox	"2:成功"
		
		Call	Registe()		
	ElseIf RegisteResult = reii Then
		Goto	EndIP
	Else	
		Call	Registe()
		Goto Create
	End If


End Sub



Sub identifyingcode()
//验证码识别失败则再次识别
Call	ToDisplayClient()
Delay	20
m=378
n=278-1
Dim	MyArray
Dim result