1.     延时 ys 毫秒
  2.     调用 Bkgnd.KeyPress(hf,27)
  3.     延时 50 毫秒
  4.     令 Ge = Bkgnd.GetPixelColor(ha,722,135)
  5.     如果 Ge = "22B56B" 则
  6.         弹出窗口 "已挤进你所需的房间！！"
  7.         调用 liaoa()
  8.     否则
  9.     条件结束
  10.     跳转到标记 wua(子程序 jxs)
  11. 子程序结束
  12. 子程序 liaoa()
  13.     弹出窗口 "继续挤房间,请在等待要挤房间的时间内,点击下你要挤的房间，否则请按结束键停止运行!!!"
  14.     延时 shi 毫秒
  15.     令 hd = Window.Find(0,"QQ游戏")
  16.     令 zc = Bkgnd.FindColor(Hd,0,50,1024,768,"E7A441")
  17.     令 gf = Split(zc,"|")
  18.     令 z = Clng(gf(0))
  19.     令 c = Clng(gf(1))
  20.     标记 meia(子程序 liaoa)
  21.     令 hz = Window.Find(0,"QQ游戏")
  22.     延时 ys 毫秒
  23.     调用 Bkgnd.LeftClick(hz,z,c)
  24.     令 hy = Window.Find(0,"信息提示")
  25.     延时 ys 毫秒
  26.     调用 Bkgnd.KeyPress(hy,27)
  27.     延时 50 毫秒
  28.     令 jy = Bkgnd.GetPixelColor(hz,722,135)
  29.     如果 jy = "22B56B" 则
  30.         弹出窗口 "已挤进你所需的房间！！"
  31.         调用 jxs()
  32.     否则
  33.     条件结束
  34.     跳转到标记 meia(子程序 liaoa)
  35. 子程序结束