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