SayString( Mid(ThingNumber,i+1,1))
        i = i + 1
        Delay 5
    Next
    Delay 250
    LeftClick 1
    Delay 400
    KeyPress 8, 10
    i=0
    For len(ThingPrice)
        SayString( Mid(ThingPrice,i+1,1))
        i = i + 1
        Delay 5
    Next
    Delay 400
    MoveTo x+308, y+488
    Delay 100
    LeftClick 1
    Delay 400
 

End Function

Function getEmail()
   KeyPress "Esc", 1
   Delay 1000
    tempF = true
    getEmailflag = 0
    While tempF
        Delay 1000
        FindPic x+322,y+480,x+476,y+563,"Attachment:\有邮件.bmp",0.9,intX,intY
        If intX > 0 And intY > 0 Then
            MoveTo intX, intY
            Delay 255
            LeftClick 1
            Delay 699
            MoveTo x+417, y+440
            Delay 208
            LeftClick 1
            Delay 274
            MoveTo x+304,y+ 467
            Delay 712
            LeftClick 1
            Delay 10000
            KeyDown "Esc", 1
            Delay 164
            KeyUp "Esc", 1
            Delay 500
            '防空邮件死循环
            getEmailflag = getEmailflag + 1
            If getEmailflag > 4 Then 
            	tempF=false   
            End If
        Else
            tempF=false
        End If
        
    Wend
    
End Function