/*接口：
            【Hao】下拉框；1号~6号分别对应1—6
            【B】输入框； 送花的数量！
             ★9.51.11790正式版编写！★
更新：
            1、修复报错、支持win8!   2013.2.16
关于:  
            作者Q：501934725  
            完整版脚本请到此下载：http://smallboy.ys168.com 
*/
//Cs用来计数
Cs = 0
Call 找窗口()
Call 确定起始点坐标()
//用来得到开始与结束的时间差（运行了多少时间）
time1 = Plugin.Sys.GetTime()
//===============================================================主程序
Rem 主程序
If dx = 1024 Then 
    Call 大窗口()
End If
If dx = 800 Then 
    Call 小窗口()
End If
Goto 主程序
//===============================================================子程序
Sub 找窗口() 
    //利用遍历窗口的方法找到游戏窗口并把找到的第一个窗口设为操作窗口
    HwndEx = Plugin.Window.Search("QQ炫舞")
    MyArray = Split(HwndEx, "|")
    If UBound(MyArray)>=0 Then    
        h = 0
        i = 0 
        shu=UBound(MyArray)  
        For UBound(MyArray)    
            h = h + 1
            If h = 1 Then 
                JB1=MyArray(i)
            End If
            /*该游戏只需要得到一个窗口即可，如果要得到多个相同标题的游戏可以添加以下代码。
            JB1为第一个窗口，JB2为第二个，以此类推！
            If h = 2 Then 
                JB2=MyArray(i+1)
            End If
            If h = 3 Then 
                JB3=MyArray(i+2)
            End If
            If h = 4 Then 
                JB4=MyArray(i+3)
            End If
            If h = 5 Then 
                JB5=MyArray(i+4)
            End If
            If h = 6 Then 
                JB6=MyArray(i+5)
            End If*/
        Next  
    End If
    TracePrint JB1
    If JB1 = "" Then 
        MessageBox "没有找到炫舞窗口，请确认炫舞窗口标题为【QQ炫舞】"
        EndScript 
    End If
End Sub
Sub 确定起始点坐标
    //获得窗口起始点坐标,并利用相对坐标法得到各个所需要的点
    Rect = Plugin.Window.GetClientRect(JB1)
    Dim MyArrayh
    MyArrayh=Split(Rect,"|")
    Ux=CLng(MyArrayh(0))
    Uy = CLng(MyArrayh(1))
    dx=CLng(MyArrayh(2))
    TracePrint Ux
    TracePrint Uy
    //dx=800小窗口
    //dx1024大窗口
End Sub
Sub 大窗口()
    TracePrint "我是大窗口"
    //检测背景
    IfColor 0 + Ux, 767 + Uy, "0", 0 Then
    Else 
        KeyPress "F12", 1
    End If
    //对局内检测（蓝）
    IfColor 915 + Ux, 147 + Uy, "FFFBF3", 0 Then
    Else 
        IfColor 919+Ux,150+Uy,"FAC1FD",0 Then
        Else 
            MessageBox "检测到已离开对局或未在对局中开启。点击确定后脚本将停止！如有需要请按启动热键重新启动！"
            EndScript 
        End If
    End If
    //开始送花操作
    KeyPress "Z", 1
    KeyPress "X", 1
    MoveTo 459+Ux, 315+Uy
    //一号
    If Form1.Hao.ListIndex = 1 Then 
        MoveTo 459+Ux, 315+Uy