1. 注释://///////////////////////////////////////////////////////
  2. (语句无法识别,可能有错误): PutAttachment ".\plugin","*.dll"'释放DLL
  3. (语句无法识别,可能有错误): PutAttachment "c:\XYW","*.bmp"'释放DLL
  4. 展开附件 *.txt 到 c:\XYW 文件夹
  5. 令 ws = createobject("Wscript.Shell")
  6. (语句无法识别,可能有错误): ws.run "regsvr32 ./plugin/dm.dll /s"'注册DLL
  7. 令 ws = nothing
  8. 延时 yc + 500 毫秒
  9. 注释://///////////////////////////////////////////////////////
  10. 注释://///////////////////////////////////////////////////////
  11. 定义变量 dm
  12. 令 dm = CreateObject("dm.dmsoft")
  13. 注释:base_path = dm.GetBasePath()
  14. 注释:dm_ret = dm.SetPath("C:\XYW\")
  15. 注释:dm_ret = dm.SetDict(0,"dm_soft.txt")
  16. 令 dm_ret = dm.SetDict(0,"C:\XYW\xyw.txt")
  17. 注释://///////////////////////////////////////////////////////
  18. 用户定义变量 zhwz=1 "帐号在几个位置"
  19. 用户定义变量 fgf="----" "帐号密码分割符"
  20. 用户定义变量 yxlj="D:\游戏\大话西游外传\xyw.exe" "游戏路径"
  21. 用户定义变量 zhlj="c:\XYW\帐号.txt" "帐号路径"
  22. 用户定义变量 zcm="Oalbccfaja3bCbccacDaCaOabaVbIbAaPd3d8bUaBd9dbaRbxcgd" "注册码"
  23. 用户定义变量 yc=50 "延迟数字"
  24. 用户定义变量 wbjd=DropList{"读文本帐号":"1"|"读当前开号":"2"}=0 "师门进度"
  25. (语句无法识别,可能有错误): Dim lj//游戏路径
  26. (语句无法识别,可能有错误): Dim zhlj//帐号路径
  27. (语句无法识别,可能有错误): DIM DITU//游戏地图
  28. (语句无法识别,可能有错误): DIM DITUX//游戏X
  29. (语句无法识别,可能有错误): DIM DITUY//游戏Y
  30. (语句无法识别,可能有错误): Dim yao//药的名字
  31. (语句无法识别,可能有错误): Dim zhuangbei//装备名字
  32. (语句无法识别,可能有错误): Dim s//任务的名字
  33. (语句无法识别,可能有错误): Dim guai//怪的名字
  34. (语句无法识别,可能有错误): Dim guaiditu//怪的地图
  35. 定义变量 hwnd
  36. 标记 开始
  37. 如果 wbjd = 1 则
  38.     注释: Call 验证机器码和时间
  39.     调用 去掉空行和空格
  40.     调用 分割上号
  41.     调用 游戏上号
  42.     调用 开录象
  43.     调用 疲敝
  44.     调用 识别任务
  45.     跳转到标记 开始
  46. 否则
  47.     调用 移动窗口
  48.     调用 疲敝
  49.     调用 识别任务
  50.     跳转到标记 开始
  51. 条件结束
  52. 子程序 开录象()
  53.     调用 把当前活动程序的内存地址 &h005BDB94 的 2 类型值保存到 ncx
  54.     延时 2 毫秒
  55.     调用 把当前活动程序的内存地址 &h005BDB98 的 2 类型值保存到 ncy
  56.     延时 2 毫秒
  57.     如果 ncx = 0 并且 ncy = 0 则
  58.         弹出窗口 "没有开启录象,开启录像,保存,下线在上。在开脚本!脚本已经停止"
  59.         脚本停止运行
  60.     否则
  61.     条件结束
  62. 子程序结束
  63. 注释:识别任务
  64. 子程序 识别任务()
  65.     标记 任务(子程序 识别任务)
  66.     调用 检测战斗
  67.     调用 取消自动
  68.     调用 关闭任务
  69.     调用 对话和2
  70.     调用 打开任务
  71.     标记 框(子程序 识别任务)
  72.     从左上到右下查找图片 "C:\XYW\框.bmp",把找到的坐标保存到 (intX, intY),指定区域(左:0 上:0 右:807 下:621),相似度 1.0
  73.     如果 intX > 0 并且 intY > 0 则
  74.         调用 修正偏移(intX + 68,intY + 5)
  75.         延时 yc + 200 毫秒
  76.         跳转到标记 框(子程序 识别任务)
  77.     条件结束
  78.     延时 yc + 500 毫秒
  79.     令 dm_ret = dm.FindStr(0,0,807,621,"师门","e0b468-000000",0.8,intX,intY)
  80.     如果 intX >= 0 并且 intY >= 0 则
  81.         调用 做任务
  82.     否则
  83.         调用 关闭任务
  84.         调用 接任务
  85.     条件结束
  86.     跳转到标记 任务(子程序 识别任务)
  87. 子程序结束
  88. 注释:做任务
  89. 子程序 做任务()
  90.     标记 任务1(子程序 做任务)
  91.     调用 打开任务
  92.     标记 框(子程序 做任务)
  93.     从左上到右下查找图片 "C:\XYW\框.bmp",把找到的坐标保存到 (intX, intY),指定区域(左:0 上:0 右:807 下:621),相似度 1.0
  94.     如果 intX > 0 并且 intY > 0 则
  95.         调用 修正偏移(intX + 68,intY + 5)
  96.         延时 yc + 200 毫秒
  97.         跳转到标记 框(子程序 做任务)
  98.     条件结束
  99.     令 s = dm.Ocr(238,141,381,241,"e8e8b0-000000",1)
  100.     如果 s = "召唤兽需求" 则