UserVar yanchi= 延迟
UserVar zhanghao= 帐号
UserVar zhanghaohoushu=1000 帐号后的数字(不能用0001)
UserVar mima= 密码
UserVar youxiang= 邮箱
UserVar youxianghoushu=1000 邮箱后数(不能0001)
UserVar [email=youxianghouzhui=@21cn.com]youxianghouzhui=@21cn.com[/email] 邮箱后缀
Rem kaishi01
VBSCall RunApp("http://www.taskcn.com/register.php?r=376398")
Plugin win=Window.Foreground()
a999=1
b=1
Delay 300
IfColor 575,16,c8d0d4,2
Else 
    KeyPress 122,1
EndIf 
Delay 1000
IfColor 292,253,63d7a5,2
    Delay yanchi
    SayString zhanghao
    SayString zhanghaohoushu
    Delay yanchi
    KeyPress 9,1
    Delay yanchi
    SayString mima
    Delay yanchi
    KeyPress 9,1
    Delay yanchi
    SayString mima
    Delay yanchi
    KeyPress 9,1
    Delay yanchi
    SayString youxiang
    SayString youxianghoushu
    SayString youxianghouzhui
    KeyPress 9,1
    Delay yanchi
    Gosub yanzhengma
    Delay yanchi
    KeyPress 13,1
    zhanghaohoushu=zhanghaohoushu+1
    youxianghoushu=youxianghoushu+1
Else 
    Delay 500
    Gosub deng
EndIf 
Delay 1000
MoveTo 861,50
LeftClick 1
Delay 1000
Plugin Window.Close(win)
Goto kaishi01
EndScript 
Sub deng
    If a<20
        Delay 200
        If b=1
            Goto 1
        EndIf 
        If b=2
            Goto 2
        EndIf 
        If b=3
            Goto 3
        EndIf 
        If b=4
            Goto 4
        EndIf 
        If b=5
            Goto 5
        EndIf 
        If b=6
            Goto 6
        EndIf 
        If b=7
            Goto 7
        EndIf 
        If b=8
            Goto 8
        EndIf 
        If b=9
            Goto 9
        EndIf 
        If b=10
            Goto 10
        EndIf 
    EndIf 
Return deng
Sub yanzhengma
    //////////////确定y开始坐标///////////
    x=441:y=524:y100=598:color999="C8C8C8":a999=0
    VBSCall FindPic(428,604,577,634,"tijiao.bmp",0.9,x999,y999)
    If x999>0 and y999>0
        Rem houmian
        x1=x
        x2=x1+1
        x3=x2+1
        x4=x3+1
        x5=x4+1