Rem bj

j = 1
While  j=1

    FindPic 0,0,1024,768,"Attachment:\磋.bmp",0.2,intX,intY
    If intX > 0 And intY > 0 Then
        j=1
        MoveTo intX, intY
        Delay 1000
        LeftClick 1
        Delay 5000
        //       关闭好友栏 	
        FindPic 0,0,1024,768,"Attachment:\好友.bmp",0.2,intX,intY
        If intX > 0 And intY > 0 Then
            MoveTo intX, intY
            Delay 1000
            LeftClick 1
            Delay 1000
        End If
    
        i = 1
        While i = 1
           
            FindPic 0,0,1024,768,"Attachment:\切磋.bmp",0.5,intX,intY
            If intX > 0 And intY > 0 Then
                i=1
                MoveTo intX, intY
                Delay 1000
                LeftClick 1
                Delay 1000
                FindPic 0,0,1024,768,"Attachment:\恢复.bmp",0.5,intX,intY
                If intX > 0 And intY > 0 Then
                    MoveTo intX, intY
                    Delay 1000
                    LeftClick 1
                    Delay 1000
           
                    FindPic 0,0,1024,768,"Attachment:\使用.bmp",0.5,intX,intY
                    If intX > 0 And intY > 0 Then
                        MoveTo intX, intY
                        Delay 1000
                        LeftClick 1
                        Delay 1000
                    End If
    
                End If
                FindPic 0,0,1024,768,"Attachment:\开始切磋.bmp",0.5,intX,intY
                If intX > 0 And intY > 0 Then
                    MoveTo intX, intY
                    Delay 1000
                    LeftClick 1
                    Delay 8000
                End If
                FindPic 0,0,1024,768,"Attachment:\跳过.bmp",0.5,intX,intY
                If intX > 0 And intY > 0 Then
                    MoveTo intX+5, intY+5
                    Delay 1000
                    LeftClick 1
                      Delay 200
                    MoveTo intX+80, intY-50
                    Delay 2000
                End If

                z = 1
                While z=1
                    FindPic 0,0,1024,768,"Attachment:\返回.bmp",0.5,intX,intY
                    If intX > 0 And intY > 0 Then
                        z=2
                        MoveTo intX, intY
                        Delay 1000
                        LeftClick 1
                        Delay 1000
                    End If
     
                Wend
                
                
                Else  i=2
            End If
    
        Wend
        FindPic 0,0,1024,768,"Attachment:\魏.bmp",0.5,intX,intY
        If intX > 0 And intY > 0 Then
            MoveTo intX, intY
            Delay 1000
            LeftClick 1
            Delay 1000
            i = 1
            While  i=1
                FindPic 0,0,1024,768,"Attachment:\切磋.bmp",0.5,intX,intY
                If intX > 0 And intY > 0 Then
                    i=1
                    MoveTo intX, intY
                    Delay 1000
                    LeftClick 1
                    Delay 1000
                    FindPic 0,0,1024,768,"Attachment:\恢复.bmp",0.5,intX,intY