第一步,在附件中添加大漠插件文件夹中的dm.dll和RegDll.dll文件。
第二步,复制以下代码注册并绑定窗口,D:/path是大漠插件文件夹,可以修改自定义其他目录。
Call 注册大漠() Call 窗口绑定() Sub 窗口绑定() hwnd = dm.GetMousePointWindow() TracePrint hwnd dm_ret = dm.BindWindow(hwnd, "dx", "dx", "dx", 0) Delay 1000 dm_ret = dm.Capture(0, 0, 2000, 2000, "screen.bmp") TracePrint dm_ret Delay 1000 End Sub Sub 注册大漠() need_ver = "3.1233" set ws=createobject("Wscript.Shell") ws.run "regsvr32 atl.dll /s" set ws=nothing PutAttachment "D:\path","*.*" PutAttachment ".\Plugin" ,"RegDll.dll" Call Plugin.RegDll.Reg("D:\path\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 D:\path\dm.dll /s" set ws=nothing Delay 1500 set dm = createobject("dm.dmsoft") ver = dm.Ver() %2
◎欢迎参与讨论,请在这里发表您的看法、交流您的观点。