大漠插件绑定后台窗口教程

第一步,在附件中添加大漠插件文件夹中的dm.dll和RegDll.dll文件。

按键精灵大漠插件注册教程

第二步,复制以下代码注册并绑定窗口,D:/path是大漠插件文件夹,可以修改自定义其他目录。

Sub 窗口绑定()
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()
  %3	
评论列表: (共0条评论)

发表评论:

◎欢迎参与讨论,请在这里发表您的看法、交流您的观点。