请假各位前辈，如何注册大漠收费版本

zy_ccis

  免费版本就很简单，注册插件("rc:dm.dll",真)，但是要注册收费部分，因为多了个注册码，研究了好几天就是不知道怎么弄。 按键精灵的就有现成的源码，TC 没有。 大神帮忙指点一点。  弱弱的问一下，现在还有老师逛论坛吗  。 主要是按键精灵   Plugin.RegDll.Reg("c:\test_game\dm.dll") 这句如何用TC 的语法替换。

    变量 是否成功=注册插件("rc:dm.dll",真)

    //        Plugin.RegDll.Reg("c:\test_game\dm.dll")
    如果(是否成功)
    否则
        消息框("插件注册失败!","提示")
    结束
    变量 hwnd="7406328"
    变量 dm = com("dm.dmsoft")
    变量 dmret=dm.Reg("138****************6","88")
    变量 path=getrcpath("rc:")
    dm.SetPath(path)

    调试输出(dm.Ver())


           变量  dm_ret = dm.BindWindowEx(hwnd,"dx.graphic.2d","dx.mouse.input.lock.api","dx.keypad.input.lock.api","dx.public.active.api",0)
        等待(500)
        dm.MoveTo(330,558)
        等待(500)
        dm.LeftClick
        等待(1000)
        dm.SendString(hwnd,"我是来测试的")

2576605471

Plugin.RegDll.Reg   是按键的命令, 别的语言都没有这个, 或许说不需要用这个.

你上面的代码中,
变量 是否成功=注册插件("rc:dm.dll",真)    或者用   变量 是否成功=注册插件(获取资源路径("rc:dm.dll"),真)
就是注册插件到系统的, 然后把插件添加到资源目录里就行了.

你上面的代码中,
dm.LeftClick
是错误的写法, 这一句是执行错误的, 应该加上括号, dm.LeftClick()
然后, 你的代码基本就没错的.

zy_ccis

功能 设置路径和字库(参数_dm)
    //参数_dm.SetPath(系统获取进程路径() & "资源")//置全局路径
    参数_dm.SetPath(获取资源路径("rc:"))//置全局路径
   
    参数_dm.SetDict(0, "zk.txt")       
    //参数_dm.SetDict(1, "zk1.txt")       
结束

功能 免注册大漠插件(插件版本)
    //第一步 解决有些XP系统把atl.dll精简掉的问题。  
    //    命令("regsvr32 atl.dll /s",false)
    //第二步 把DmReg.dll和dm.dll放在同一目录下下面开始注册
    //SetDllPathA  字符串(Ascii码表示插件所在的路径),整数(0表示STA，1表示MTA)
    动态库调用(获取资源路径("rc:\\yf.dll"), "int", "SetDllPathA", "char *", 获取资源路径("rc:\\dm.dll"), "int", 0)//
    等待(随机数(100, 1000))
   
    大漠 = 插件("dm.dmsoft")//大漠对象名,免费版的默认为:dm.dmsoft,收费版请修改你的对象名称
    如果(获取变量类型(大漠) == "com")
        变量 当前版本 = 大漠.Ver()
        调试输出("当前版本:" & 当前版本)
        如果(当前版本 != 插件版本)
            消息框("插件注册失败,版本不匹配\r\n请联系作者!!")
            退出()
        结束
        
        如果(插件版本 != "3.1233")//如果是免费则不运行注册
            变量 Reg_ret = 大漠.Reg("大漠注册码", "")//这里填写修改你的大漠注册码
            调试输出("Reg_ret:" & Reg_ret)
            如果(Reg_ret != 1)
                消息框("大漠插件,注册收费失败!")
                退出()
            结束
            
        结束
        //设置路径和字库(大漠)
        返回 真
    否则
        消息框("大漠插件注册失败,请手动运行注册文件!")
        退出()
    结束
结束

//一个标准的注册大漠插件的例子
功能 注册大漠插件(插件版本, 插件路径)
    注册插件(插件路径, 真)
    变量  ver
    // 这里判断是否注册成功
    大漠 = 插件("dm.dmsoft")//大漠对象名,免费版的默认为:dm.dmsoft
    如果(获取变量类型(大漠) != "com")
        //如果上面的方法注册失败那么使用下面的方法进行注册
        命令("regsvr32 " & 插件路径, 假)
        等待(500)
        命令("taskkill /f /im regsvr32.exe", 假)//注册成功后会弹出一个对话框,为了不影响后面的操作 我们直接调用命令结束掉这个对话框
    结束
   
    // 再判断插件是否注册成功
    大漠 = 插件("dm.dmsoft")
    如果(获取变量类型(大漠) == "com")
        ver = 大漠.Ver()
        调试输出("ver:" & ver)
        如果(ver != 插件版本)
            //这时，已经确认插件注册失败了。 弹出一些调试信息，以供分析.
            消息框("插件版本错误,当前使用的版本是" & ver & ",插件所在目录是" & 大漠.GetBasePath() & "\n请关闭程序,重新尝试")
            退出()
        否则
            返回 真
        结束
    否则
        消息框("插件注册失败,重新尝试")
        退出()
    结束
结束


功能 大漠_注册收费(参数_dm,注册码,类型=1,ip="")
    如果(类型 == 1)
        返回 参数_dm.Reg(注册码,"")
        
    否则
        返回 参数_dm.RegEx(注册码,"",ip)
    结束
   
结束