- 展开附件 *.* 到 c:\test_game 文件夹
- 令 ws = createobject("Wscript.Shell")
- ws.run("regsvr32 c:\test_game\dm.dll /s")
- 令 ws = nothing
- 延时 1500 毫秒
- 令 dm = CreateObject("dm.dmsoft")
- 令 ver = dm.Ver()
- dm.SetPath("f:/save")
- 延时 100 毫秒
- dm.SetDict(0,"dm_soft.txt")
- 延时 100 毫秒
- 如果 len(ver) = 0 则
- 弹出窗口 "创建对象失败,检查系统是否禁用了vbs脚本权限"
- 脚本停止运行
- 条件结束
- 注释:寒风袭来制作
- 令 hwnd = dm.GetMousePointWindow()
- 令 dm_ret = dm.BindWindow(hwnd,"dx","dx","windows",0)
- 延时 1500 毫秒
- dm.DownCpu(50)
- 延时 500 毫秒
- 如果 dm_ret = 0 则
- 弹出窗口 "绑定失败"
- 脚本停止运行
- 条件结束
- 锁定鼠标位置
- 延时 1000 毫秒
- 注释:按下F12
- dm.keypress(123)
- 延时 1000 毫秒
- dm.keypress(123)
- 延时 1000 毫秒
- 注释:打开地图按键
- dm.keypress(77)
- 延时 1000 毫秒
- 注释:查找其他Npc
- 令 dm_ret = dm.FindStr(737,207,797,231,"其他Npc","ffd495-000000",1.0,x,y)
- 如果 x >= 0 并且 y >= 0 则
- dm.MoveTo(x,y)
- 延时 500 毫秒
- dm.LeftDoubleClick()
- 延时 1000 毫秒
- 否则
- 弹出窗口 "没找到其他Npc"
- 条件结束
- 注释:查找仓库保管员子仓
- 令 dm_ret = dm.FindStr(750,290,859,308,"管理员","ffd495-000000",1.0,x,y)
- 如果 x >= 0 并且 y >= 0 则
- dm.MoveTo(x,y)
- 延时 500 毫秒
- dm.LeftDoubleClick()
- 延时 1000 毫秒
- 否则
- 弹出窗口 "没找到仓库保管员"
- 条件结束
- 注释:关闭地图
- dm.keypress(77)
- 延时 1000 毫秒
- 注释:接帮派日常任务
- 令 i = 0
- 循环当 i = 0 时
- 令 dm_ret = dm.FindStr(28,442,134,468,"日常","362000-000000",1.0,x,y)
- 如果 x >= 0 并且 y >= 0 则
- 令 i = 1
- 条件结束
- 循环结束
- dm.MoveTo(x,y)
- 延时 500 毫秒
- dm.LeftDoubleClick()
- 延时 1000 毫秒
- 注释:打开地图按M键
- dm.keypress(77)
- 延时 1000 毫秒
- 注释:找传送
- 令 dm_ret = dm.FindStr(735,166,795,189,"传送Npc","ffd495-000000",1.0,x,y)
- 如果 x >= 0 并且 y >= 0 则
- dm.MoveTo(x,y)
- 延时 500 毫秒
- dm.LeftDoubleClick()
- 延时 1000 毫秒
- 否则
- 弹出窗口 "地图传送没找到"
- 条件结束
- 注释:找天青
- 令 dm_ret = dm.FindStr(757,191,851,206,"天青","ffd495-000000",1.0,x,y)
- 如果 x >= 0 并且 y >= 0 则
- dm.MoveTo(x,y)
- 延时 500 毫秒
- dm.LeftDoubleClick()
- 延时 1000 毫秒
- 否则
- 弹出窗口 "天青没找到"
- 脚本停止运行
- 条件结束
- 注释:关闭地图
- dm.keypress(77)
- 延时 1000 毫秒
- 注释:请送
- 令 i = 0
- 循环当 i = 0 时