马上加入TC
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
本帖最后由 dj886 于 2014-2-2 12:58 编辑
为了让新手更好的了解 此代码没有做简化 简化后的代码 在最下方找 如果要了解具体流程看上面的 直接使用用下面的
- //调用注册大漠插件函数演示
- 功能 主函数()
- 如果(演示.注册大漠插件()==真)
- 辅助.消息框("注册大漠插件成功")
- 否则
- 辅助.消息框("注册大漠插件失败")
- 如果结束
- 功能结束
- //注册大漠插件函数代码
- 功能 注册大漠插件()
- 变量 返回值
- // 插件需要用到atl系统库,有些XP精简系统会把atl.dll精简掉. 为了防止注册失败,这里手动注册一下
- 辅助.命令("regsvr32 atl.dll /s",真)
- //注册大漠
- 如果(辅助.注册插件("rc:dm.dll",真))
- //创建对象
- dm=com("dm.dmsoft")
- //判断版本号是否存在
- 如果(str.strleng(dm.Ver())==0)
- //版本号不存在 注册失败 删除对象
- dm=null
- 返回值=假
- 否则
- //注册成功
- 返回值=真
- 如果结束
- 否则
- //注册失败
- 返回值=假
- 如果结束
- 如果(返回值==真)
- //注册成功 退出函数
- 返回 真
- 否则
- //如果注册失败 更换注册方式
- 变量 资源路径
- //获取dm.dll路径
- 资源路径=辅助.获取资源路径("rc:dm.dll")
- //调用regsvr32注册
- 辅助.命令("regsvr32 " & 资源路径 & " /s",真)
- //创建对象
- dm=com("dm.dmsoft")
- //判断版本号是否存在
- 如果(str.strleng(dm.Ver())==0)
- //版本号不存在 调用regsvr32注册失败 删除对象 退出函数
- dm=null
- 返回 假
- 否则
- //调用regsvr32注册成功 退出函数
- 返回 真
- 如果结束
- 如果结束
- 功能结束
复制代码
简化代码
- //调用注册大漠插件函数演示
- 功能 主函数()
- 如果(演示.注册大漠插件())
- 辅助.消息框("注册大漠插件成功")
- 否则
- 辅助.消息框("注册大漠插件失败")
- 如果结束
- 功能结束
- //注册大漠插件函数代码
- 功能 注册大漠插件()
- 变量 资源路径
- 辅助.命令("regsvr32 atl.dll /s",真)
- 如果(辅助.注册插件("rc:dm.dll",真))
- dm=com("dm.dmsoft")
- 如果(str.strleng(dm.Ver())==0)
- dm=null
- 否则
- 返回 真
- 如果结束
- 如果结束
- 资源路径=辅助.获取资源路径("rc:dm.dll")
- 辅助.命令("regsvr32 " & 资源路径 & " /s",真)
- dm=com("dm.dmsoft")
- 如果(str.strleng(dm.Ver())==0)
- dm=null
- 返回 假
- 否则
- 返回 真
- 如果结束
- 功能结束
复制代码 |