查看: 6|回复: 0

【原】按键精灵调用大漠插件细节说明

[复制链接]

23万

主题

23万

帖子

71万

积分

论坛元老

Rank: 8Rank: 8

积分
719036
发表于 2020-10-17 17:11:23 | 显示全部楼层 |阅读模式
 

 

无论是哪种语言使用大漠都需要两个插件: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。证明是可以使用大漠插件的一般免费功能的。
  • 每次运行脚本都必须注册大漠吗?
    是的,必须在自动执行段加一段注册大漠的代码。
  • 如果调用大漠插件的命令?
    官方有一个详细的大漠帮助文档,是中文的。一般的语法都可以直接看文档学习。
  • 可以和大漠配套使用的有哪些好用的必备工具?
  • 备记
    [/ol]ahk在win10系统下也可以调用大漠,代码参考按键精灵这个部分。经测试,也可以后台找图,点击。这为ahk的脚本开发也扩大的领域。
  •  

    回复

    使用道具 举报

    您需要登录后才可以回帖 登录 | 立即注册

    本版积分规则

    QQ| Archiver|手机版|小黑屋| 师哈哈 |网站地图

    Copyright © 2019-2025 Www.biiyy.Com.   All Rights Reserved.

    Powered by Discuz! X3.4( 苏ICP备14049462-3号 )