1. 用户定义变量 name0=0"左下角为主号,请输入后3位ID"
  2. 用户定义变量 name1=0"左上角为2号,请输入后3位ID"
  3. 用户定义变量 name2=0"右上角为3号,请输入后3位ID"
  4. 用户定义变量 name3=0"左下角为4号,请输入后3位ID"
  5. 用户定义变量 name4=0"中间为5号,请输入后3位ID"
  6. 用户定义变量 RW1=DropList{"攻击":65|"防御":68|"法术":81}=0 "人物1"
  7. 用户定义变量 BB1=DropList{"攻击":65|"防御":68|"法术":81}=0 "宝宝1"
  8. 用户定义变量 RW2=DropList{"攻击":65|"防御":68|"法术":81}=0 "人物2"
  9. 用户定义变量 BB2=DropList{"攻击":65|"防御":68|"法术":81}=0 "宝宝2"
  10. 用户定义变量 RW3=DropList{"攻击":65|"防御":68|"法术":81}=0 "人物3"
  11. 用户定义变量 BB3=DropList{"攻击":65|"防御":68|"法术":81}=0 "宝宝3"
  12. 用户定义变量 RW4=DropList{"攻击":65|"防御":68|"法术":81}=0 "人物4"
  13. 用户定义变量 BB4=DropList{"攻击":65|"防御":68|"法术":81}=0 "宝宝4"
  14. 用户定义变量 RW5=DropList{"攻击":65|"防御":68|"法术":81}=0 "人物5"
  15. 用户定义变量 BB5=DropList{"攻击":65|"防御":68|"法术":81}=0 "宝宝5"
  16. 用户定义变量 YS=DropList{"一号人物":1|"二号人物":2|"三号人物":3|"四号人物":4|"五号人物":5|"无":6}=5"选择医生"
  17. 用户定义变量 YSAJ=DropList{"F1":112|"F2":113|"F3":114|"F4":115|"F5":116|"F6":117|"F7":118|"F8":119|"F9":120}=0"快捷键"
  18. (语句无法识别,可能有错误): Dim srw1, srw2, srw3, srw4, srw5//五个号的句柄
  19. (语句无法识别,可能有错误): Dim hp1,hp2,hp3,hp4,hp5//五个号的血值状态
  20. (语句无法识别,可能有错误): Dim mp1,mp2,mp3,mp4,mp5//五个号的蓝值状态
  21. 定义变量 FileArray(11)
  22. (语句无法识别,可能有错误): Dim HandleArray//建完图库后这里要改一下数目奖励验证库
  23. 定义变量 FileNatureArray(11)
  24. (语句无法识别,可能有错误): Dim HandleNatureArray//弹出的对话框验证库
  25. (语句无法识别,可能有错误): Sub 奖励验证图片加载()//奖励验证图片加载库方法
  26. 注释:先装入奖励验证图片
  27. 循环 i 从 0 到 11
  28.     (语句无法识别,可能有错误): FileArray(i)="Attachment:\"& i+1 &".bmp" //验证图库放在“d:\图片”里,图名为1.bmp,2.bmp....
  29. 循环结束
  30. 令 HandleArray = FindPicture5_04.LoadBMP(FileArray)
  31. 注释:UBound函数用于获得指定数组维数的最大可用下标,在这里,数组大小是0时,返回-1
  32. 如果 UBound(HandleArray) = - 1 则
  33.     MsgBox("载入验证图片失败",4096)
  34.     脚本停止运行
  35. 条件结束
  36. 子程序结束
  37. (语句无法识别,可能有错误): Sub 弹出对话框验证图片加载()//弹出对话框验证图片库方法
  38. 注释:先装入奖励验证图片
  39. 循环 i 从 0 到 11
  40.     (语句无法识别,可能有错误): FileNatureArray(i)="Attachment:\d"& i+1 &".bmp" //验证图库放在“d:\图片”里,图名为1.bmp,2.bmp....
  41. 循环结束
  42. 令 HandleNatureArray = FindPicture5_04.LoadBMP(FileNatureArray)
  43. 注释:UBound函数用于获得指定数组维数的最大可用下标,在这里,数组大小是0时,返回-1
  44. 如果 UBound(HandleArray) = - 1 则
  45.     MsgBox("载入验证图片失败",4096)
  46.     脚本停止运行
  47. 条件结束
  48. 子程序结束
  49. 注释:开始循环查找要练级的5号
  50. 注释:---------------------------------------------------------------------------
  51. 令 Hwndex = Window.Search("梦幻西游ONLINE")
  52. 令 MyArray = Split(HwndEx,"|")
  53. 令 i = 0
  54. 循环 CLng(UBound(MyArray)) 次
  55.     令 sText = Window.GetText(MyArray(i))
  56.     令 sText = Right(sText,5)
  57.     令 sText = Left(sText,3)
  58.     如果 sText <> "NLI" 则
  59.         如果 name0 = CInt(sText) 则
  60.             令 srw1 = MyArray(i)
  61.             调用 Window.Active(srw1)
  62.             延时 500 毫秒
  63.             调用 Window.Move(srw1,0,480)
  64.         否则如果 name1 = CInt(sText) 则
  65.             令 srw2 = MyArray(i)
  66.             调用 Window.Active(srw2)
  67.             延时 500 毫秒
  68.             调用 Window.Move(srw2,0,0)
  69.         否则如果 name2 = CInt(sText) 则
  70.             令 srw3 = MyArray(i)
  71.             调用 Window.Active(srw3)
  72.             延时 500 毫秒
  73.             调用 Window.Move(srw3,643,0)
  74.         否则如果 name3 = CInt(sText) 则
  75.             令 srw4 = MyArray(i)
  76.             调用 Window.Active(srw4)
  77.             延时 500 毫秒
  78.             调用 Window.Move(srw4,643,500)
  79.         否则如果 name4 = CInt(sText) 则
  80.             令 srw5 = MyArray(i)
  81.             调用 Window.Active(srw5)
  82.             延时 500 毫秒
  83.             调用 Window.Move(srw5,300,300)
  84.         否则
  85.         条件结束
  86.     条件结束
  87.     如果 i = CLng(UBound(MyArray)) - 1 则
  88.         调用 Window.Active(srw5)
  89.     条件结束
  90.     令 i = i + 1
  91.     延时 100 毫秒
  92. 循环结束
  93. 注释:Game开始挂机
  94. 子程序 开始走路()
  95.     延时 200 毫秒
  96.     调用 Window.Active(srw1)
  97.     令 Rect = Window.GetClientRect(srw1)
  98.     令 MyArray = Split(Rect,"|")
  99.     令 Ux = CLng(MyArray(0))
  100.     令 Uy = CLng(MyArray(1))