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