TC官方合作论坛

标题: 求TC5.0的大漠免注册写法 [打印本页]
作者: jianxitt    时间: 2015-2-25 12:39
标题: 求TC5.0的大漠免注册写法
用以前的注册写法,一运行程序就会崩溃,求大神看看哪里有错?
  1. 功能 免注册大漠()
  2.     //变量 ws=com("Wscript.Shell")
  3.     //ws.run("regsvr32 atl.dll /s")
  4.     变量 DmReg路径=获取资源路径("rc:DmReg.dll")
  5.     变量 Dm路径=获取资源路径("rc:dm.dll")
  6.     dllcall(DmReg路径,"int","SetDllPathA","char *",Dm路径,"ini",0)
  7.     dm = com("dm.dmsoft")
  8.    
  9.     如果(dm.Ver()!=5.1423)
  10.         消息框("插件注册失败")
  11.         //退出()
  12.     否则
  13.         消息框("注册成功")
  14.        消息框(dm.Ver())
  15.     结束
  16.    
  17.     dm=null
  18.     dm=com("dm.dmsoft")
  19.     变量 dm_ret = dm.Reg("注册码","")
  20.     如果(dm_ret!=1)
  21.         消息框("注册失败,只能使用免费功能:"&dm_ret)
  22.     否则
  23.         消息框("插件收费功能注册成功")
  24.     结束
  25. 结束
复制代码
作者: 今非    时间: 2015-2-25 21:47
变量必须声明  
资源路径函数
作者: jianxitt    时间: 2015-2-26 09:52
今非 发表于 2015-2-25 21:47
变量必须声明  
资源路径函数

全局变量 dm已经声明,资源路径也声明了,就是一运行就自动消失
作者: 今非    时间: 2015-2-26 15:50
jianxitt 发表于 2015-2-26 09:52
全局变量 dm已经声明,资源路径也声明了,就是一运行就自动消失

5.0 没咋用 你下断点调试下吧
作者: sohucomwww    时间: 2015-4-30 19:40
本帖最后由 sohucomwww 于 2015-4-30 19:50 编辑

int你写个ini能不崩溃么，不谢，赶紧给个赞
作者: 2645572175    时间: 2015-6-26 11:25




欢迎光临 TC官方合作论坛 (http://bbs.52tc.co/) Powered by Discuz! X3.1