1.         如果 ckbt = "举报" 则
  2.             （键盘）按下 Alt 键
  3.             延时 200 毫秒
  4.             （键盘）按 F4 键, 1次
  5.             延时 200 毫秒
  6.             （键盘）弹起 Alt 键
  7.             延时 1000 毫秒
  8.             （鼠标）移动到 (Dx, Dy)
  9.             （鼠标）右键单击, 1次
  10.             延时 1000 毫秒
  11.             （鼠标）相对移动 (100, 270)
  12.             （鼠标）左键单击, 1次
  13.             延时 1000 毫秒
  14.         条件结束
  15.         注释：-----------------
  16.         跳转到标记 确认删除
  17.     条件结束
  18.     注释：
  19.     如果 H2 = 492 则
  20.         （鼠标）相对移动 (100, 310)
  21.         （鼠标）左键单击, 1次
  22.         延时 1000 毫秒
  23.         注释：举报---------------------------
  24.         令 dxck = Window.Foreground()
  25.         令 ckbt = Window.GetText(dxck)
  26.         如果 ckbt = "举报" 则
  27.             （键盘）按下 Alt 键
  28.             延时 200 毫秒
  29.             （键盘）按 F4 键, 1次
  30.             延时 200 毫秒
  31.             （键盘）弹起 Alt 键
  32.             延时 1000 毫秒
  33.             （鼠标）移动到 (Dx, Dy)
  34.             （鼠标）右键单击, 1次
  35.             延时 1000 毫秒
  36.             （鼠标）相对移动 (100, 290)
  37.             （鼠标）左键单击, 1次
  38.             延时 1000 毫秒
  39.         条件结束
  40.         注释：-----------------
  41.         跳转到标记 确认删除
  42.     条件结束
  43.     注释：
  44.     如果 H2 = 426 则
  45.         （鼠标）相对移动 (100, 270)
  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, 250)
  62.             （鼠标）左键单击, 1次
  63.             延时 1000 毫秒
  64.         条件结束
  65.         注释：-----------------
  66.         跳转到标记 确认删除
  67.     条件结束
  68.     注释：删除完毕
  69.     如果 H2 = 390 则
  70.         调用 Msg.Tips("该组好友删除完毕!" & H2)
  71.         弹出窗口 "该组好友删除完毕!"
  72.         跳转到标记 脚本结束
  73.     条件结束
  74.     注释：
  75.     调用 Msg.Tips("找不到删除选项" & H2)
  76.     延时 5000 毫秒
  77.     跳转到标记 选择好友
  78.     注释：----------------------
  79.     标记 确认删除
  80.     （键盘）按下 Alt 键
  81.     延时 200 毫秒
  82.     （键盘）按 O 键, 1次
  83.     延时 200 毫秒
  84.     （键盘）弹起 Alt 键
  85.     延时 1000 毫秒
  86.     令 n = n + 1
  87. 循环结束
  88. 标记 脚本结束
  89. 脚本停止运行