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...")
        輔助.退出()
    如果結束
功能結束