x = Clng(MyArray(0)): Y = Clng(MyArray(1))
    Rem wu
                    ha = Plugin.Window.Find(0, "QQ游戏")
    Delay ys
Call Plugin.Bkgnd.LeftClick(ha,x,y)
    hf = Plugin.Window.Find(0, "信息提示")
    Delay ys
    Call Plugin.Bkgnd.KeyPress(hf, 27)
    Delay 50
        Ge = Plugin.Bkgnd.GetPixelColor(ha, 466, 135)
    If Ge = "22B56B" Then
            MessageBox "已挤进你所需的房间！！"
        Call liao()
        Else
        End If
    Goto wu
End Sub
Sub liao()
MessageBox "继续挤房间,请在等待要挤房间的时间内,点击下你要挤的房间，否则请按结束键停止运行!!!"
    Delay shi
            hd = Plugin.Window.Find(0, "QQ游戏")
zc = Plugin.Bkgnd.FindColor(Hd, 0, 50, 1024, 768, "E7A441")
gf = Split(zc, "|")
z = Clng(gf(0)):c = Clng(gf(1))
    Rem mei
    Delay ys
                hz = Plugin.Window.Find(0, "QQ游戏")
Call Plugin.Bkgnd.LeftClick(hz, z,c)
hy = Plugin.Window.Find(0, "信息提示")
    Delay ys
    Call Plugin.Bkgnd.KeyPress(hy, 27)
    Delay 50
    jy = Plugin.Bkgnd.GetPixelColor(hz, 466, 135)
    If jy = "22B56B" Then
            MessageBox "已挤进你所需的房间！！"
        Call jx()
        Else
        End If
    Goto mei
End Sub
//1280*1024
Sub jin()
        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 llf
        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, 722,135)
    If GetColor = "22B56B" Then
            MessageBox "已挤进你所需的房间！！将停止运行"
        EndScript
        Else
        End If
Goto llf
End Sub
Sub kaisha()
        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 llka
        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, 722,135)
    If GetColor = "22B56B" Then
            MessageBox "已挤进你所需的房间！！将停止运行"
        Call jxs()
        Else
        End If
Goto llka
    End Sub
Sub jxs()
            MessageBox "继续挤房间,请在等待要挤房间的时间内,点击下你要挤的房间，否则请按结束键停止运行!!"
    Delay shi
                hk = Plugin.Window.Find(0, "QQ游戏")
XY = Plugin.Bkgnd.FindColor(hk, 0, 50, 1024, 768, "E7A441")
MyArray = Split(XY, "|")
x = Clng(MyArray(0)): Y = Clng(MyArray(1))
    Rem wua
                    ha = Plugin.Window.Find(0, "QQ游戏")