MoveTo 0, 0 LeftClick 1 Sub a1() a = 0 b = 0 While a=0 FindPic 0,0,1366,768,"Attachment:\百度贴吧签到5.bmp",1,intX,intY If intX > 0 And intY > 0 Then a = 1 MoveTo intX-1, intY+20 LeftClick 1 Else FindPic 0,0,1366,768,"Attachment:\百度贴吧签到6.bmp",1,int2X,int2Y If int2X > 0 And int2Y > 0 Then a = 1 b = 1 End If End If Delay 1000 Wend While b=0 FindPic 0,0,1366,768,"Attachment:\百度贴吧签到3.bmp",1,intX,intY If intX > 0 And intY > 0 Then b = 1 End If Delay 1000 Wend Delay 1500 KeyPress "BackSpace", 1 Delay 1500 End Sub c = 0 d = 0 For 7 a = 0 While a=0 FindPic 0,0,1366,768,"Attachment:\百度贴吧签到1.bmp",1,intX,intY If intX > 0 And intY > 0 Then a = 1 MoveTo intX+100, intY+93+c Delay 500 LeftClick 1 c = c + 37.5 End If Delay 1000 Wend Call a1() Delay 1000 Next Delay 3000 MouseWheel -10 Delay 2000 For 13 a = 0 While a=0 FindPic 0,0,1366,768,"Attachment:\百度贴吧签到4.bmp",1,intX,intY If intX > 0 And intY > 0 Then a = 1 MoveTo intX-236, intY-483+d Delay 500 LeftClick 1 d = d + 37.5 End If Delay 1000 Wend Call a1() Delay 1000 Next a = 0 While a=0 FindPic 0,0,1366,768,"Attachment:\百度贴吧签到4.bmp",1,intX,intY If intX > 0 And intY > 0 Then a = 1 MoveTo intX+24, intY+13 Delay 500 LeftClick 1 End If Delay 1000 Wend