软件在崩溃后会出现一个错误报告提交的对话框，可以通过网络向开发商提交一些运行时的数据。
从而能及时修复软件自身的缺陷，让你的软件越来越完美。
.版本 2
.子程序 错误报告管理, , 公开
.参数 程序接口, 文本型, , 定义每个子程序的标识
.参数 程序版本, 文本型, , 程序的版本
.参数 解决方案, 文本型, 可空, 比如联系电话:010-00000000
.参数 错误声明, 文本型, 可空
.参数 发送错误报告, 逻辑型, 可空, 真为发送
程_程序接口 ＝ 程序接口
程_程序版本 ＝ 程序版本
程_解决方案 ＝ #换行符 ＋ “解决方案：” ＋ 解决方案
程_错误声明 ＝ #换行符 ＋ “错误声明：” ＋ 错误声明
程_发送错误报告 ＝ 发送错误报告
.如果真 (是否为空 (解决方案))
程_解决方案 ＝ “”
.如果真结束
.如果真 (是否为空 (错误声明))
程_错误声明 ＝ “”
.如果真结束
.如果真 (是否为空 (发送错误报告))
程_发送错误报告 ＝ 假
.如果真结束
置错误提示管理 (&错误报告)
.子程序 错误报告, 逻辑型
.参数 错误代码, 整数型
.参数 错误文本, 文本型
.判断开始 (程_发送错误报告 ＝ 假)
信息框 (“程序遇到未知致命错误，程序将被关闭，给您带来不便深感抱歉：” ＋ #换行符 ＋ “错误代码：” ＋ 到文本 (错误代码) ＋ #换行符 ＋ “错误文本：” ＋ 错误文本 ＋ #换行符 ＋ “程序接口：” ＋ 程_程序接口 ＋ #换行符 ＋ “程序版本：” ＋ 程_程序版本 ＋ 程_解决方案 ＋ 程_错误声明, #错误图标, “致命的错误”)
.默认
.如果真 (信息框 (“程序遇到未知致命错误，是否给提交错误报告信息？” ＋ #换行符 ＋ “错误代码：” ＋ 到文本 (错误代码) ＋ #换行符 ＋ “错误文本：” ＋ 错误文本 ＋ #换行符 ＋ “程序接口：” ＋ 程_程序接口 ＋ #换行符 ＋ “程序版本：” ＋ 程_程序版本 ＋ 程_解决方案 ＋ 程_错误声明, 4 ＋ #询问图标, “是否发送错误报告？”) ＝ #是钮)
.如果真结束
.判断结束
结束 ()
返回 (真)
