1. 用户定义变量 ys=200 "挤房时间"
2. 用户定义变量 shi=4000 "等待点击要挤房间的时间(你选择房间速度快可以适当改小)"
3. 用户定义变量 分辨率=DropList{"1024*768":0|"1280*1024":1}=0 "你电脑屏幕的分辨率（电脑分辨率对不上无法正常运行）"
4. 用户定义变量 设置=DropList{"连续挤同一个房间":0|"连续挤几个房间":1}=0 "挤房间模式"
5. 用户定义变量 游戏=DropList{"是":0|"否":1}=1 "是否开启QQ游戏窗口置前!(开启后其他程序不能操作)"
6. 如果 分辨率 = 0 则
7.     令 hx = Window.Find(0,"QQ游戏")
8.     令 sWindow = Window.IsWindow(hx)
9.     如果 sWindow = 1 则
10.         调用 Window.Max(hx)
11.         如果 游戏 = 0 则
12.             调用 Window.Top(hx,0)
13.         条件结束
14.         如果 设置 = 0 则
15.             调用 jjm()
16.         条件结束
17.         如果 设置 = 1 则
18.             调用 kaishi()
19.         条件结束
20.     否则
21.         弹出窗口 "QQ游戏未打开，停止运行！"
22.         脚本停止运行
23.     条件结束
24. 条件结束
25. 如果 分辨率 = 1 则
26.     令 hx = Window.Find(0,"QQ游戏")
27.     令 sWindow = Window.IsWindow(hx)
28.     如果 sWindow = 1 则
29.         调用 Window.Max(hx)
30.         调用 Window.Top(Hx,0)
31.         如果 设置 = 0 则
32.             调用 jin()
33.         条件结束
34.         如果 设置 = 1 则
35.             调用 kaisha()
36.         条件结束
37.     否则
38.         弹出窗口 "QQ游戏未打开，停止运行！"
39.         脚本停止运行
40.     条件结束
41. 条件结束
42. 脚本停止运行
43. 子程序 jjm()
44.     弹出窗口 "在等待要挤房间的时间内，请点击下你要挤的房间！！"
45.     延时 shi 毫秒
46.     令 hl = Window.Find(0,"QQ游戏")
47.     令 XY = Bkgnd.FindColor(Hl,0,50,1024,768,"E7A441")
48.     令 MyArray = Split(XY,"|")
49.     令 X = Clng(MyArray(0))
50.     令 Y = Clng(MyArray(1))
51.     标记 llk(子程序 jjm)
52.     令 ho = Window.Find(0,"QQ游戏")
53.     延时 ys 毫秒
54.     调用 Bkgnd.LeftClick(Hx,X,Y)
55.     令 h = Window.Find(0,"信息提示")
56.     延时 ys 毫秒
57.     调用 Bkgnd.KeyPress(h,27)
58.     延时 50 毫秒
59.     令 GetColor = Bkgnd.GetPixelColor(ho,466,135)
60.     如果 GetColor = "22B56B" 则
61.         弹出窗口 "已挤进你所需的房间！！将停止运行"
62.         脚本停止运行
63.     否则
64.     条件结束
65.     跳转到标记 llk(子程序 jjm)
66. 子程序结束
67. 子程序 kaishi()
68.     弹出窗口 "在等待要挤房间的时间内，请点击下你要挤的房间！！"
69.     延时 shi 毫秒
70.     令 hl = Window.Find(0,"QQ游戏")
71.     令 BF = Bkgnd.FindColor(Hl,0,50,1024,768,"E7A441")
72.     令 sx = Split(BF,"|")
73.     令 B = Clng(sx(0))
74.     令 F = Clng(sx(1))
75.     标记 llk(子程序 kaishi)
76.     令 ho = Window.Find(0,"QQ游戏")
77.     延时 ys 毫秒
78.     调用 Bkgnd.LeftClick(Ho,B,F)
79.     令 h = Window.Find(0,"信息提示")
80.     延时 ys 毫秒
81.     调用 Bkgnd.KeyPress(h,27)
82.     延时 50 毫秒
83.     令 GetColor = Bkgnd.GetPixelColor(ho,466,135)
84.     如果 GetColor = "22B56B" 则
85.         弹出窗口 "已挤进你所需的房间！！将停止运行"
86.         调用 jx()
87.     否则
88.     条件结束
89.     跳转到标记 llk(子程序 kaishi)
90. 子程序结束
91. 子程序 jx()
92.     弹出窗口 "继续挤房间,请在等待要挤房间的时间内,点击下你要挤的房间，否则请按结束键停止运行!"
93.     延时 shi 毫秒
94.     令 hk = Window.Find(0,"QQ游戏")
95.     令 XY = Bkgnd.FindColor(hk,0,50,1024,768,"E7A441")
96.     令 MyArray = Split(XY,"|")
97.     令 x = Clng(MyArray(0))
98.     令 Y = Clng(MyArray(1))
99.     标记 wu(子程序 jx)
100.     令 ha = Window.Find(0,"QQ游戏")