Rem 开始
pmx = Plugin.Sys.GetScRX()
pmy = Plugin.Sys.GetScRY()
Call Plugin.Msg.Tips("请打开你的QQ好友界面,并展开你的好友分组,准备完毕请点击鼠标滚轮键继续下一步")
ks = WaitClick()
If ks <> 32777 Then 
	Goto 开始
End If
rem 点击联系人
Call Plugin.Msg.Tips("请点击第一个联系人的头像")
DJ = WaitClick()
If DJ = 32769 Then 
	GetCursorPos Dx, Dy
	goto 删除好友
End If
Goto 点击联系人
Rem 删除好友
Call Plugin.Msg.Tips("3秒后开始,请稍等")
//---
n=1
//------------
For n
	
Rem 选择好友
MoveTo Dx, Dy
RightClick 1
Delay 1000
cd = Plugin.Window.Find("TXGuiFoundation", "TXMenuWindow")
cdcz = Plugin.Window.IsWindow(cd)
If cdcz = 0 Then 
	Call Plugin.Msg.Tips("找不到菜单")
	Delay 2000
	Goto 选择好友
End If
khqdx = Plugin.Window.GetClientRect(cd)
//下面这句用于分割字符串,将横坐标和纵坐标分成两个字符串
MyArray = Split(khqdx, "|")
//下面这句将字符串转换成数值
//W1 = Clng(MyArray(0))
//H1 = Clng(MyArray(1))
//W2 = Clng(MyArray(2))
H2 = Clng(MyArray(3))
//MsgBox w1 & "  " & w2 & "  " & h1 & "  " & h2
//-----------------------------------------------
If H2 = 470 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 = 202 Then 
	MoveR 100, 90
    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, 70
    	LeftClick 1
        Delay 1000
    End If
    //-----------------
	Goto 确认删除
End If
//
If H2 = 448 Then 
	MoveR 100, 290
    LeftClick 1
    Delay 1000
        //举报---------------------------
    dxck = Plugin.Window.Foreground()