TC官方合作论坛

标题: TC5.1免注册大漠失败,4.31可以正常使用,看下哪里错了? [打印本页]

作者: zhoulanqiao    时间: 2015-5-4 09:53
标题: TC5.1免注册大漠失败,4.31可以正常使用,看下哪里错了?
TC5.1免注册大漠失败,4.31可以正常使用,看下哪里错了?

功能 测试专用_初始化()
   
    //免注册大漠
   
    变量 资源路径=系统获取进程路径()&"config"
    调试输出(资源路径)
   
    //第一步:免注册大漠到系统
    //注意资源文件里面的dm.dll 使用哪个版本就换成哪个版本 下面的版本序号一定要对应
    变量 dm=免注册大漠插件("5.1423",资源路径)
    调试输出(dm.ver())
   
    变量 加密字串
    变量 密钥="xxx"
    变量 大漠注册码="fengyewangluoda5fdacb539a59c58ceb6e4b48efcde2" //填写自己的大漠注册码 在大漠后台系统 充值之后就可以使用了
    加密字串=aes加密(大漠注册码,密钥)
   
    //第二步:注册大漠收费函数
    变量 dm_ret = dm.Reg(aes解密(加密字串,密钥),"")
    如果(dm_ret!=1)
        消息框("注册失败,请联系作者!!")
        退出()
    否则
        调试输出("注册成功可以使用本辅助!")
    结束
    //以上两步正确执行之后 就可以正常的使用大漠收费版本命令了.
   
    //=============================================================================//
   
   
结束



功能 免注册大漠插件(插件版本,插件路径)
    //第一步 解决有些XP系统把atl.dll精简掉的问题。  
    变量 ws=com("Wscript.Shell")
    ws.run("regsvr32 atl.dll /s")
   
    //第二步 把DmReg.dll和dm.dll放在同一目录下下面开始注册
    //SetDllPathA  字符串(Ascii码表示插件所在的路径),整数(0表示STA,1表示MTA)
   
    变量 DmReg路径=插件路径&"file:///C:\Users\ADMINI~1\AppData\Local\Temp\%W@GJ$ACOF(TYDYECOKVDYB.png\\DmReg.dll"
    变量 Dm路径=插件路径&"file:///C:\Users\ADMINI~1\AppData\Local\Temp\%W@GJ$ACOF(TYDYECOKVDYB.png\\dm.dll"
    dllcall(DmReg路径,"int","SetDllPathA","char *",Dm路径,"int",0)
    等待(随机数(100,1000))
   
    变量 dm = 插件("dm.dmsoft")
    调试输出(获取变量类型(dm))
    如果(获取变量类型(dm)=="com")
        如果(dm.Ver()!=插件版本)
            消息框("插件注册失败,版本不匹配\r\n请联系作者!!","提示")
            退出()
        结束
        返回 dm
    否则
        消息框("插件注册失败,请退出360\r\n重新打开程序,如再次失败请联系作者!!","提示")
        退出()
    结束
   
结束                                             file:///d:\Documents\Tencent Files\275875888\Image\Group\UP0(GWP7WNKUJ0MOG(4)G{8.png[attach]20295[/attach]



运行直接崩溃。。。。。哪里出问题了? 求解

作者: kevinqq    时间: 2015-5-4 10:08
换一个dmreg.dll  记得有用户提过这个问题,因为dll的问题 换一个dmreg.dll就正常了使用我上传的这个测试看下
[attach]20296[/attach]

作者: 忆辰辅助    时间: 2015-5-4 10:11
fengyewangluoda5fdacb539a59c58ceb6e4b48efcde2
作者: zhoulanqiao    时间: 2015-5-4 10:15
忆辰辅助 发表于 2015-5-4 10:11
fengyewangluoda5fdacb539a59c58ceb6e4b48efcde2

正确的不行!  这是我随便改的
作者: zhoulanqiao    时间: 2015-5-4 10:17
kevinqq 发表于 2015-5-4 10:08
换一个dmreg.dll  记得有用户提过这个问题,因为dll的问题 换一个dmreg.dll就正常了使用我上传的这个测试看 ...

你上传的也是一样。。运行崩溃!
作者: kevinqq    时间: 2015-5-4 11:39
提供一下你的系统版本  以及你的大漠插件 我测试下
作者: zhoulanqiao    时间: 2015-5-4 11:43
kevinqq 发表于 2015-5-4 11:39
提供一下你的系统版本  以及你的大漠插件 我测试下

系统版本 WIN7x64位

作者: kevinqq    时间: 2015-5-4 14:15
用你提供的 版本测试上还的版本是官网最新的TC5.1的版本

下面是测试代码
  1.     变量 ws=com("Wscript.Shell")
  2.     ws.run("regsvr32 atl.dll /s")
  3.     //第二步 把DmReg.dll和dm.dll放在同一目录下下面开始注册
  4.     //SetDllPathA  字符串(Ascii码表示插件所在的路径),整数(0表示STA,1表示MTA)
  5.     var DmReg路径 = getrcpath("rc:DmReg.dll")
  6.     var Dm路径 = getrcpath("rc:dm.dll")
  7.     调试输出(DmReg路径)
  8.     调试输出(Dm路径)
  9.     dllcall("d:/DmReg.dll","int","SetDllPathA","char *",Dm路径,"int",0)
  10.     等待(随机数(100,1000))
  11.     dm=插件("dm.dmsoft")
  12.     调试输出(dm)
  13.     消息框(获取变量类型(dm))
  14.     if(获取变量类型(dm) == "com")
  15.         messagebox( dm.Ver())
  16.     end
复制代码


作者: lcc468255    时间: 2015-10-7 15:35
楼主  你问题解决了没,我也是一运行免注册就奔溃




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