1.                 延时 100 毫秒
  2.                 如果点 (Cint(MyArray(0)) + 10,Cint(MyArray(1)) + 10) 的颜色不等于 "676767" 则
  3.                     调用 移动并点击(Cint(MyArray(0)) + Cint(MyArray(2)) / 2 - Ux,Cint(MyArray(1)) + Cint(MyArray(3)) / 2 - Uy,0,1)
  4.                     跳出循环
  5.                 条件结束
  6.             循环结束
  7.             延时 Delay_window 毫秒
  8.             退出子程序
  9.         否则
  10.             MsgBox("出错:找不到子窗口" & 标题,16,"提示")
  11.             脚本停止运行
  12.         条件结束
  13.     循环结束
  14. 子程序结束
  15. 子程序 等待窗口(窗口名)
  16.     定义变量 Array_name, Hwnd, Coord, MyArray, i, k
  17.     定义变量 Array_Feature_form(3)
  18.     令 Array_Feature_form(0) = "选大区,71,86,C9FFFF,71,86,C9FFFF"
  19.     令 Array_Feature_form(1) = "输密码,90,480,FFFFFF,660,469,18FF9F"
  20.     令 Array_Feature_form(2) = "择频道,332,13,B3F2FF,333,13,B3F2FF"
  21.     令 Array_Feature_form(3) = "挑角色,337,26,78D7F4,337,26,78D7F4,337,26,78D7F4,337,26,78D7F4"
  22.     循环 i 从 0 到 UBound(Array_Feature_form)
  23.         令 Array_name = Split(Array_Feature_form(i),",",- 1 ,1)
  24.         如果 Array_name(0) = 窗口名 则
  25.             循环开始
  26.                 延时 50 毫秒
  27.                 令 Hwnd = Window.Find(0,"地下城与勇士")
  28.                 令 Coord = Window.GetClientRect(Hwnd)
  29.                 令 MyArray = Split(Coord,"|",- 1 ,1)
  30.                 如果 Cint(MyArray(2)) = 687 或者 Cint(MyArray(2)) = 640 则
  31.                     令 Ux = Cint(MyArray(0))
  32.                     令 Uy = Cint(MyArray(1))
  33.                     循环 k 从 0 到 (UBound(Array_name) - 6) / 6
  34.                         如果点 (Ux + Array_name(k * 6 + 1),Uy + Array_name(k * 6 + 2)) 的颜色等于 Array_name(k * 6 + 3) 则
  35.                             如果点 (Ux + Array_name(k * 6 + 4),Uy + Array_name(k * 6 + 5)) 的颜色等于 Array_name(k * 6 + 6) 则
  36.                                 退出子程序
  37.                             条件结束
  38.                         条件结束
  39.                     循环结束
  40.                 条件结束
  41.             循环结束
  42.         条件结束
  43.     循环结束
  44. 子程序结束
  45. 子程序 移动并点击(横坐标,纵坐标,操作方式,左击次数)
  46.     注释：点击次数: 0表示不点击
  47.     注释：操作方式：【0前台模式，1后台模式】
  48.     如果 操作方式 = 0 则
  49.         令 横坐标 = Ux + 横坐标
  50.         令 纵坐标 = Uy + 纵坐标
  51.         （鼠标）移动到 (横坐标, 纵坐标)
  52.         延时 Delay_move 毫秒
  53.         如果 左击次数 <> 0 则
  54.             循环 左击次数 次
  55.                 （鼠标）左键按下
  56.                 延时 100 毫秒
  57.                 （鼠标）左键弹起
  58.                 延时 Delay_click 毫秒
  59.             循环结束
  60.         条件结束
  61.     条件结束
  62. 子程序结束
  63. 定义变量 MyHour, MyVar
  64. 标记 aaa
  65. 延时 3000 毫秒
  66. 跳转到标记 aaa