1.     调用外部VBScript子程序 在屏幕区域里查找图形(650,0,799,50,"Attachment:\龙城.bmp",0.8,zx,zy)
  2.     如果表达式 (x=-1 and i<1) 为真,则
  3.         鼠标移到 711 , 114
  4.         调用子程序 点鼠标
  5.         鼠标移到 706 , 195
  6.         调用子程序 点鼠标
  7.         鼠标移到 645 , 198
  8.         调用子程序 点鼠标
  9.         鼠标移到 464 , FKTXZy
  10.         调用子程序 点鼠标
  11.         i=i+1
  12.     否则如果(x>0 and x<>hdx)为真,则
  13.         延时200毫秒
  14.         跳转到标记 找红点
  15.     否则如果(x=hdx and y=hdy)为真,则
  16.         跳转到标记 传送1
  17.     条件结束
  18.     跳转到标记 找红点
  19. 子程序结束,回到调用处