1. 标记 开始
2. 令 pmx = Sys.GetScRX()
3. 令 pmy = Sys.GetScRY()
4. 调用 Msg.Tips("请打开你的QQ好友界面,并展开你的好友分组,准备完毕请点击鼠标滚轮键继续下一步")
5. 令 ks = （鼠标）等待按鼠标键
6. 如果 ks <> 32777 则
7.     跳转到标记 开始
8. 条件结束
9. 标记 点击联系人
10. 调用 Msg.Tips("请点击第一个联系人的头像")
11. 令 DJ = （鼠标）等待按鼠标键
12. 如果 DJ = 32769 则
13.     把当前鼠标所在的位置保存到 (Dx, Dy)
14.     跳转到标记 删除好友
15. 条件结束
16. 跳转到标记 点击联系人
17. 标记 删除好友
18. 调用 Msg.Tips("3秒后开始,请稍等")
19. 注释：---
20. 令 n = 1
21. 注释：------------
22. 循环 n 次
23.     标记 选择好友
24.     （鼠标）移动到 (Dx, Dy)
25.     （鼠标）右键单击, 1次
26.     延时 1000 毫秒
27.     令 cd = Window.Find("TXGuiFoundation","TXMenuWindow")
28.     令 cdcz = Window.IsWindow(cd)
29.     如果 cdcz = 0 则
30.         调用 Msg.Tips("找不到菜单")
31.         延时 2000 毫秒
32.         跳转到标记 选择好友
33.     条件结束
34.     令 khqdx = Window.GetClientRect(cd)
35.     注释：下面这句用于分割字符串,将横坐标和纵坐标分成两个字符串
36.     令 MyArray = Split(khqdx,"|")
37.     注释：下面这句将字符串转换成数值
38.     注释：W1 = Clng(MyArray(0))
39.     注释：H1 = Clng(MyArray(1))
40.     注释：W2 = Clng(MyArray(2))
41.     令 H2 = Clng(MyArray(3))
42.     注释：MsgBox w1 & " " & w2 & " " & h1 & " " & h2
43.     注释：-----------------------------------------------
44.     如果 H2 = 470 则
45.         （鼠标）相对移动 (100, 310)
46.         （鼠标）左键单击, 1次
47.         延时 1000 毫秒
48.         注释：举报---------------------------
49.         令 dxck = Window.Foreground()
50.         令 ckbt = Window.GetText(dxck)
51.         如果 ckbt = "举报" 则
52.             （键盘）按下 Alt 键
53.             延时 200 毫秒
54.             （键盘）按 F4 键, 1次
55.             延时 200 毫秒
56.             （键盘）弹起 Alt 键
57.             延时 1000 毫秒
58.             （鼠标）移动到 (Dx, Dy)
59.             （鼠标）右键单击, 1次
60.             延时 1000 毫秒
61.             （鼠标）相对移动 (100, 290)
62.             （鼠标）左键单击, 1次
63.             延时 1000 毫秒
64.         条件结束
65.         注释：-----------------
66.         跳转到标记 确认删除
67.     条件结束
68.     注释：
69.     如果 H2 = 202 则
70.         （鼠标）相对移动 (100, 90)
71.         （鼠标）左键单击, 1次
72.         延时 1000 毫秒
73.         注释：举报---------------------------
74.         令 dxck = Window.Foreground()
75.         令 ckbt = Window.GetText(dxck)
76.         如果 ckbt = "举报" 则
77.             （键盘）按下 Alt 键
78.             延时 200 毫秒
79.             （键盘）按 F4 键, 1次
80.             延时 200 毫秒
81.             （键盘）弹起 Alt 键
82.             延时 1000 毫秒
83.             （鼠标）移动到 (Dx, Dy)
84.             （鼠标）右键单击, 1次
85.             延时 1000 毫秒
86.             （鼠标）相对移动 (100, 70)
87.             （鼠标）左键单击, 1次
88.             延时 1000 毫秒
89.         条件结束
90.         注释：-----------------
91.         跳转到标记 确认删除
92.     条件结束
93.     注释：
94.     如果 H2 = 448 则
95.         （鼠标）相对移动 (100, 290)
96.         （鼠标）左键单击, 1次
97.         延时 1000 毫秒
98.         注释：举报---------------------------
99.         令 dxck = Window.Foreground()
100.         令 ckbt = Window.GetText(dxck)