1.         延时 5 毫秒
  2.     条件结束
  3.     注释：六号
  4.     如果 Form1.Hao.ListIndex = 6 则
  5.         （鼠标）移动到 (459 + Ux, 455 + Uy)
  6.         延时 5 毫秒
  7.         （鼠标）左键双击, 1次
  8.         延时 5 毫秒
  9.     条件结束
  10.     注释：送花结束
  11. 条件结束
  12. 如果 Form1.chuangkou.ListIndex = 2 则
  13.     注释：一号
  14.     如果 Form1.Hao.ListIndex = 1 则
  15.         （鼠标）移动到 (358 + Ux, 247 + Uy)
  16.         延时 5 毫秒
  17.         （鼠标）左键双击, 1次
  18.         延时 5 毫秒
  19.     条件结束
  20.     注释：二号
  21.     如果 Form1.Hao.ListIndex = 2 则
  22.         （鼠标）移动到 (358 + Ux, 267 + Uy)
  23.         延时 5 毫秒
  24.         （鼠标）左键双击, 1次
  25.         延时 5 毫秒
  26.     条件结束
  27.     注释：三号
  28.     如果 Form1.Hao.ListIndex = 3 则
  29.         （鼠标）移动到 (358 + Ux, 287 + Uy)
  30.         延时 5 毫秒
  31.         （鼠标）左键双击, 1次
  32.         延时 5 毫秒
  33.     条件结束
  34.     注释：四号
  35.     如果 Form1.Hao.ListIndex = 4 则
  36.         （鼠标）移动到 (358 + Ux, 307 + Uy)
  37.         延时 5 毫秒
  38.         （鼠标）左键双击, 1次
  39.         延时 5 毫秒
  40.     条件结束
  41.     注释：五号
  42.     如果 Form1.Hao.ListIndex = 5 则
  43.         （鼠标）移动到 (358 + Ux, 327 + Uy)
  44.         延时 5 毫秒
  45.         （鼠标）左键双击, 1次
  46.         延时 5 毫秒
  47.     条件结束
  48.     注释：六号
  49.     如果 Form1.Hao.ListIndex = 6 则
  50.         （鼠标）移动到 (358 + Ux, 347 + Uy)
  51.         延时 5 毫秒
  52.         （鼠标）左键双击, 1次
  53.         延时 5 毫秒
  54.     条件结束
  55. 条件结束
  56. 令 n = n + 1
  57. 如果 n = Form1.B.Text 则
  58.     延时 300 毫秒
  59.     弹出窗口 "已送满" & Form1.B.Text & "朵花"
  60.     脚本停止运行
  61. 否则
  62.     跳转到标记 继续1
  63. 条件结束
  64. 注释：================子程序
  65. 子程序 找窗口()
  66.     注释：下面这句是遍历符合窗口标题("记事本")的句柄保存到数组(HwndEx)里
  67.     令 HwndEx = Window.Search("QQ炫舞")
  68.     注释：下面这句用于分割字符串,将获得的句柄组分割
  69.     令 MyArray = Split(HwndEx,"|")
  70.     如果 UBound(MyArray) >= 0 则
  71.         令 h = 0
  72.         令 i = 0
  73.         令 shu = UBound(MyArray)
  74.         循环 UBound(MyArray) 次
  75.             注释：下面将字符串转换成数值
  76.             令 h = h + 1
  77.             如果 h = 1 则
  78.                 令 JB1 = MyArray(i)
  79.             条件结束
  80.         循环结束
  81.     条件结束
  82. 子程序结束