KeyPress "R", 1
    Delay 6000
    KeyPress "R", 1
    Delay 6000
    KeyPress "R", 1
    Delay 6000
    KeyPress "R", 1
    Delay 6000
    KeyPress "R", 1
    Delay 6000
    KeyPress "R", 1
    Delay 6000
    KeyPress "R", 1
    Delay 6000
    KeyPress "R", 1
    Delay 6000
    KeyPress "R", 1
    Delay 6000
    KeyPress "R", 1
    Delay 6000
    KeyPress "R", 1
    Delay 6000
    KeyPress "R", 1
    Delay 6000
    KeyPress "R", 1
    Delay 6000
    KeyPress "R", 1
         Delay 100
     Goto A
 End Sub
 
Sub 线程2()
         
    Rem B
     FindPic 0, 0,650, 480,"Attachment:\666.bmp",0.9,intX,intY
 If intX > 0 And intY > 0 Then
        KeyPress "R", 1
         Delay 4000
 End If
     Delay 200
     Goto B
 End Sub
 
Sub 线程3()
         i=0
         While i=0
     FindPic 0,0,1024,768,"Attachment:\110.bmp",0.8,intX,intY
 If intX > 0 And intY > 0 Then 
i=1        

            Delay 100
             MoveTo 876, 313
             Delay 100
             LeftClick 1
             Delay 2000
             MoveTo 348, 202
             Delay 100
             LeftClick 1
             Delay 30000
             MoveTo 876, 313
             Delay 100
             LeftClick 1
             Delay 2000
             MoveTo 348, 202
             Delay 100
             LeftClick 1
 End If
 Wend
 

End Sub
 
Sub 线程4()
     Rem D
 FindPic 0,0,1024,768,"Attachment:\444.bmp",0.9,intX,intY
 If intX > 0 And intY > 0 Then
       
         Delay 1000
 RestartScript
 End If
     Delay 3000
     Goto D
 End Sub