1. 子程序 一键抓图
  2.     dim errfile
  3.     延时dltime毫秒
  4.     //找抓屏键(Print Screen)
  5.     延时1000毫秒
  6.     //运行画图
  7.     调用外部VBScript子程序 Call 在屏幕区域里查找图形(10,10,900,700,"bmp\npc4.bmp",0.9,x,y)
  8.     延时5*dltime毫秒
  9.     str=left(errfilename,4)
  10.     y=strcomp(str,"读验证码")
  11.     retv=obj.SetCurWindow("未命名 - 画图")
  12.     延时dltime毫秒
  13.     //按住<CTRL>
  14.     按住#
  15.     延时dltime毫秒
  16.     按键#
  17.     延时2*dltime毫秒
  18.     按键#
  19.     延时dltime毫秒
  20.     弹起<Ctrl>
  21.     //**********调用随机数**********
  22.     延时dltime毫秒
  23.     errcount=errcount+1
  24.     如果表达式 (errcount > 9) 为真,则
  25.         errcount=0
  26.     条件结束
  27.     errfile="error"&errcount
  28.     调用插件命令 ret=File.ExistFile(filepath&errfile)
  29.     如果表达式 (ret = 1) 为真,则
  30.         调用插件命令 File.DeleteFile(filepath&errfile)
  31.     条件结束
  32.     //输入表达式 X---以一个随机数做图片的名字
  33.     如果表达式 (y = 0) 为真,则
  34.         输入文本 Filepath&"错误验证码\"& errfilename&"_"& errfile
  35.         errfilename=""
  36.     否则
  37.         输入文本 Filepath&"错误验证码\"& errfile
  38.     条件结束
  39.     延时2*dltime毫秒
  40.     //按下<ALT>
  41.     按住<Alt>
  42.     延时dltime毫秒
  43.     //按下<S>---确定保存[ALT+S]
  44.     按键<S>
  45.     延时5*dltime毫秒
  46.     按键<Y>
  47.     延时dltime毫秒
  48.     按键<Y>
  49.     延时dltime毫秒
  50.     //按下<F4>---关闭当前激活的窗口[ALT+F4]
  51.     //也就是关掉-图画
  52.     按键#
  53.     延时dltime毫秒
  54.     //弹起<ALT>
  55.     弹起#
  56. 子程序结束,回到调用处
  57. 子程序 去城门模块
  58.     //关音乐，音效等，（600，270）（600，310）
  59.     //退出（396,550），返回（510,550），回城门（630,550）
  60.     鼠标移到 188 , 733
  61.     延时1000毫秒
  62.     xx=2
  63.     如果表达式 (xx > 0) 为真,则循环执行
  64.         如果 (311,576) 的颜色大约等于 #397908 则
  65.             鼠标移到 630 , 550
  66.             延时2*dltime毫秒
  67.             左键单击
  68.             延时dltime毫秒
  69.             xx=-2
  70.         否则
  71.             延时1000毫秒
  72.             左键单击
  73.             延时dltime毫秒
  74.         条件结束
  75.         调用子程序 重新进入
  76.     循环结束
  77.     // 退一
  78. 子程序结束,回到调用处