1.     调用 Window.Active(Hwnd)
  2.     注释：得到窗口句柄的客户区大小
  3.     令 sRect = Window.GetClientRect(Hwnd)
  4.     注释：猎取游戏窗口，左上角坐标(起点定位坐标)
  5.     定义变量 MyArray
  6.     令 MyArray = Split(sRect,"|")
  7.     令 Ux = CLng(MyArray(0))
  8.     令 Uy = CLng(MyArray(1))
  9.     延时 DelayTime 毫秒
  10. 子程序结束
  11. 子程序 ToRegisteInterface()
  12.     注释：点击注册账号
  13.     （鼠标）移动到 (Ux + 545, Uy + 240)
  14.     注释：Delay 20
  15.     （鼠标）左键单击, 1次
  16.     延时 500 + DelayTime 毫秒
  17. 子程序结束
  18. 子程序 AccountCreate()
  19.     注释：先创建，再检测
  20.     注释：检测成功继续，失败刚再生成账号
  21.     标记 Create(子程序 AccountCreate)
  22.     令 i = i + 1
  23.     调用 ToDisplayClient()
  24.     调用 ToRegisteInterface()
  25.     （鼠标）移动到 (Ux + 300, Uy + 100)
  26.     （鼠标）左键单击, 1次
  27.     延时 50 毫秒
  28.     输入文本 ID
  29.     延时 50 毫秒
  30.     （键盘）按 CStr(i) 键, 1次
  31.     延时 50 毫秒
  32.     （鼠标）移动到 (Ux + 450, Uy + 100)
  33.     注释：Delay 100
  34.     （鼠标）左键单击, 1次
  35.     延时 100 + DelayTime / 2 毫秒
  36.     注释：检测账号类别
  37.     调用 ToDisplayClient()
  38.     令 AccountTemp = 0
  39.     令 AccountResult = ""
  40.     循环 15 次
  41.         令 GetColor = 得到指定点 (Ux + 165 + AccountTemp, Uy + 170) 的颜色
  42.         如果 GetColor = "00FCF8" 则
  43.             令 AccountTempA = "1"
  44.         否则
  45.             令 AccountTempA = "0"
  46.         条件结束
  47.         令 AccountResult = AccountResult + AccountTempA
  48.         令 AccountTemp = AccountTemp + 1
  49.     循环结束
  50.     如果 AccountResult = idis 则
  51.         注释： MessageBox "可用"
  52.         延时 DelayTime 毫秒
  53.         调用 Registe()
  54.     否则如果 AccountResult = idno 则
  55.         注释： MessageBox "不可用"
  56.         延时 DelayTime 毫秒
  57.         调用 Registe()
  58.         跳转到标记 Create(子程序 AccountCreate)
  59.     否则
  60.         注释： MessageBox "没检测到"+AccountResult
  61.         调用 Registe()
  62.         跳转到标记 Create(子程序 AccountCreate)
  63.     条件结束
  64.     注释：密码
  65.     延时 DelayTime 毫秒
  66.     （鼠标）移动到 (Ux + 300, Uy + 125)
  67.     注释：Delay 30
  68.     （鼠标）左键单击, 1次
  69.     注释：Delay 50
  70.     输入文本 PASSWD
  71.     延时 50 毫秒
  72.     注释：重复密码
  73.     （鼠标）移动到 (Ux + 300, Uy + 150)
  74.     注释：Delay 30
  75.     （鼠标）左键单击, 1次
  76.     注释：Delay 50
  77.     输入文本 PASSWD
  78.     延时 50 毫秒
  79.     注释：姓名
  80.     （鼠标）移动到 (Ux + 300, Uy + 175)
  81.     注释：Delay 30
  82.     （鼠标）左键单击, 1次
  83.     注释：Delay 50
  84.     输入文本 NAME
  85.     延时 50 毫秒
  86.     注释：身份证号
  87.     （鼠标）移动到 (Ux + 300, Uy + 200)
  88.     注释：Delay 30
  89.     （鼠标）左键单击, 1次
  90.     输入文本 NAMEID
  91.     延时 50 毫秒
  92.     注释：重复身份证号
  93.     （鼠标）移动到 (Ux + 300, Uy + 225)
  94.     注释：Delay 30
  95.     （鼠标）左键单击, 1次
  96.     注释：Delay 50
  97.     输入文本 NAMEID
  98.     延时 50 毫秒
  99.     注释：电话
  100.     （鼠标）移动到 (Ux + 300, Uy + 250)