TC自动注册大漠插件

功能 注册大漠插件(版本号,是否收费,注册码)
    
    是否成功=辅助.是否注册("dm.dmsoft")
    
    如果(是否成功)
        dm=com("dm.dmsoft")
        如果(dm.Ver()!=版本号)
            调试输出("插件版本不匹配,重新注册插件") 
            是否成功=辅助.注册插件("rc:\\dm.dll",真)
            如果(是否成功)
                调试输出("插件重新注册成功")
                辅助.退出()
            否则
                调试输出("插件重新注册不成功")
                辅助.退出()
            如果结束
        否则            
            调试输出("插件版本正确"&版本号)           
        如果结束  
        调试输出("插件已注册"&dm.Ver())  
    否则
        调试输出("插件未注册,准备注册插件")
        是否成功=辅助.注册插件("rc:\\dm.dll",真)
        如果(是否成功)
            dm=com("dm.dmsoft")
            调试输出("插件注册成功"&dm.Ver())
        否则
            辅助.退出()
        如果结束   
    如果结束  
    
    如果(是否收费)
        dm=null
        dm=com("dm.dmsoft")
        
        dm_ret = dm.Reg(注册码,"")
        如果(dm_ret!=1)
            调试输出("注册失败,只能使用免费功能,错误返回值---"&dm_ret)
        否则
            调试输出("收费插件注册成功"&dm.Ver()) 
        如果结束  
    如果结束
    
功能结束

　　

以下为免注册大漠调用，将DMREG.DLL 和dm.dll 放在同一目录下。。。

功能 免注册调用大漠(版本,注册码)
    DmRegPath=系统.获取程序路径()&"DmReg.dll"
    DmPath=系统.获取程序路径()&"dm.dll"
    dllcall(DmRegPath,"int","SetDllPathA","char *",DmPath,"int",0)
    辅助.等待(辅助.随机数(500,2000))
    
    dm=com("dm.dmsoft")
    如果(类型.获得类型(dm)=="插件")
        如果(dm.Ver()!=版本)
            辅助.消息框("插件注册失败...请联系作者1...")
            辅助.退出()
        否则
            调试输出("插件注册成功,版本号:"&dm.Ver())
            注册码=字符串.aes解密(注册码,"qfpaper")
            dm_ret = dm.Reg(注册码,"")
            如果(dm_ret!=1)
                调试输出("注册失败:"&dm_ret)
                辅助.退出()
            否则
                调试输出("插件收费功能注册成功...")
                返回 dm
            如果结束
        如果结束
    否则
        辅助.消息框("插件注册失败...请联系作者2...")
        辅助.退出()
    如果结束
功能结束