1.             标记 随机数
  2.             （VBScript语句） Randomize
  3.             （VBScript语句） i = 4 * Rnd
  4.             如果表达式 (i>3.1415926) 为真,则
  5.                 跳转到标记 随机数
  6.             条件结束
  7.             标记 画圆
  8.             r=50:x0=403:y0=322:x=0:y=0:n=i*2
  9.             rnx=x0+r*cos(n)
  10.             rny=y0-r*sin(n)
  11.             鼠标移到 rnx , rny
  12.             延时200毫秒
  13.             左键单击
  14.             延时500毫秒
  15.             跳转到标记 complete
  16.         否则
  17.             跳转到标记 mouse
  18.         条件结束
  19.         标记 complete
  20.         调用外部VBScript子程序 在屏幕区域里查找图形(0,0,1024,768,"attachment:\signz.bmp",0.7,x,y)
  21.         如果表达式 (colorx>=0 and colory>=0) 为真,则
  22.             跳转到标记 complete
  23.         否则
  24.             延时500毫秒
  25.             鼠标移到 405 , 325
  26.             延时100毫秒
  27.             按住<Alt>
  28.             延时20毫秒
  29.             左键单击
  30.             弹起<Alt>
  31.             延时800毫秒
  32.         条件结束
  33.         如果表达式 (datediff("s",setime,now)>se*60) 为真,则
  34.             setime=now
  35.             如果表达式 (gh=4) 为真,则
  36.                 （VBScript语句） strSoundFile = "C:\soda.wav"
  37.                 （VBScript语句） Set objShell = CreateObject("Wscript.Shell")
  38.                 （VBScript语句） strCommand = "sndrec32 /play /close " & chr(34) & strSoundFile & chr(34)
  39.                 （VBScript语句） objShell.Run strCommand, 0, True
  40.             条件结束
  41.             按键<I>
  42.             如果表达式 (gh=1) 为真,则
  43.                 延时100毫秒
  44.                 鼠标移到 677 , 359
  45.                 延时100毫秒
  46.                 左键单击
  47.                 延时500毫秒
  48.                 鼠标移到 525 , 443
  49.                 延时200毫秒
  50.                 左键单击
  51.             条件结束
  52.             如果表达式 (gh=2) 为真,则
  53.                 鼠标移到 725 , 359
  54.                 延时100毫秒
  55.                 左键单击
  56.                 延时500毫秒
  57.                 鼠标移到 525 , 443
  58.                 延时200毫秒
  59.                 左键单击
  60.             条件结束
  61.             如果表达式 (gh=3) 为真,则
  62.                 鼠标移到 773 , 359
  63.                 延时100毫秒
  64.                 左键单击
  65.                 延时500毫秒
  66.                 鼠标移到 525 , 443
  67.                 延时200毫秒
  68.                 左键单击
  69.             条件结束
  70.             按键<I>
  71.             gh=gh+1
  72.         条件结束
  73.         如果表达式 (datediff("s",satime,now)>sa*60) 为真,则
  74.             satime=now
  75.             按键<I>
  76.             鼠标移到 786 , 560
  77.             延时200毫秒
  78.             调用外部VBScript子程序 在屏幕区域里查找图形(0,0,1024,768,"attachment:\signz.bmp",0.7,x,y)
  79.             如果表达式 (shape=1060663957) 为真,则
  80.                 （VBScript语句） strSoundFile = "C:\soda.wav"
  81.                 （VBScript语句） Set objShell = CreateObject("Wscript.Shell")
  82.                 （VBScript语句） strCommand = "sndrec32 /play /close " & chr(34) & strSoundFile & chr(34)
  83.                 （VBScript语句） objShell.Run strCommand, 0, True
  84.             条件结束
  85.             按键<I>
  86.         条件结束
  87.     循环结束
  88.     延时1000毫秒
  89. 子程序结束,回到调用处