MoveTo 449,502
        Delay 100
        LeftClick 1
        Delay 1000
        Goto 22
    EndIf 
ElseIf Var1=4
    Rem 23
    VBSCall FindPic(0,0,1023,767,"Attachment:\19.bmp",0.6,intX,intY)
    If intX>0 and intY>0
        MoveTo intX ,intY
    Else 
        MoveTo 449,502
        Delay 100
        LeftClick 1
        Delay 1000
        Goto 23
    EndIf 
ElseIf Var1=5
    Rem 24
    VBSCall FindPic(0,0,1023,767,"Attachment:\25.bmp",0.8,intX,intY)
    If intX>0 and intY>0
        MoveTo intX ,intY
    Else 
        MoveTo 449,502
        Delay 100
        LeftClick 1
        Delay 1000
        Goto 24
    EndIf 
EndIf 
RightClick 1
Rem 25
IfColor 524,583,10aaef,0
    MoveTo 524 , 583
Else 
    Goto 25
EndIf 
LeftClick 1
Delay 100
MoveTo 450,657
Delay 200
LeftClick 1
Rem mm
VBSCall FindPic(0,0,1023,767,"Attachment:\tq.bmp",0.7,intX,intY)
If intX>0 and intY>0
    MoveTo intX ,intY
    RightClick 1
    Rem 99
    IfColor 524,583,10aaef,0
        MoveTo 524 , 583
    Else 
        Goto 99
    EndIf 
    LeftClick 1
    Delay 100
    MoveTo 450,657
    Delay 200
    LeftClick 1
Else 
    VBSCall FindPic(0,0,1023,767,"Attachment:\TQ包.bmp",0.7,intX,intY)
    If intX>0 and intY>0
        MoveTo intX , intY
        RightClick 1
        Rem pp
        MoveTo 451,656
        IfColor 451,656,1ba2ec,0
            Delay 200
            LeftClick 1
            Delay 500
            LeftClick 1
        Else 
            Goto pp
        EndIf 
    Else 
        MoveTo 449,502
        Delay 100
        LeftClick 1
        Delay 1000
        Goto mm
    EndIf 
    Rem 28
    VBSCall FindPic(0,0,1023,767,"Attachment:\幸运草.bmp",0.6,intX,intY)
    If intX>0 and intY>0
        MoveTo intX ,intY
        RightClick 1
        Delay 200
        Rem 29
        IfColor 524,583,10aaef,0
            MoveTo 524 , 583
            LeftClick 1
            MoveTo 450,657
            Delay 200
            LeftClick 1
        Else 
            Goto 29
        EndIf 
    Else 
        MoveTo 449,502
        Delay 200