EndIf 
Return 
Sub 取消PK
    VBSCall FindPic(512+cx,397+cy,cx+587,cy+443,"Attachment:\选项_取消PK.bmp",0.8,pktx,pkty)
    If pktx>0 and pkty>0
        SaveMousePos 
        MoveTo cx+549,cx+422
        Delay 256
        LeftClick 1
        Delay 256
        RestoreMousePos 
    EndIf 
Return