你的位置：
使用大漠插件·后台窗口设置
23:45:59 |
来源: 按键精灵资源站
need_ver = &3.1233&
// 这里选择c盘的test-_game作为的基本目录 也就是SetPath对应的目录。所以所有都释放在此目录.
PutAttachment &c:\test_game&,&*.*&
// 这里要用到RegDll来注册插件，所以必须释放到Plugin. 但是切记不能把dm.dll释放到Plugin.那会导致插件失效.
PutAttachment &.\Plugin&, &RegDll.dll&
// 下面开始注册插件,先尝试用RegDll来注册.这里必须使用绝对路径。以免有别人把dm.dll释放在系统目录.造成版本错误.
Call Plugin.RegDll.Reg(&c:\test_game\dm.dll&)
// 这里判断是否注册成功
set dm = createobject(&dm.dmsoft&)
ver = dm.Ver()
if ver && need_ver then
// 先释放先前创建的dm
set dm = nothing
& &// 再尝试用regsvr32 来注册. 这里必须使用绝对路径。以免有别人把dm.dll释放在系统目录.造成版本错误.
set ws=createobject(&Wscript.Shell&)
ws.run &regsvr32 c:\test_game\dm.dll /s&
set ws=nothing
Delay 1500&&
// 再判断插件是否注册成功
set dm = createobject(&dm.dmsoft&)
ver = dm.Ver()
if ver && need_ver then
// 这时，已经确认插件注册失败了。 弹出一些调试信息，以供分析.
messagebox &插件版本错误,当前使用的版本是:&&ver&&,插件所在目录是:&&dm.GetBasePath()
messagebox &请关闭程序,重新打开本程序再尝试&
& & endscript
// 插件注册结束&&&&&&&&&&&&&&&
//这里设置插件基本目录
dm.SetPath &c:\test_game&
// 获取句柄
hwnd = dm.GetMousePointWindow()
dm_ret = dm.BindWindow(hwnd,&gdi&,&dx&,&dx&,1)
Delay 5000
// 检测绑定返回值
if dm_ret = 0 then
& &last_error = dm.GetLastError()
// 如果是WIN7 VISTA WIN2008系统,检测当前系统是否有开启UAC
& &if dm.GetOsType() = 3 then
& & // 有开启UAC的话，尝试关闭
if dm.CheckUAC() = 1 then
& &&&if dm.SetUAC(0) = 1 then
& && && & // 关闭UAC之后，必须重启系统才可以生效
& && && & messagebox &已经关闭系统UAC设置，必须重启系统才可以生效。点击确定重启系统&
& && && &dm.ExitOs 2
& && && && && &&&Delay 2000
& && && &endscript
& &&&end if
& &// 具体错误码的含义，可以参考函数GetLastError的说明.
& &messagebox &绑定失败，错误码是:&&last_error
& &messagebox &如果确定关闭了UAC,很可能是系统的防火墙拦截插件，请暂时关闭360等安全防火墙再尝试&
& &endscript
Delay 2000
Dim ys, dys
dys = 2000
color1 = dm.GetColor(187, 45)
MessageBox color1
这样绑定成功。
把1 改成 101&&dm_ret = dm.BindWindow(hwnd,&gdi&,&dx&,&dx&,101)&&就绑定失败了
101好像是付费功能。我没注册大漠插件，是不是就不能用了。只能使用免费功能。
因为游戏窗口后台截图是黑的。用大漠测试后台模式的方法。dm_ret = dm.BindWindow(hwnd,&gdi&,&dx&,&dx&,101) 就能后台截图。
这样是不是说明，我用101模式就能后台取色，找图···········你的位置：
大漠插件后台截图找图问题
18:01:58 |
来源: 按键精灵资源站
我用大漠显示后台截图&&然后马上后台找图&&能找到 图 去 文件件&&也能找到截图到的图片
但是&&如果我设置循环&&让 插件再截图 是同一位置 然后再找图 就找不到了& &高手能看看这是啥毛病么
Hwnd = Plugin.Window.Find(0, &梦三国 Online&)
Call Plugin.Window.Move(Hwnd, 0, 0)
PutAttachment &c:\miaohuo&, &*.*&
PutAttachment &.\plugin&, &Regdll.dll&
call Plugin.Regdll.reg(&c:\miaohuo\dm.dll&)
//其实注册插件到这里就注册好了
Set dm = createobject(&dm.dmsoft&)
ver = dm.ver()
If len(ver) = 0 Then
MessageBox &插件注册失败,检查系统是否禁用了vbs脚本权限&
dm_ret = dm.SetPath(&c:\miaohuo&)
//指定字库
//绑定窗口
& &Rem 能翻页
dm_ret = dm.BindWindow(hwnd,&dx&,&dx&,&dx&,0)
& &dm_ret = dm.FindPic(460,651,506,687,&能翻页.bmp&,&,0,intX,intY)
If intX & 0 and intY &0 Then
dm.MoveTo&&485,670
& & dm.LeftClick
& && &&&dm.MoveTo 600, 670
& && &&&i = 0
& && &&&i=i+1
& && && && && && && && && &&&dm_ret = dm.Capture(391, 654,462, 689,i&&翻页数字.bmp&)
& && && && &Rem 翻页数没变
dm_ret =&&dm.FindPic(390,653,463,690,i&&翻页数字.bmp&,&,0,intX,intY)
& && &&&If intX & 0 and intY & 0 Then
& && && && &MessageBox &没变&
& && &&&Goto 翻页数没变
& && && && &End If
dm.DeleteFile &C:\miaohuo\i&翻页数字.bmp&
& && &&&Delay 800
& && && && && && &&&Goto 能翻页你的位置：
关于大漠在WIN7下后台截图为黑色的求教
00:58:28 |
来源: 按键精灵资源站
用江中游的大漠后台测试测试了某游戏的绑定模式为GDI，DX，DX，0，并做了脚本，在XP下很成拉，在后台找色，杀怪运行得很好，但是此脚本在WIN7在不能找色，已知WIN7的分辨率和色彩和我的电脑是一样的，别的前台采色脚本都是可以运行的。后来用远程用江中游后台测试，发现所有的模式绑定后，后台截图出来全是全黑的，采不到色，有什么解决方法吗，谢谢你的位置：
如何用大漠插件后台截图？求高手指教下
14:36:39 |
来源: 按键精灵资源站
最近在自学看了几个，然后找了一个叫魔域的游戏用【大漠3.1233】后台截图。可是gdi/gdi2/dx2/dx3/dx都用过了还是没能成功，只能用“normal”正常模式。下面是代码请高手帮我看一下那里出错了。
Call 注册大漠()
Call 窗口绑定()
Sub 窗口绑定()
hwnd = dm.GetMousePointWindow()
TracePrint hwnd
dm_ret = dm.BindWindow(hwnd, &normal&, &normal&, &normal&, 0)
dm_ret = dm.Capture(0,0,,&screen.bmp&)
Sub 注册大漠()
need_ver = &3.1233&
set ws=createobject(&Wscript.Shell&)
ws.run &regsvr32 atl.dll /s&
set ws=nothing
PutAttachment &c:\tlbb&,&*.*&
PutAttachment &.\Plugin& ,&RegDll.dll&
Call Plugin.RegDll.Reg(&c:\tlbb\dm.dll&)
set dm = createobject(&dm.dmsoft&)
ver = dm.Ver()
if ver && need_ver then
set dm = nothing
set ws=createobject(&Wscript.Shell&)
ws.run &regsvr32 c:\tlbb\dm.dll /s&
set ws=nothing
Delay 1500
set dm = createobject(&dm.dmsoft&)
ver = dm.Ver()
if ver && need_ver then
messagebox &插件版本错误,当前使用的版本是:&&ver&&,插件所在目录是:&&dm.GetBasePath()
messagebox &请关闭程序,重新打开本程序再尝试&
If ver = need_ver Then
TracePrint &恭喜你注册成功！插件所在目录是:&&dm.GetBasePath()
dm.SetPath &c:\tlbb&
Sub OnScriptExit()
dm_ret = dm.UnBindWindow()
If dm_ret = 1 Then
TracePrint &解除绑定成功&}