Chars_s(10)="6|001111001100110100000111111011000101100011110001101000100011100"

Chars_s(11)="7|001111100100000000000000000000000000000000000000000011000001100"

Chars_s(12)="8|011111011000111100011011001000111000100010110001111000110011110"

Chars_s(13)="8|011111011000111100011011000000111000100010110001101000100011110"

Chars_s(14)="9|001110001000101100011110001101001110111111000001011001100111100"

Dim Chars_z(9)

Chars_z(0)="0|001100010010100001100001100001100001100001010010001100"

Chars_z(1)="1|000100011100000100000100000100000100000100000100011111"

Chars_z(2)="2|001110010001010001000001000010000100001000010001011111"

Chars_z(3)="3|001110010001010001000110000001000001010001010001001110"

Chars_z(4)="4|000010000110001010010010010010100010011111000010000111"

Chars_z(5)="5|011111010000010000011110010001000001010001010001001110"

Chars_z(6)="6|001111010001100000101110110001100001100001100001011110"

Chars_z(7)="7|011111010001010010000010000100000100000100000100000100"

Chars_z(8)="8|011110100001100001010010011110100001100001100001011110"

Chars_z(9)="9|011110100001100001100001100011011101000001100010111100"

Plugin xiaohaa=FindPicture5.LoadBMP(gu)

Plugin jianfei=WindowEx5.EnumWindowA(0,0,"WSGAME",65536)

Plugin xpfb= Sys.GetScDep()

kyu=UBound(jianfei)+1

iqqw=0

For kyu

    Plugin Window.Move(jianfei(iqqw), 0, 0)

    iqqw=iqqw+1

EndFor 

Plugin WindowEx5.SetWindowState(jianfei(0),1)

Delay 100

//Gosub 日期1

//Delay 200

//If NowTime>"2011-3-25 2:00:00"

//    MessageBox "试用时间以到，无法使用"

//    EndScript

//EndIf

VBSCall FindPic(0,0,640,480,"c:\gujias\fangyan.bmp",0.8,x,y)

If x>0 and y>0

Else 

    Gosub 长安

EndIf 

jm=0

For kyu

    Plugin Window.Active(jianfei(jm))

    Delay 500

    Gosub 开始

    jm=jm+1

EndFor 

jn4m=0

For kyu

    Plugin Window.Active(jianfei(jn4m))

    Delay 500

    Gosub 卖体