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()