Hao=DropList{"一号":"1"|"二号":"2"|"三号":"3"|"四号":"4"|"五号":"5"|"六号":"6"}=1 "请选择受花者（默认一号）"
UserVar B=99 "输入需要送花的数量（Z+X总数）"
//==========================================系统限制
OS = Plugin.Sys.GetOSType()
If OS = 5 Then 
    Goto 检测桌面分辨率
Else 
    MessageBox "抱歉，检测到您的系统不支持本脚本（本脚本仅支持win7操作系统，敬请谅解！）"
    EndScript
End If
Rem 检测桌面分辨率
//==============================================窗口控制区
//延时提示
Delay 500
MessageBox "点击确定后两秒内点击QQ炫舞窗口"
Delay 2000
//得到当前可以发送按键消息的窗口
Jubing = Plugin.Window.GetKeyFocusWnd()
//==============================================窗口检测完毕
Rem 从头开始
//获得窗口起始点坐标
Rect = Plugin.Window.GetClientRect(Jubing)
Dim MyArray
MyArray=Split(Rect,"|")
Ux=CLng(MyArray(0))
Uy = CLng(MyArray(1))
//检测是否背景
IfColor 1+Ux, 765+Uy, "0", 0 Then
    Goto 继续1
Else 
    KeyPress "F12", 1
End If
Dim n
n = 0
Rem 继续1
//检测是否游戏中
IfColor 886+Ux, 750+Uy, "FBE7E2", 0 Then
    Goto 继续2
Else 
    MessageBox "检测到已离开对局或未在对局中开启。点击确定后脚本将停止！如有需要请按启动热键重新启动！"
    EndScript
End If
Rem 继续2
//开始送花操作
KeyPress "Z", 1
KeyPress "X", 1
//一号
If Hao = 1 Then 
    MoveTo 459+Ux, 315+Uy
    Delay 5
    LeftDoubleClick 1
    Delay 5
End If
//二号
If Hao = 2 Then 
    MoveTo 459+Ux, 343+Uy
    Delay 5
    LeftDoubleClick 1
    Delay 5
End If
//三号
If Hao = 3 Then 
    MoveTo 459+Ux, 371+Uy
    Delay 5
    LeftDoubleClick 1
    Delay 5
End If
//四号
If Hao = 4 Then 
    MoveTo 459+Ux, 399+Uy
    Delay 5
    LeftDoubleClick 1
    Delay 5
End If
//五号
If Hao = 5 Then 
    MoveTo 459+Ux, 427+Uy
    Delay 5
    LeftDoubleClick 1
    Delay 5
End If
//六号
If Hao = 6 Then 
    MoveTo 459+Ux, 455+Uy
    Delay 5
    LeftDoubleClick 1
    Delay 5
End If
//送花结束
n = n + 1
If n = B Then 
Delay 300
MessageBox "已送花朵："&B
EndScript
Else 
Goto 继续1
End If

//======================================程序结束