FindPic(0,0,1440,900,"Attachment:\返回.bmp",0.9,intX,intY)
MoveTo intX+20,intY+15
LeftClick 1
Delay 1000
For 5
    VBSCall FindPic(0,0,1440,900,"Attachment:\版.bmp",0.9,intX,intY)
    Rem 2
    IfColor intX-434,intY+80,7188a1,0
        Goto 1
    Else 
        Goto 2
    EndIf 
    Rem 1
    VBSCall FindPic(0,0,1440,900,"Attachment:\新建角色.bmp",0.9,intX,intY)
    MoveTo intX+50,intY+20
    LeftClick 1
    Delay 500
    VBSCall FindPic(0,0,1440,900,"Attachment:\侠客.bmp",0.9,intX,intY)
    MoveTo intX+50,intY+20
    LeftClick 1
    Delay 500
    //清空随机种子数
    Rem start
    Randomize
    //得到 1~99999999 之间的一个随机数
    x = Int((99999999 * Rnd) + 1)
    //判断这个数字是否8位数字，如果不是8位数字，就重新生成
    If x<10000000
        Goto start
    EndIf 
    SayString x
    VBSCall FindPic(0,0,1440,900,"Attachment:\建立.bmp",0.9,intX,intY)
    MoveTo intX+50,intY+20
    LeftClick 1
    Delay 1000
    LeftClick 1
    Delay 1000
    VBSCall FindPic(0,0,1440,900,"Attachment:\版.bmp",0.9,intX,intY)
    Rem 5
    IfColor intX-231,intY+238,e3e3e3,0
        MoveTo intX-231,intY+238
        LeftClick 1
    Else 
        Goto 5
    EndIf 
    Delay 200
    MoveTo intX-793,intY+67
    LeftClick 1
    Delay 200
    MoveTo intX-413,intY+439
    LeftClick 1
    Delay 200
EndFor