Else
        Delay 500
        KeyPress "0", 2
        Delay 500
    End If
    Rem 加蓝
    FindColorEx 144,80,148,85,"876107",1,0.8,intX,intY//蓝
    If intX > 0 And intY > 0 Then 
    Else 
        Delay 500
        KeyPress "9", 2
        Delay 500
    End If
    IfColor 1020,563,"FFFFFF",0 Then
        Rem  没有家族传送符
        FindCenterColor 989,572,1024,594,"FFFFFF",intX,intY
        If intX > 0 And intY > 0 Then
        Else
            Call Plugin.Media.Beep(523, 200)
            Call Plugin.Msg.Tips("[F10] 家族传送符>=1")
            Goto 没有家族传送符
        End If
    End If
    FindPic 0,0,1400,900,"Attachment:\组队-接受.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then 
        Call Plugin.Bkgnd.LeftClick(qq, 573-3,427-22)
    End If
End Sub
Sub 验证码
    MoveTo 16, 148
    dm_ret = dm.FindStr(0, 0, 1031, 794, "验证码", "ff0000-000000", 1, x, y)
    If x > 0 and y > 0 Then
        Delay 2000
        dm_ret = dm.FindStr(0, 0, 1031, 794, "验证码", "ff0000-000000", 1, yzx, yzy)
        If yzx > 0 and yzy > 0 Then 
            If yanzheng = 0 Then 
                Call 答题
            Else 
                Call 蜂鸣器
            End If
        End If
    End If
End Sub
Sub 蜂鸣器
    Rem 蜂鸣
    Call Plugin.Media.Beep(523, 200)
    Call Plugin.Media.Beep(523, 200)
    Call Plugin.Msg.Tips("验证码")
    Goto 蜂鸣
End Sub
Sub 答题
    //192.168.3.13----192.168.3.110
    Rem 答案不对
    panbing=dm.FaqCapture(yzx - 115, yzy - 137, yzx + 179, yzy + 19, 100, 0, 0)
    daai = dm.FaqSend("192.168.3.110:12345", panbing, 1, 1000 * 60)
    If daai = "OK:1" Then 
        Delay 500
        Call Plugin.Bkgnd.LeftClick(qq, yzx+35, yzy-48-22)
    ElseIf daai = "OK:2" Then
        Delay 500
        Call Plugin.Bkgnd.LeftClick(qq, yzx+98, yzy-48-22)
    ElseIf daai = "OK:3" Then
        Delay 500
        Call Plugin.Bkgnd.LeftClick(qq, yzx+33, yzy-50)
    ElseIf daai = "OK:4" Then
        Delay 500
        Call Plugin.Bkgnd.LeftClick(qq, yzx+98, yzy-50)
    Else 
        Goto 答案不对
    End If
End Sub
//--自动喊话
Sub 自动喊话
    a=1
    Rem 喊话
    Call 回车
    a=a+1
    SayString hanhua
    Delay 200
    SayString a
    Delay 200
    KeyPress "Enter", 1
    Call 检测回车
    Delay 1000 * 15
    Goto 喊话
End Sub
Sub 回车
    Rem Enter
    IfColor 19, 723, "B6F2FF", 0 Then
        Call Plugin.Bkgnd.LeftDoubleClick(QQ, 56 - 3, 723 - 22)
        Delay 200
    Else 
        Delay 200
        KeyPress "Enter", 1
        Delay 200
        Goto Enter
    End If
End Sub
Sub 检测回车
    IfColor 380,721,"0048B4",0 Then