功能 自动注册大漠插件(程序DM版本,trueorfalse,注册码)
//程序DM版本="3.1229"
是否成功=辅助.是否注册("dm.dmsoft")
如果(是否成功)
调试输出("插件已注册")
dm=com("dm.dmsoft")
调试输出("插件已注册,当前使用版本:"&dm.Ver())
如果(程序DM版本!=dm.Ver())
调试输出("插件已注册,插件版本错误重新注册")
是否成功=辅助.注册插件("rc:\\dm.dll",真)
如果(是否成功)
dm=null
dmm=com("dm.dmsoft")
调试输出("插件注册成功,注册版本")
辅助.退出()
如果结束
如果结束
否则
调试输出("插件未注册,开始注册插件")
是否成功=辅助.注册插件("rc:\\dm.dll",真)
如果(是否成功)
调试输出("插件注册成功")
如果结束
如果结束
//程序运行到这个位置表示 插件注册成功了而且版本号也对了
//注册收费大漠
//如果 trueorfalse 表示传入的是 true
如果(trueorfalse)
dm=null
dm=com("dm.dmsoft")
dm_ret = dm.Reg(注册码,"")
如果(dm_ret!=1)
辅助.消息框("注册失败,只能使用免费功能:"&dm_ret)
否则
调试输出("插件收费功能注册成功")
如果结束
如果结束
功能结束 |
[复制链接]
/2 
发表于 2013-12-16 14:48:26
