TC官方合作论坛

标题: 新手求高手修订大漠注册、卸载、版本验证源码谢谢！ [打印本页]

作者: wangbaihong 时间: 2015-11-24 02:03
标题: 新手求高手修订大漠注册、卸载、版本验证源码谢谢！
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

作者: wangbaihong 时间: 2015-11-24 02:08
另外问下：function 大漠注册_init()是不是5.4以前的初始化模块

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

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

作者: 民工唐子 时间: 2015-11-24 03:58
//正常方式注册大漠插件,实际上是注册到了系统内部
功能注册大漠插件(&对象,插件类型="免费")
变量版本,返回值,注册码
如果(注册插件("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)
         调试输出("大漠收费功能注册成功")
      否则
         调试输出("大漠收费功能注册失败")
      结束
否则
      调试输出("免注册大漠插件失败")
结束
结束

作者: dzb123 时间: 2015-11-24 09:27
弱弱问下 5.5 的版本是不是不能生成 TLL了

欢迎光临 TC官方合作论坛 (http://bbs.52tc.co/)