1.             i1=i1+1
  2.         条件结束
  3.         调用子程序 退出大厅
  4.         延时100毫秒
  5.         调用子程序 退出大厅
  6.         //小号退到大厅
  7.         延时100毫秒
  8.         调用子程序 大号窗口
  9.         延时100毫秒
  10.         调用子程序 关闭
  11.         延时time毫秒
  12.         调用子程序 退出大厅
  13.         延时100毫秒
  14.         调用子程序 退出大厅
  15.         //大号退到大厅
  16.     条件结束
  17. 子程序结束,回到调用处
  18. 子程序 判断对手0
  19.     鼠标移到 743 , 496
  20.     延时100毫秒
  21.     调用外部VBScript子程序 time1=inputbox("延时时间,请根据自己的网速调整（默认200，单位毫秒）:")
  22. 子程序结束,回到调用处
  23. 子程序 判断对手1
  24.     调用外部VBScript子程序 time1=inputbox("延时时间,请根据自己的网速调整（默认200，单位毫秒）:")
  25. 子程序结束,回到调用处
  26. 子程序 判断对手2
  27.     调用外部VBScript子程序 time1=inputbox("延时时间,请根据自己的网速调整（默认200，单位毫秒）:")
  28. 子程序结束,回到调用处
  29. 子程序 判断对手3
  30.     调用外部VBScript子程序 time1=inputbox("延时时间,请根据自己的网速调整（默认200，单位毫秒）:")
  31. 子程序结束,回到调用处
  32. 子程序 判断对手4
  33.     调用外部VBScript子程序 time1=inputbox("延时时间,请根据自己的网速调整（默认200，单位毫秒）:")
  34. 子程序结束,回到调用处
  35. 子程序 房名
  36.     延时100毫秒
  37.     按键<M>
  38.     按键<I>
  39.     按键<C>
  40.     按键<K>
  41.     按键<E>
  42.     按键<Y>
  43.     按键<S>
  44.     按键<S>
  45.     按键.
  46.     按键<A>
  47.     按键<N>
  48.     按键<Y>
  49.     按键<P>
  50.     按键.
  51.     按键<C>
  52.     按键<N>
  53. 子程序结束,回到调用处
  54. 子程序 作者
  55.     按键<Enter>
  56.     按键<M>
  57.     按键<I>
  58.     按键<C>
  59.     按键<K>
  60.     按键<E>
  61.     按键<Y>
  62.     按键<S>
  63.     按键<S>
  64.     按键.
  65.     按键<A>
  66.     按键<N>
  67.     按键<Y>
  68.     按键<P>
  69.     按键.
  70.     按键<C>
  71.     按键<N>
  72.     按键<Space>
  73.     按键<Q>
  74.     按键<Q>
  75.     按键-
  76.     按键<5>
  77.     按键<2>
  78.     按键<0>
  79.     按键<3>
  80.     按键<2>
  81.     按键<0>
  82.     按键<4>
  83.     按键<1>
  84.     按键<Enter>
  85. 子程序结束,回到调用处