1.     条件结束
  2.     i=i+1
  3. 循环结束
  4. （VBScript语句） i=1
  5. 循环 350 遍
  6.     如果表达式 (TTx4(i)>0 and TTy4(i)>0) 为真,则
  7.         鼠标移到 TTx4(i) , TTy4(i)
  8.         延时10毫秒
  9.         左键单击
  10.     条件结束
  11.     i=i+1
  12. 循环结束
  13. （VBScript语句） i=1
  14. 循环 350 遍
  15.     如果表达式 (TTx5(i)>0 and TTy5(i)>0) 为真,则
  16.         鼠标移到 TTx5(i) , TTy5(i)
  17.         延时10毫秒
  18.         左键单击
  19.     条件结束
  20.     i=i+1
  21. 循环结束
  22. （VBScript语句） i=1
  23. 循环 350 遍
  24.     如果表达式 (TTx6(i)>0 and TTy6(i)>0) 为真,则
  25.         鼠标移到 TTx6(i) , TTy6(i)
  26.         延时10毫秒
  27.         左键单击
  28.     条件结束
  29.     i=i+1
  30. 循环结束
  31. 脚本停止运行
  32. //子程序，用于把原始坐标沿点（462.5，260）向左或向右旋转0-60度
  33. 子程序 旋转
  34.     dim XX1(350),YY1(350)
  35.     rnd(-1)
  36.     randomize
  37.     （VBScript语句） a=(2*rnd-1)*3.1415926/3
  38.     循环 350 遍
  39.         （VBScript语句） XX1(i)=(XX(i)-462.5)*cos(a)-(YY(i)-260)*sin(a)+462.5
  40.         （VBScript语句） YY1(i)=(XX(i)-462.5)*sin(a)+(YY(i)-260)*cos(a)+260
  41.         （VBScript语句） XX(i)=0:YY(i)=0
  42.         i=i+1
  43.     循环结束
  44.     （VBScript语句） i=1
  45. 子程序结束,回到调用处
  46. //子程序，用于把旋转后的坐标点沿点（462.5，260）扩大（缩小）到1-1.5倍
  47. 子程序 缩小
  48.     dim f,s,XX2(350),YY2(350)
  49.     rnd(-1)
  50.     randomize
  51.     （VBScript语句） f=0.5*rnd+1:s=0.5*rnd+1
  52.     循环 350 遍
  53.         （VBScript语句） XX2(i)=462.5+f*(XX1(i)-462.5)
  54.         （VBScript语句） YY2(i)=260+s*(YY1(i)-260)
  55.         （VBScript语句） XX1(i)=0:YY1(i)=0
  56.         i=i+1
  57.     循环结束
  58.     （VBScript语句） i=1
  59. 子程序结束,回到调用处
  60. //子程序，用于把缩放后的坐标判断条件后传送至相关的值，用于平移
  61. 子程序 提取
  62.     如果表达式 (j=1) 为真,则
  63.         dim Tx1(350),Ty1(350)
  64.         循环 350 遍
  65.             （VBScript语句） Tx1(j)=XX2(j):Ty1(j)=YY2(j)
  66.             （VBScript语句） XX2(j)=0:YY2(j)=0
  67.             j=j+1
  68.         循环结束
  69.     否则如果(k=1)为真,则
  70.         dim Tx2(350),Ty2(350)
  71.         循环 350 遍
  72.             （VBScript语句） Tx2(k)=XX2(k):Ty2(k)=YY2(k)
  73.             （VBScript语句） XX2(k)=0:YY2(k)=0
  74.             k=k+1
  75.         循环结束
  76.     否则如果(l=1)为真,则
  77.         dim Tx3(350),Ty3(350)
  78.         循环 350 遍
  79.             （VBScript语句） Tx3(l)=XX2(l):Ty3(l)=YY2(l)
  80.             （VBScript语句） XX2(l)=0:YY2(l)=0
  81.             l=l+1
  82.         循环结束
  83.     否则如果(q=1)为真,则
  84.         dim Tx4(350),Ty4(350)
  85.         循环 350 遍
  86.             （VBScript语句） Tx4(q)=XX2(q):Ty4(q)=YY2(q)
  87.             （VBScript语句） XX2(q)=0:YY2(q)=0
  88.             q=q+1
  89.         循环结束
  90.     否则如果(n=1)为真,则
  91.         dim Tx5(350),Ty5(350)
  92.         循环 350 遍
  93.             （VBScript语句） Tx5(n)=XX2(n):Ty5(n)=YY2(n)
  94.             （VBScript语句） XX2(n)=0:YY2(n)=0
  95.             n=n+1
  96.         循环结束
  97.     否则如果(o=1)为真,则
  98.         dim Tx6(350),Ty6(350)
  99.         循环 350 遍
  100.             （VBScript语句） Tx6(o)=XX2(o):Ty6(o)=YY2(o)