ckbt = Plugin.Window.GetText(dxck)
    If ckbt = "举报" Then 
        KeyDown 18, 1
        Delay 200
        KeyPress 115, 1
        Delay 200
        KeyUp 18, 1
    	Delay 1000
    	MoveTo Dx, Dy
        RightClick 1
        Delay 1000
    	MoveR 100, 270
    	LeftClick 1
        Delay 1000
    End If
    //-----------------
	Goto 确认删除
End If
//
If H2 = 492 Then 
	MoveR 100, 310
    LeftClick 1
    Delay 1000
        //举报---------------------------
    dxck = Plugin.Window.Foreground()
    ckbt = Plugin.Window.GetText(dxck)
    If ckbt = "举报" Then 
        KeyDown 18, 1
        Delay 200
        KeyPress 115, 1
        Delay 200
        KeyUp 18, 1
    	Delay 1000
    	MoveTo Dx, Dy
        RightClick 1
        Delay 1000
    	MoveR 100, 290
    	LeftClick 1
        Delay 1000
    End If
    //-----------------
	Goto 确认删除
End If
//
If H2 = 426 Then 
	MoveR 100, 270
    LeftClick 1
    Delay 1000
        //举报---------------------------
    dxck = Plugin.Window.Foreground()
    ckbt = Plugin.Window.GetText(dxck)
    If ckbt = "举报" Then 
        KeyDown 18, 1
        Delay 200
        KeyPress 115, 1
        Delay 200
        KeyUp 18, 1
    	Delay 1000
    	MoveTo Dx, Dy
        RightClick 1
        Delay 1000
    	MoveR 100, 250
    	LeftClick 1
        Delay 1000
    End If
    //-----------------
	Goto 确认删除
End If
//删除完毕
If H2 = 390 Then 
	Call Plugin.Msg.Tips("该组好友删除完毕!" & H2)
	MessageBox "该组好友删除完毕!"
	Goto 脚本结束
End If
//
Call Plugin.Msg.Tips("找不到删除选项" & H2)
Delay 5000
Goto 选择好友
//----------------------
Rem 确认删除
KeyDown 18, 1
Delay 200
KeyPress 79, 1
Delay 200
KeyUp 18, 1
Delay 1000
n = n + 1
Next
Rem 脚本结束
EndScript