1.             Set file=fso.OpenTextFile(filename,ForAppending)
  2.             file.WriteLine("循环"&i&"次选择服务器--"&t3)
  3.             file.Close
  4.             如果表达式 (yxfwq=1) 为真,则
  5.                 鼠标移到 400 , 442
  6.             否则如果(yxfwq=2)为真,则
  7.                 鼠标移到 396 , 457
  8.             否则如果(yxfwq=3)为真,则
  9.                 鼠标移到 403 , 477
  10.             否则如果(yxfwq=4)为真,则
  11.                 鼠标移到 402 , 491
  12.             否则如果(yxfwq=5)为真,则
  13.                 鼠标移到 402 , 506
  14.             否则如果(yxfwq=6)为真,则
  15.                 鼠标移到 400 , 521
  16.             否则如果(yxfwq=7)为真,则
  17.                 鼠标移到 401 , 538
  18.             否则如果(yxfwq=8)为真,则
  19.                 鼠标移到 400 , 555
  20.             否则如果(yxfwq=9)为真,则
  21.                 鼠标移到 401 , 569
  22.             否则如果(yxfwq=10)为真,则
  23.                 鼠标移到 401 , 586
  24.             条件结束
  25.             延时yanshi/5毫秒
  26.             左键单击
  27.             鼠标移到 443 , 656
  28.             左键单击
  29.         否则
  30.             如果表达式 (fwqu=11) 为真,则
  31.                 x=439
  32.                 y=586
  33.             否则如果(fwqu=12)为真,则
  34.                 x=439
  35.                 y=525
  36.             否则如果(fwqu=13)为真,则
  37.                 x=439
  38.                 y=460
  39.             否则如果(fwqu=21)为真,则
  40.                 x=602
  41.                 y=586
  42.             否则如果(fwqu=22)为真,则
  43.                 x=602
  44.                 y=525
  45.             否则如果(fwqu=23)为真,则
  46.                 x=602
  47.                 y=460
  48.             条件结束
  49.             鼠标移到 x , y
  50.             左键单击
  51.             延时yanshi/5毫秒
  52.             i=i+1
  53.             跳转到标记 选择服务器
  54.         条件结束
  55.     否则
  56.         鼠标移到 728 , 327
  57.         左键单击
  58.         延时yanshi*10毫秒
  59.         鼠标移到 728 , 600
  60.         左键单击
  61.         i=i+1
  62.         跳转到标记 开三国策1
  63.     条件结束
  64.     延时yanshi*200毫秒
  65.     标记 关闭声音
  66.     如果 (306,214) 的颜色等于 #a5fb42 则
  67.         鼠标移到 598 , 265
  68.         左键单击
  69.         鼠标移到 599 , 314
  70.         左键单击
  71.         鼠标移到 508 , 551
  72.         左键单击
  73.     否则
  74.         鼠标移到 185 , 736
  75.         左键单击
  76.         延时yanshi*10毫秒
  77.         跳转到标记 关闭声音
  78.     条件结束
  79. 子程序结束,回到调用处
  80. 子程序 变速
  81.     延时yanshi毫秒
  82.     t1=timer
  83.     i=0
  84.     标记 cbscl
  85.     // 在系统托盘中查变速图标
  86.     调用外部VBScript子程序 MessageBox("请设置您的电脑屏幕分辨率为1024*768，颜色质量为最高（32位）")
  87.     如果表达式 (x>0) 为真,则
  88.         如果表达式 (j<>0) 为真,则
  89.             t2=timer
  90.             t3=t2-t1
  91.             Set file=fso.OpenTextFile(filename,ForAppending)
  92.             file.WriteLine("循环"&i&"次cbscl--"&t3)
  93.             file.Close
  94.         条件结束
  95.         鼠标移到 x , y
  96.         左键单击
  97.     否则
  98.         i=i+1
  99.         跳转到标记 cbscl
  100.     条件结束