1.             左键单击
  2.         条件结束
  3.         延时500毫秒
  4.         调用子程序 清空屏幕对话框
  5.         调用外部VBScript子程序 在屏幕区域里查找图形(X1,Y1,X2,Y2,"Attachment:\起始定位图片.bmp",0.9,intX,intY)
  6.         dd=0
  7.         如果表达式 (intX>0 and intY>0 and dd<300) 为真,则循环执行
  8.             延时1000毫秒
  9.             dd=dd+1
  10.             调用外部VBScript子程序 在屏幕区域里查找图形(X1,Y1,X2,Y2,"Attachment:\起始定位图片.bmp",0.9,intX,intY)
  11.         循环结束
  12.         调用外部VBScript子程序 在屏幕区域里查找图形(X1,Y1,X2,Y2,"Attachment:\起始定位图片.bmp",0.9,intX,intY)
  13.         dd=0
  14.         如果表达式 (intX>0 and intY>0 and dd<300) 为真,则循环执行
  15.             延时1000毫秒
  16.             dd=dd+1
  17.             调用外部VBScript子程序 在屏幕区域里查找图形(X1,Y1,X2,Y2,"Attachment:\起始定位图片.bmp",0.9,intX,intY)
  18.         循环结束
  19.         调用外部VBScript子程序 在屏幕区域里查找图形(X1,Y1,X2,Y2,"Attachment:\起始定位图片.bmp",0.9,intX,intY)
  20.         如果表达式 (intX>0 and intY>0) 为真,则
  21.             跳转到标记 登录成功
  22.         否则
  23.             i=i+1
  24.         条件结束
  25.     循环结束
  26.     弹出窗口 intX & "," & intY & "登录失败，请检查网络、用户名或密码是否正常"
  27.     脚本停止运行
  28.     标记 登录成功
  29.     //MessageBox 登录成功
  30. 子程序结束,回到调用处
  31. //====================登录游戏结束==============================
  32. //====================选择角色==============================
  33. 子程序 选择角色
  34.     调用外部VBScript子程序 在屏幕区域里查找图形(X1,Y1,X2,Y2,"Attachment:\起始定位图片.bmp",0.9,intX,intY)
  35.     如果表达式 (intX>0 and intY>0) 为真,则
  36.         如果表达式 (xzjs=1) 为真,则
  37.             鼠标移到 intX-X1+390 , intY-Y1+338
  38.             延时500毫秒
  39.             左键单击
  40.             跳转到标记 选择人物后下一步
  41.         否则
  42.         条件结束
  43.         如果表达式 (xzjs=2) 为真,则
  44.             鼠标移到 intX-X1+506 , intY-Y1+339
  45.             延时500毫秒
  46.             左键单击
  47.             跳转到标记 选择人物后下一步
  48.         否则
  49.         条件结束
  50.         如果表达式 (xzjs=3) 为真,则
  51.             鼠标移到 intX-X1+625 , intY-Y1+332
  52.             延时500毫秒
  53.             左键单击
  54.             跳转到标记 选择人物后下一步
  55.         否则
  56.         条件结束
  57.         如果表达式 (xzjs=4) 为真,则
  58.             鼠标移到 intX-X1+751 , intY-Y1+332
  59.             延时500毫秒
  60.             左键单击
  61.             跳转到标记 选择人物后下一步
  62.         否则
  63.         条件结束
  64.         如果表达式 (xzjs=5) 为真,则
  65.             鼠标移到 intX-X1+387 , intY-Y1+459
  66.             延时500毫秒
  67.             左键单击
  68.             跳转到标记 选择人物后下一步
  69.         否则
  70.         条件结束
  71.         如果表达式 (xzjs=6) 为真,则
  72.             鼠标移到 intX-X1+509 , intY-Y1+462
  73.             延时500毫秒
  74.             左键单击
  75.             跳转到标记 选择人物后下一步
  76.         否则
  77.         条件结束
  78.     否则
  79.     条件结束
  80.     延时500毫秒
  81.     标记 选择人物后下一步
  82.     鼠标移到 intX-X1+596 , intY-Y1+677
  83.     左键单击
  84.     延时500毫秒
  85.     调用外部VBScript子程序 在屏幕区域里查找图形(X1,Y1,X2,Y2,"Attachment:\起始定位图片.bmp",0.9,intX,intY)
  86.     如果表达式 (xzintX>0 and xzintY>0) 为真,则
  87.         鼠标移到 intX-X1+485 , intY-Y1+507
  88.         左键单击
  89.         延时500毫秒
  90.         弹出窗口 "您所选择的人物并不存在，请中止后重新登录"
  91.     否则
  92.     条件结束
  93. 子程序结束,回到调用处
  94. //====================角色选择结束==============================
  95. //====================清空屏幕对话框==============================
  96. 子程序 清空屏幕对话框
  97.     调用子程序 关闭小地图
  98.     调用外部VBScript子程序 在屏幕区域里查找图形(X1,Y1,X2,Y2,"Attachment:\起始定位图片.bmp",0.9,intX,intY)
  99.     如果表达式 (intX>0 and intY>0) 为真,则循环执行
  100.         延时50毫秒