新手求高手修订大漠注册、卸载、版本验证 源码 谢谢！

wangbaihong

function damoreg_click()
    var ret = regdll("E:\\Program Files\\TC综合开发工具\\2.1133\\dm.dll",true)
    if(ret)
        messagebox("注册成功")
    else
        messagebox("注册失败,请尝试其他方式注册")
    end
end
function regexit_click()
    var dm = com("dm.dmsoft")
    if(vartype(dm) != "com")
        messagebox("没有注册插件,请先注册相关插件")
        return ""
    end
    exit()
end

function yanzhreg_click()
   
end

function 大漠注册_init()
    var dm = com("dm.dmsoft"),ver
    ver = dm.ver()
    if(ver!=2.1133)
        messagebox("版本错误,请点击注册按钮")
        var ret = regdll("rc:dm.dll",false)      
    else
        traceprint(dm.ver())
        messagebox("版本正确")
    end   
end

民工唐子

//正常方式注册大漠插件,实际上是注册到了系统内部
功能 注册大漠插件(&对象,插件类型="免费")
    变量 版本,返回值,注册码
    如果(注册插件("rc:dm.dll",真))
        调试输出("大漠插件注册成功")
        //创建大漠对象
        对象 = com("dm.dmsoft")
        //输出版本号
        版本 = 对象.Ver()
        调试输出("当前大漠版本: " & 版本)
        //注册收费功能
        //注册码 = 解密(注册码,"jkl")
        如果(插件类型 == "收费")
            注册码 = 读取注册码("jkl")
            返回值 = 对象.Reg(注册码,"0001")
            如果(返回值 == 1)
                调试输出("大漠收费功能注册成功")
            否则
                调试输出("大漠收费功能注册失败")
            结束
        结束
    否则
        调试输出("大漠插件注册失败")
    结束
结束
功能 免注册大漠插件(&对象)
    变量 路径,返回值,版本,注册码
    //获取大漠插件所在的路径
    路径 = 获取资源路径("rc:dm.dll")
    返回值 = dllcall(获取资源路径("rc:DmReg.dll"),"int","SetDllPathA","char *",路径,"int",0)
    如果(返回值 == 1)
        调试输出("免注册大漠插件成功")
        //创建大漠对象
        对象 = com("dm.dmsoft")
        版本 = 对象.Ver()
        调试输出("当前大漠版本: " & 版本)
        //注册收费功能
        注册码 = 读取注册码("jkl")
        返回值 = 对象.Reg(注册码,"0001")
        如果(返回值 == 1)
            调试输出("大漠收费功能注册成功")
        否则
            调试输出("大漠收费功能注册失败")
        结束
    否则
        调试输出("免注册大漠插件失败")
    结束
结束

wangbaihong

另外问下：function 大漠注册_init()是不是5.4以前的初始化模块

还有看别人的视频有个“空间”模块，我新建的tc怎么没有，5.5版本

爱上老公

5.0及以上版本取消了空间，其他的不知道你要表达个什么意思
最好把大漠插件放资源里面
可以参考下别人的代码，话说，注册个插件用的着这么来来回回验证么？

dzb123

弱弱问下   5.5 的版本是不是 不能生成 TLL了