无论是哪种语言使用大漠都需要两个插件:DmReg.dll和dm.dll。成功注册之后,它的语法在任何的一个编程都是一样的,所以特别值得推荐学习。 按键精灵注册大漠的代码: Sub 注册大漠() Dim 所需版本 所需版本= "3.1233" // Call Plugin.File.CreateFolder("G:\按键精灵\大漠插件3.1233\释放") PutAttachment "G:\按键精灵\大漠插件3.1233\释放","*.*" PutAttachment ".\plugin", "Regdll.dll" Call Plugin.Regdll.reg("G:\按键精灵\大漠插件3.1233\释放\dm.dll") Set dm = createobject("dm.dmsoft") 当前版本 = dm.ver() If 当前版本 <> 所需版本 Then Set dm = nothing Set ws = createobject("Wscript.Shell") ws.run "regsvr32 G:\按键精灵\大漠插件3.1233\释放\dm.dll /s" set ws=nothing Delay 1500 // 再判断插件是否注册成功 set dm = createobject("dm.dmsoft") 当前版本 = dm.Ver() if 当前版本 <> 所需版本 then // 这时,已经确认插件注册失败了。 弹出一些调试信息,以供分析. TracePrint "插件版本错误,当前使用的版本是:"&ver&",插件所在目录是:"&dm.GetBasePath() endscript end if Else TracePrint "大漠插件注册成功,版本号:"& 当前版本 End If End Sub For 1 //准备工作 Call 注册大漠 //调用大漠 Set dm = createobject("dm.dmsoft") ver = dm.Ver() If len(ver) = 0 Then MessageBox "创建对象失败,检查系统是否禁用了vbs脚本权限" EndScript End If //獲取句柄 hwnd = dm.GetMousePointWindow() //激活指定窗口 dm_ret = dm.SetWindowState(hwnd, 1) //绑定指定的窗口,并指定這個窗口的屏幕颜色获取方式,鼠标仿真模式,键盘仿真模式 dm_ret = dm.BindWindowEx(hwnd,"gdi","windows","windows", "dx.public.active.message",0) If dm_ret = 0 Then MessageBox "绑定失败" EndScript End If Next //---------------------------------------- 脚本正式开始 ----------------------------------------
dm.Ver()这是获取大漠版本的方法,如果直接注册失败,获取的版本号就为7.1830,非3.1233。 Set dm = nothing Set ws = createobject("Wscript.Shell") ws.run "regsvr32 G:\按键精灵\大漠插件3.1233\释放\dm.dll /s" set ws=nothing
如果注册失败可以尝试加这四行代码。关于win10系统下使用大漠的问题会比较多,以下是我的一些解答感悟: win10系统支持使用大漠插件吗? 我当前的系统就是win10 64bit。证明是可以使用大漠插件的一般免费功能的。 每次运行脚本都必须注册大漠吗? 是的,必须在自动执行段加一段注册大漠的代码。 如果调用大漠插件的命令? 官方有一个详细的大漠帮助文档,是中文的。一般的语法都可以直接看文档学习。 可以和大漠配套使用的有哪些好用的必备工具?
备记
ahk在win10系统下也可以调用大漠,代码参考按键精灵这个部分。经测试,也可以后台找图,点击。这为ahk的脚本开发也扩大的领域。
|