Delay 100 LeftDoubleClick 1 Delay 200 Rem dj IfColor x - 2, y - 2, GetColor, 0 Then LeftDoubleClick 1 Delay 200 foncuo = fancuo + 1 If fancuo < 50 Then Goto dj End If End If End Sub Sub Shuaxin() Rem sx FindPic 0, 0, 1024, 768, "Attachment:\baoguo.bmp", 0.9, intX, intY If intX > 0 Then MoveTo intX+110,intY+424 Delay 300 LeftClick 1 Else Goto sx Delay 300 End If Delay 3000 End Sub Sub openbg() MoveTo 838, 735 Delay 500 LeftClick 1 Delay 500 End Sub