1.     延时 ys 毫秒
  2.     调用 Bkgnd.LeftClick(ha,x,y)
  3.     令 hf = Window.Find(0,"信息提示")
  4.     延时 ys 毫秒
  5.     调用 Bkgnd.KeyPress(hf,27)
  6.     延时 50 毫秒
  7.     令 Ge = Bkgnd.GetPixelColor(ha,466,135)
  8.     如果 Ge = "22B56B" 则
  9.         弹出窗口 "已挤进你所需的房间！！"
  10.         调用 liao()
  11.     否则
  12.     条件结束
  13.     跳转到标记 wu(子程序 jx)
  14. 子程序结束
  15. 子程序 liao()
  16.     弹出窗口 "继续挤房间,请在等待要挤房间的时间内,点击下你要挤的房间，否则请按结束键停止运行!!!"
  17.     延时 shi 毫秒
  18.     令 hd = Window.Find(0,"QQ游戏")
  19.     令 zc = Bkgnd.FindColor(Hd,0,50,1024,768,"E7A441")
  20.     令 gf = Split(zc,"|")
  21.     令 z = Clng(gf(0))
  22.     令 c = Clng(gf(1))
  23.     标记 mei(子程序 liao)
  24.     延时 ys 毫秒
  25.     令 hz = Window.Find(0,"QQ游戏")
  26.     调用 Bkgnd.LeftClick(hz,z,c)
  27.     令 hy = Window.Find(0,"信息提示")
  28.     延时 ys 毫秒
  29.     调用 Bkgnd.KeyPress(hy,27)
  30.     延时 50 毫秒
  31.     令 jy = Bkgnd.GetPixelColor(hz,466,135)
  32.     如果 jy = "22B56B" 则
  33.         弹出窗口 "已挤进你所需的房间！！"
  34.         调用 jx()
  35.     否则
  36.     条件结束
  37.     跳转到标记 mei(子程序 liao)
  38. 子程序结束
  39. 注释：1280*1024
  40. 子程序 jin()
  41.     弹出窗口 "在等待要挤房间的时间内，请点击下你要挤的房间！！！"
  42.     延时 shi 毫秒
  43.     令 hl = Window.Find(0,"QQ游戏")
  44.     令 XY = Bkgnd.FindColor(Hl,0,50,1024,768,"E7A441")
  45.     令 MyArray = Split(XY,"|")
  46.     令 X = Clng(MyArray(0))
  47.     令 Y = Clng(MyArray(1))
  48.     标记 llf(子程序 jin)
  49.     令 ho = Window.Find(0,"QQ游戏")
  50.     延时 ys 毫秒
  51.     调用 Bkgnd.LeftClick(Hx,X,Y)
  52.     令 h = Window.Find(0,"信息提示")
  53.     延时 ys 毫秒
  54.     调用 Bkgnd.KeyPress(h,27)
  55.     延时 50 毫秒
  56.     令 GetColor = Bkgnd.GetPixelColor(ho,722,135)
  57.     如果 GetColor = "22B56B" 则
  58.         弹出窗口 "已挤进你所需的房间！！将停止运行"
  59.         脚本停止运行
  60.     否则
  61.     条件结束
  62.     跳转到标记 llf(子程序 jin)
  63. 子程序结束
  64. 子程序 kaisha()
  65.     弹出窗口 "在等待要挤房间的时间内，请点击下你要挤的房间！！"
  66.     延时 shi 毫秒
  67.     令 hl = Window.Find(0,"QQ游戏")
  68.     令 BF = Bkgnd.FindColor(Hl,0,50,1024,768,"E7A441")
  69.     令 sx = Split(BF,"|")
  70.     令 B = Clng(sx(0))
  71.     令 F = Clng(sx(1))
  72.     标记 llka(子程序 kaisha)
  73.     令 ho = Window.Find(0,"QQ游戏")
  74.     延时 ys 毫秒
  75.     调用 Bkgnd.LeftClick(Ho,B,F)
  76.     令 h = Window.Find(0,"信息提示")
  77.     延时 ys 毫秒
  78.     调用 Bkgnd.KeyPress(h,27)
  79.     延时 50 毫秒
  80.     令 GetColor = Bkgnd.GetPixelColor(ho,722,135)
  81.     如果 GetColor = "22B56B" 则
  82.         弹出窗口 "已挤进你所需的房间！！将停止运行"
  83.         调用 jxs()
  84.     否则
  85.     条件结束
  86.     跳转到标记 llka(子程序 kaisha)
  87. 子程序结束
  88. 子程序 jxs()
  89.     弹出窗口 "继续挤房间,请在等待要挤房间的时间内,点击下你要挤的房间，否则请按结束键停止运行!!"
  90.     延时 shi 毫秒
  91.     令 hk = Window.Find(0,"QQ游戏")
  92.     令 XY = Bkgnd.FindColor(hk,0,50,1024,768,"E7A441")
  93.     令 MyArray = Split(XY,"|")
  94.     令 x = Clng(MyArray(0))
  95.     令 Y = Clng(MyArray(1))
  96.     标记 wua(子程序 jxs)
  97.     令 ha = Window.Find(0,"QQ游戏")
  98.     延时 ys 毫秒
  99.     调用 Bkgnd.LeftClick(ha,x,y)
  100.     令 hf = Window.Find(0,"信息提示")