你的位置：
如何用大漠插件后台截图？求高手指教下
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 ®svr32 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 ®svr32 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 &解除绑定成功&