//自定义接口说明
//            1、 【moshitaigu】太古模式（多选框），返回值：1为勾选   0不选
//            2、 【baojing】   掉线报警接口（多选框），返回值：1勾选    0不选
//            3、 【djy】    按键接口（下拉框）  返回值：可自定。本脚本为时间长短，详见子程序【游戏中】！
//            4、 另外本脚本附件为一个mp3，请将任意mp3格式歌曲改名为【1.mp3】，添加到附件即可！
//注意事项：
//            1、本脚本实现多开刷经验/贡献
//            2、脚本使用按键精灵9 bate2版本编写
//            3、使用时大号当房主，小号开启自动准备。在大号窗口中开启，否则出错！适用小窗口！
//关于:
//            作者Q：501934725
//                 完整版脚本请到此下载：http://smallboy.ys168.com
//初始设置
DimEnv moshitaigu, djy, baojing, dahaofangyuan,JB1,JB2,JB3,JB4,JB5,JB6
DimEnv h,i
//==========================================================主程序（必要检测）
Call 找窗口()
Delay 200
Call 窗口移动到左上角()
Delay 200
Call 获取定点()
Delay 200
//==========================================================主程序结束（必要必要检测）
//…………………………………………………………………………………
Call Plugin.Window.Active(JB1)
Delay 500
//==========================================================主程序
Rem 游戏开始
//检测游戏中
IfColor 692+Ux,586+Uy,"FBE7E1",0 Then
    Call 游戏中x()
Else
End If
Delay 100
//检测房间中
IfColor 725+Ux,15+Uy,"E7DEE1",0 Then
    Call 房间中x()
Else
End If
Delay 100
//检测房间（准备暗）
IfColor 725+Ux,15+Uy,"736F70",0 Then
    Call 房间中x()
Else
End If
//检测返回
Delay 100
IfColor 210+Ux,151+Uy,"F7FF",0 Then
    Call 返回x()
Else
End If
//奖励（暗）
Delay 100
IfColor 519+Ux, 745+Uy, "6337D", 0 Then
    Call 房间中x()
Else
End If
Delay 100
//检测房间（贡献暗）
IfColor 725+Ux, 16+Uy, "726D6F", 0 Then
    Call 房间中x()
End If
//掉线检测
If Form1.baojing.Value=1 Then 
    Call 掉线检测x()
End If
Delay 100
Goto 游戏开始
//===========================================================主程序结束
//子程序
Sub 找窗口()
    //下面这句是遍历符合窗口标题("记事本")的句柄保存到数组(HwndEx)里   
    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
            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