按键精灵大漠插件下载、注册与绑定窗口教程

大漠综合插件(dm.dll)采用vc6.0编写，是一款集前后台，文字识别，图色，键鼠，窗口，内存，DX，Call等功能于一身的综合插件。主要用于按键精灵、简单游、易语言等辅助制作工具，具有识别速度超级快的特点！ 采用COM接口编写，适用于所有语言调用。

首先，在使用大漠插件前需要先添加附件，在按键精灵的附件中添加大漠插件文件夹中的dm.dll和RegDll.dll文件，这两个文件都在大漠插件的安装目录中，可点击此处下载大漠插件。

复制以下代码到按键精灵里，Sub主程序放入要执行的脚本即可。

注意：D:/path是大漠插件文件夹，可以修改自定义其他目录。

Call 注册大漠()
Call 窗口绑定()
Call 主程序()
Sub 主程序()
    //这里放你要执行的代码
End Sub
Sub 窗口绑定()
    hwnd = dm.GetMousePointWindow()
    TracePrint hwnd
    dm_ret = dm.BindWindow(hwnd, "normal", "normal", "normal", 0)
    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()
        if ver <> need_ver then
            messagebox "插件版本错误,当前使用的版本是:"&ver&",插件所在目录是:"&dm.GetBasePath()
            messagebox "请关闭程序,重新打开本程序再尝试"
            endscript
        end if
    End If
    If ver = need_ver Then 
        TracePrint "恭喜你注册成功！插件所在目录是:"&dm.GetBasePath()
    End If
    dm.SetPath "D:\path"
    Delay 500
End Sub
Sub OnScriptExit()
    dm_ret = dm.UnBindWindow()
    If dm_ret = 1 Then 
        TracePrint "解除绑定成功"
    End If
End Sub