EndIf 
    If M(ii)=24
        Gosub X
    EndIf 
    If M(ii)=25
        Gosub Y
    EndIf 
    If M(ii)=26
        Gosub Z
    EndIf 
    If M(ii)=27
        Gosub 0
    EndIf 
    If M(ii)=28
        Gosub 1
    EndIf 
    If M(ii)=29
        Gosub 2
    EndIf 
    If M(ii)=30
        Gosub 3
    EndIf 
    If M(ii)=31
        Gosub 4
    EndIf 
    If M(ii)=32
        Gosub 5
    EndIf 
    If M(ii)=33
        Gosub 6
    EndIf 
    If M(ii)=34
        Gosub 7
    EndIf 
    If M(ii)=35
        Gosub 8
    EndIf 
    If M(ii)=36
        Gosub 9
    EndIf 
    Delay 50
    VBS ii=ii+1
EndFor 
VBS ii=1
//字符新坐标平移
VBS t1=rnd:t2=rnd:t3=rnd:t4=rnd:t5=rnd:t6=rnd:t7=rnd:t8=rnd:t9=rnd:z1=rnd:z2=rnd:z3=rnd
For 350
    VBS TTx1(i)=Tx1(i)-(t1+6)*25:TTy1(i)=Ty1(i)+(1-t2)*25
    i=i+1
EndFor 
VBS i=1
For 350
    VBS TTx2(i)=Tx2(i)-(t3+5)*25:TTy2(i)=Ty2(i)+(1-t4)*25
    i=i+1
EndFor 
VBS i=1
For 350
    VBS TTx3(i)=Tx3(i)-(t5+4)*25:TTy3(i)=Ty3(i)+(1-t6)*25
    i=i+1
EndFor 
VBS i=1
For 350
    VBS TTx4(i)=Tx4(i)-(t7+3)*25:TTy4(i)=Ty4(i)+(1-t8)*25
    i=i+1
EndFor 
VBS i=1
For 350
    VBS TTx5(i)=Tx5(i)-(t9+2)*25:TTy5(i)=Ty5(i)+(1-z1)*25
    i=i+1
EndFor 
VBS i=1
For 350
    VBS TTx6(i)=Tx6(i)-(z2+1)*25:TTy6(i)=Ty6(i)+(1-z3)*25
    i=i+1
EndFor 
VBS i=1
//移到新坐标并点击，开始画图
For 350
    If TTx1(i)>0 and TTy1(i)>0
        MoveTo TTx1(i),TTy1(i)
        Delay 10
        LeftClick 1
    EndIf 
    i=i+1
EndFor 
VBS i=1
For 350
    If TTx2(i)>0 and TTy2(i)>0
        MoveTo TTx2(i),TTy2(i)
        Delay 10
        LeftClick 1
    EndIf 
    i=i+1
EndFor 
VBS i=1
For 350
    If TTx3(i)>0 and TTy3(i)>0
        MoveTo TTx3(i),TTy3(i)
        Delay 10
        LeftClick 1