ys=200 "挤房时间"
UserVar shi=4000 "等待点击要挤房间的时间(你选择房间速度快可以适当改小)"
UserVar 分辨率=DropList{"1024*768":0|"1280*1024":1}=0 "你电脑屏幕的分辨率（电脑分辨率对不上无法正常运行）"
UserVar 设置=DropList{"连续挤同一个房间":0|"连续挤几个房间":1}=0 "挤房间模式"
UserVar 游戏=DropList{"是":0|"否":1}=1 "是否开启QQ游戏窗口置前!(开启后其他程序不能操作)"
If 分辨率=0 Then
hx = Plugin.Window.Find(0, "QQ游戏")
sWindow = Plugin.Window.IsWindow(hx)
If sWindow = 1 Then
        Call Plugin.Window.Max(hx)
        If 游戏=0 Then
        Call Plugin.Window.Top(hx, 0)
End If

        If 设置=0 Then
            Call jjm()
End If
        If 设置=1 Then
        Call kaishi()
End If
Else    
    MessageBox "QQ游戏未打开，停止运行！"
    EndScript
End If
End If
If 分辨率=1 Then
hx = Plugin.Window.Find(0, "QQ游戏")
sWindow = Plugin.Window.IsWindow(hx)
If sWindow = 1 Then
        Call Plugin.Window.Max(hx)
    Call Plugin.Window.Top(Hx, 0)
        If 设置=0 Then
        Call jin()
End If
        If 设置=1 Then
        Call kaisha()

End If
Else    
    MessageBox "QQ游戏未打开，停止运行！"
    EndScript
End If
End If
EndScript
Sub jjm()
        MessageBox "在等待要挤房间的时间内，请点击下你要挤的房间！！"
    Delay shi
    hl = Plugin.Window.Find(0, "QQ游戏")
XY = Plugin.Bkgnd.FindColor(Hl, 0, 50, 1024, 768, "E7A441")
MyArray = Split(XY, "|")
X = Clng(MyArray(0)): Y = Clng(MyArray(1))
Rem llk
        ho = Plugin.Window.Find(0, "QQ游戏")
    Delay ys

Call Plugin.Bkgnd.LeftClick(Hx, X,Y)
h = Plugin.Window.Find(0, "信息提示")
    Delay ys

    Call Plugin.Bkgnd.KeyPress(h, 27)
    Delay 50
    GetColor = Plugin.Bkgnd.GetPixelColor(ho, 466, 135)
    If GetColor = "22B56B" Then
            MessageBox "已挤进你所需的房间！！将停止运行"
        EndScript
        Else
        End If
Goto llk
End Sub
Sub kaishi()  
        MessageBox "在等待要挤房间的时间内，请点击下你要挤的房间！！"
    Delay shi
    hl = Plugin.Window.Find(0, "QQ游戏")
BF = Plugin.Bkgnd.FindColor(Hl, 0, 50, 1024, 768, "E7A441")
sx = Split(BF, "|")
B = Clng(sx(0)): F = Clng(sx(1))
Rem llk
        ho = Plugin.Window.Find(0, "QQ游戏")
    Delay ys

Call Plugin.Bkgnd.LeftClick(Ho, B,F)
h = Plugin.Window.Find(0, "信息提示")
    Delay ys

    Call Plugin.Bkgnd.KeyPress(h, 27)
    Delay 50
    GetColor = Plugin.Bkgnd.GetPixelColor(ho, 466, 135)
    If GetColor = "22B56B" Then
            MessageBox "已挤进你所需的房间！！将停止运行"
        Call jx()
        Else
        End If
Goto llk
    End Sub
Sub jx()
            MessageBox "继续挤房间,请在等待要挤房间的时间内,点击下你要挤的房间，否则请按结束键停止运行!"
    Delay shi
                hk = Plugin.Window.Find(0, "QQ游戏")
XY = Plugin.Bkgnd.FindColor(hk, 0, 50, 1024, 768, "E7A441")
MyArray = Split(XY, "|")