1.         条件结束
  2.         注释：五号
  3.         如果 Form1.Hao.ListIndex = 5 则
  4.             （鼠标）移动到 (358 + Ux, 327 + Uy)
  5.             延时 5 毫秒
  6.             （鼠标）左键双击, 1次
  7.             延时 5 毫秒
  8.         条件结束
  9.         注释：六号
  10.         如果 Form1.Hao.ListIndex = 6 则
  11.             （鼠标）移动到 (358 + Ux, 347 + Uy)
  12.             延时 5 毫秒
  13.             （鼠标）左键双击, 1次
  14.             延时 5 毫秒
  15.         条件结束
  16.         注释：统计次数
  17.         令 Cs = Cs + 1
  18.         令 剩余次数 = Form1.B.Text + 1 - Cs
  19.         向调试窗口输出："小窗口" & 剩余次数
  20.         调用 Window.SetText(JB1,"已送" & Cs - 1 & "朵花！ 还剩" & 剩余次数 & "朵")
  21.         如果 剩余次数 = 0 则
  22.             延时 300 毫秒
  23.             令 time2 = Sys.GetTime()
  24.             弹出窗口 Form1.B.Text & "朵花已送完" & vbcr & "总共耗时：" & time2 - time1 & "毫秒"
  25.             脚本停止运行
  26.         条件结束
  27.     子程序结束
  28.     Event(Form1.Button2.Click)
  29.     调用 启动程序或打开文件 "http://smallboy.ys168.com/"
  30.     (语句无法识别，可能有错误): End Event
  31.     Event(Form1.Button1.Click)
  32.     调用 启动程序或打开文件 "http://user.qzone.qq.com/501934725/main"
  33.     (语句无法识别，可能有错误): End Event
  34.     Event(Form1.Load)
  35.     注释：利用网页源文件得到网络版本，
  36.     注释：该方法得自论坛教程：http://bbs.anjian.com/forum.php?mod=viewthread&tid=274894
  37.     令 源内容 = （命令库 网络）获得网页源文件("http://smallboy.ys168.com")
  38.     令 获取型号 = Split(源内容,"【无忧送花版本】：")
  39.     令 型号 = split(获取型号(1),"|")
  40.     向调试窗口输出：型号(0)
  41.     令 Form1.Timer1.Interval = 1000
  42.     (语句无法识别，可能有错误): End Event
  43.     Event(Form1.Timer1.Timer)
  44.     令 Form1.Label9.Caption = "网络版本：Lv" & 型号(0)
  45.     如果 型号(0) <= 3.0 则
  46.         令 Form1.Label10.Caption = "恭喜您，脚本已是最新版！(*^__^*) "
  47.     否则
  48.         令 Form1.Label10.Caption = "☆发现新版本，建议及时更新☆..o(︶︿︶)o "
  49.     条件结束
  50.     (语句无法识别，可能有错误): End Event
  51.     Event(Form1.Button3.Click)
  52.     令 源内容 = （命令库 网络）获得网页源文件("http://smallboy.ys168.com")
  53.     令 获取源码 = Split(源内容,"无忧送花源码】：")
  54.     令 源码 = split(获取源码(1),"|")
  55.     向调试窗口输出：源码(0)
  56.     调用 启动程序或打开文件 源码(0)
  57.     (语句无法识别，可能有错误): End Event
  58.     子程序 OnScriptExit()
  59.         调用 Window.SetText(JB1,"QQ炫舞")
  60.         弹出窗口 "感谢您对无忧的支持！脚本已停止！"
  61.     子程序结束