1. 展开附件 *.* 到 c:\test_game 文件夹
  2. 令 ws = createobject("Wscript.Shell")
  3. ws.run("regsvr32 c:\test_game\dm.dll /s")
  4. 令 ws = nothing
  5. 延时 1500 毫秒
  6. 令 dm = CreateObject("dm.dmsoft")
  7. 令 ver = dm.Ver()
  8. dm.SetPath("f:/save")
  9. 延时 100 毫秒
  10. dm.SetDict(0,"dm_soft.txt")
  11. 延时 100 毫秒
  12. 如果 len(ver) = 0 则
  13.     弹出窗口 "创建对象失败,检查系统是否禁用了vbs脚本权限"
  14.     脚本停止运行
  15. 条件结束
  16. 注释:寒风袭来制作
  17. 令 hwnd = dm.GetMousePointWindow()
  18. 令 dm_ret = dm.BindWindow(hwnd,"dx","dx","windows",0)
  19. 延时 1500 毫秒
  20. dm.DownCpu(50)
  21. 延时 500 毫秒
  22. 如果 dm_ret = 0 则
  23.     弹出窗口 "绑定失败"
  24.     脚本停止运行
  25. 条件结束
  26. 锁定鼠标位置
  27. 延时 1000 毫秒
  28. 注释:按下F12
  29. dm.keypress(123)
  30. 延时 1000 毫秒
  31. dm.keypress(123)
  32. 延时 1000 毫秒
  33. 注释:打开地图按键
  34. dm.keypress(77)
  35. 延时 1000 毫秒
  36. 注释:查找其他Npc
  37. 令 dm_ret = dm.FindStr(737,207,797,231,"其他Npc","ffd495-000000",1.0,x,y)
  38. 如果 x >= 0 并且 y >= 0 则
  39.     dm.MoveTo(x,y)
  40.     延时 500 毫秒
  41.     dm.LeftDoubleClick()
  42.     延时 1000 毫秒
  43. 否则
  44.     弹出窗口 "没找到其他Npc"
  45. 条件结束
  46. 注释:查找仓库保管员子仓
  47. 令 dm_ret = dm.FindStr(750,290,859,308,"管理员","ffd495-000000",1.0,x,y)
  48. 如果 x >= 0 并且 y >= 0 则
  49.     dm.MoveTo(x,y)
  50.     延时 500 毫秒
  51.     dm.LeftDoubleClick()
  52.     延时 1000 毫秒
  53. 否则
  54.     弹出窗口 "没找到仓库保管员"
  55. 条件结束
  56. 注释:关闭地图
  57. dm.keypress(77)
  58. 延时 1000 毫秒
  59. 注释:接帮派日常任务
  60. 令 i = 0
  61. 循环当 i = 0 时
  62.     令 dm_ret = dm.FindStr(28,442,134,468,"日常","362000-000000",1.0,x,y)
  63.     如果 x >= 0 并且 y >= 0 则
  64.         令 i = 1
  65.     条件结束
  66. 循环结束
  67. dm.MoveTo(x,y)
  68. 延时 500 毫秒
  69. dm.LeftDoubleClick()
  70. 延时 1000 毫秒
  71. 注释:打开地图按M键
  72. dm.keypress(77)
  73. 延时 1000 毫秒
  74. 注释:找传送
  75. 令 dm_ret = dm.FindStr(735,166,795,189,"传送Npc","ffd495-000000",1.0,x,y)
  76. 如果 x >= 0 并且 y >= 0 则
  77.     dm.MoveTo(x,y)
  78.     延时 500 毫秒
  79.     dm.LeftDoubleClick()
  80.     延时 1000 毫秒
  81. 否则
  82.     弹出窗口 "地图传送没找到"
  83. 条件结束
  84. 注释:找天青
  85. 令 dm_ret = dm.FindStr(757,191,851,206,"天青","ffd495-000000",1.0,x,y)
  86. 如果 x >= 0 并且 y >= 0 则
  87.     dm.MoveTo(x,y)
  88.     延时 500 毫秒
  89.     dm.LeftDoubleClick()
  90.     延时 1000 毫秒
  91. 否则
  92.     弹出窗口 "天青没找到"
  93.     脚本停止运行
  94. 条件结束
  95. 注释:关闭地图
  96. dm.keypress(77)
  97. 延时 1000 毫秒
  98. 注释:请送
  99. 令 i = 0
  100. 循环当 i = 0 时