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