//五号
    If Form1.Hao.ListIndex = 5 Then 
        MoveTo 358+Ux, 327+Uy
        Delay 5
        LeftDoubleClick 1
        Delay 5
    End If
    //六号
    If Form1.Hao.ListIndex = 6 Then 
        MoveTo 358+Ux, 347+Uy
        Delay 5
        LeftDoubleClick 1
        Delay 5
    End If
    //统计次数
    Cs = Cs + 1
    剩余次数 = Form1.B.Text + 1 - Cs
    TracePrint "小窗口"&剩余次数
    Call Plugin.Window.SetText(JB1,"已送" & Cs-1 & "朵花！   还剩" & 剩余次数& "朵")
    If 剩余次数=0 Then  
        Delay 300
        time2 = Plugin.Sys.GetTime()
        MessageBox Form1.B.Text & "朵花已送完"& vbcr & "总共耗时：" & time2 - time1 & "毫秒"
        EndScript
    End If
End Sub
Event Form1.Button2.Click
    Call RunApp("http://smallboy.ys168.com/")
End Event
Event Form1.Button1.Click
    Call RunApp("http://user.qzone.qq.com/501934725/main")
End Event
Event Form1.Load
    //利用网页源文件得到网络版本，
    //该方法得自论坛教程：http://bbs.anjian.com/forum.php?mod=viewthread&tid=274894
    源内容 = Lib.网络.获得网页源文件("http://smallboy.ys168.com")
    获取型号 = Split(源内容, "【无忧送花版本】：")
    型号 = split(获取型号(1), "|")
    TracePrint 型号(0)
    Form1.Timer1.Interval = 1000
End Event
Event Form1.Timer1.Timer
    Form1.Label9.Caption="网络版本：Lv"&型号(0)
    If 型号(0) <= 3.0 Then 
        Form1.Label10.Caption="恭喜您，脚本已是最新版！(*^__^*) "
    Else 
        Form1.Label10.Caption ="☆发现新版本，建议及时更新☆..o(︶︿︶)o "
    End If    
End Event
Event Form1.Button3.Click
    源内容 = Lib.网络.获得网页源文件("http://smallboy.ys168.com")
    获取源码 = Split(源内容, "无忧送花源码】：")
    源码 = split(获取源码(1), "|")
    TracePrint 源码(0)
    Call RunApp(源码(0))
End Event
Sub OnScriptExit()
    Call Plugin.Window.SetText(JB1,"QQ炫舞")
    MessageBox "感谢您对无忧的支持！脚本已停止！"
End Sub