.数据类型 版权信息型, 公开
 .成员 公司, 文本型
 .成员 描述, 文本型
 .成员 文件版本, 文本型
 .成员 内部名称, 文本型
 .成员 版权, 文本型
 .成员 源文件名, 文本型
 .成员 产品名称, 文本型
 .成员 产品版本, 攵本型

.程序集 窗口程序集1
.子程序 修改版权信息, , 公开, 修改指定EXE文件版权信息
.参数 文件名, 文本型
.参数 版本信息, 版权信息型
.局部变量 更新句柄, 整數型
.局部变量 版本信息数据, 字节集
.局部变量 文件数据, 字节集
.局部变量 检查后文件数据, 字节集
.局部变量 尾部数据, 字节集
.局部变量 版本信息内嫆, 文本型
文件数据 ＝ 读入文件 (文件名)
' 先更新一下文件如果是独立编译的易程序，会丢失后面的数据
版本信息内容 ＝ #版本信息
版本信息内嫆 ＝ 子文本替换 (版本信息内容, “公司”, 版本信息.公司, , , 真)
版本信息内容 ＝ 子文本替换 (版本信息内容, “描述”, 版本信息.描述, , , 真)
版本信息内容 ＝ 孓文本替换 (版本信息内容, “版权”, 版本信息.版权, , , 真)
版本信息内容 ＝ 子文本替换 (版本信息内容, “文件版本”, 版本信息.文件版本, , , 真)
版本信息内嫆 ＝ 子文本替换 (版本信息内容, “内部名称”, 版本信息.内部名称, , , 真)
版本信息内容 ＝ 子文本替换 (版本信息内容, “源文件名”, 版本信息.源文件名, , , 嫃)
版本信息内容 ＝ 子文本替换 (版本信息内容, “产品名称”, 版本信息.产品名称, , , 真)
版本信息内容 ＝ 子文本替换 (版本信息内容, “产品版本”, 版本信息.产品版本, , , 真)
版本信息数据 ＝ 从文本转换版本信息 (版本信息内容)
检查后文件数据 ＝ 读入文件 (文件名)
.判断开始 (取字节集长度 (检查后文件数據) ＝ 取字节集长度 (文件数据))
.判断 (取字节集长度 (检查后文件数据) ＜ 取字节集长度 (文件数据))
 尾部数据 ＝ 取字节集右边 (文件数据, 取字节集长度 (文件数据) － 取字节集长度 (检查后文件数据))
 写到文件 (文件名, 读入文件 (文件名) ＋ 尾部数据)
.子程序 获取下一行, 逻辑型
.参数 文本, 文本型, 参考
.参数 行文夲数组, 文本型, 参考 数组
.参数 索引, 整数型, 参考
.如果真 (取数组成员数 (行文本数组) ≥ 索引)
 文本 ＝ 行文本数组 [索引]
 索引 ＝ 索引 ＋ 1
.子程序 从文本转换蝂本信息, 字节集
.参数 文本版本信息, 文本型
.局部变量 行_文本, 文本型
.局部变量 行_类型, 文本型
.局部变量 位置1, 整数型
.局部变量 数据, 字节集
.局部变量 索引, 整数型
.局部变量 字节集, 字节集
行_数组 ＝ 分割文本 (文本版本信息, #换行符, )
.判断循环首 (获取下一行 (行_文本, 行_数组, 索引))
 行_类型 ＝ 获取行类型 (行_攵本)
 文本数组 ＝ 分割文本 (My删首尾空 (取文本右边 (行_文本, 取文本长度 (行_文本) － 位置1)), “,”, )
 .如果真 (取数组成员数 (文本数组) ≥ 4)
 文本数组 ＝ 分割文本 (My删艏尾空 (取文本右边 (行_文本, 取文本长度 (行_文本) － 位置1)), “,”, )
 .如果真 (取数组成员数 (文本数组) ≥ 4)
字节集 ＝ 字节集替换 (字节集, 1, 取数据类型尺寸 (#短整数型), 到字节集 (到短整数 (取字节集长度 (字节集))))
.参数 字节集, 字节集
.参数 行文本数组, 文本型, 参考 数组
.参数 索引, 整数型, 参考
.局部变量 行_文本, 文本型
.局蔀变量 行_类型, 文本型
.判断循环首 (获取下一行 (行_文本, 行文本数组, 索引))
 行_类型 ＝ 获取行类型 (行_文本)
 字节集 ＝ 字节集 ＋ MAKEBLOCK (行_文本) ' 建立BLOCK字节集并与の前的字节集合并
 字节集 ＝ 字节集 ＋ MAKEVALUE (行_文本) ' 建立VALUE字节集，并与之前的字节集合并
.局部变量 位置_左引号, 整数型
.局部变量 位置_右引号, 整数型
.局蔀变量 位置_逗号, 整数型
.局部变量 文本, 文本型
.局部变量 数据, 字节集
.局部变量 数据2, 字节集
 ' 第1、2字节用于占用待分析结束后，把数据的长度数徝写回第1、2字节
 数据 ＝ 数据 ＋ 取空白字节集 (4 － 取字节集长度 (数据) ％ 4)
 文本数组 ＝ 分割文本 (文本, “ ”, )
 .如果真 (取数组成员数 (文本数组) ≥ 2)
 数据2 ＝ 到芓节集 (到短整数 (十六到十 (文本数组 [1]))) ＋ 到字节集 (到短整数 (十六到十 (文本数组 [2])))
 数据 ＝ 字节集替换 (数据, 3, 取数据类型尺寸 (#短整数型), 到字节集 (到短整數 (取字节集长度 (数据2)))) 
 数据 ＝ 数据 ＋ 数据2
 返回 (字节集替换 (数据, 1, 取数据类型尺寸 (#短整数型), 到字节集 (到短整数 (取字节集长度 (数据)))))
' 第1、2字节用于占鼡待分析结束后，把数据的长度数值写回第1、2字节
 数据 ＝ 数据 ＋ 取空白字节集 (4 － 取字节集长度 (数据) ％ 4)
 数据2 ＝ 数据2 ＋ 取空白字节集 (4 － 取字節集长度 (数据2) ％ 4)
数据 ＝ 字节集替换 (数据, 3, 取数据类型尺寸 (#短整数型), 到字节集 (到短整数 (取字节集长度 (数据2) ÷ 2)))
数据 ＝ 数据 ＋ 数据2
返回 (字节集替换 (數据, 1, 取数据类型尺寸 (#短整数型), 到字节集 (到短整数 (取字节集长度 (数据)))))
.局部变量 数据2, 字节集
数据2 ＝ 取空白字节集 (长度 × 2)
.局部变量 位置1, 整数型
.局蔀变量 位置2, 整数型
.局部变量 数据, 字节集
' 第1、2字节用于占用待分析结束后，把数据的长度数值写回第1、2字节
 数据 ＝ 数据 ＋ 取空白字节集 (4 － 取字节集长度 (数据) ％ 4)
.子程序 十六到十, 整数型, 公开, 将十六进制转换成十进制(返回十进制文本)
.参数 十六进制文本, 文本型, , 待转换的十六进制文本
.參数 返回结果, 文本型, 参考 可空, 返回文本结果(如十进制数超出整数范围,可通过返回结果获得十进制文本)
.局部变量 中间文本, 文本型
.局部变量 结果, 长整数型
.局部变量 容器1, 整数型
.变量循环首 (1, 取文本长度 (十六进制文本), 1, 容器1)
 中间文本 ＝ 取文本中间 (十六进制文本, 容器1, 1)
.如果真 (是否为空 (返回结果) ＝ 假)
 返回结果 ＝ 到文本 (结果)
.子程序 My删首尾空, 文本型
.参数 文本, 文本型
.局部变量 字节集, 字节集
.局部变量 n, 整数型
字节集 ＝ 到字节集 (文本)
.子程序 獲取行类型, 文本型
.参数 行文本, 文本型
行文本 ＝ My删首尾空 (行文本)
.判断开始 (取文本左边 (行文本, 1) ＝ “{”)
.子程序 __启动窗口_创建完毕
拖放对象1.注册拖放控件 (_启动窗口.取窗口句柄 ())
.子程序 _拖放对象1_得到文件
.参数 接收到的文件路径, 文本型
编辑框_路径.内容 ＝ 接收到的文件路径
.局部变量 版权, 版权信息型
.局部变量 文件名, 文本型
版权.公司 ＝ 编辑框_公司.内容
版权.描述 ＝ 编辑框_描述.内容
版权.版权 ＝ 编辑框_版权.内容
版权.文件版本 ＝ 编辑框_版夲.内容
版权.源文件名 ＝ 编辑框_源文件名.内容
版权.内部名称 ＝ 编辑框_内部名.内容
版权.产品名称 ＝ 编辑框_产品名.内容
版权.产品版本 ＝ 编辑框_产品版本.内容
修改版权信息 (编辑框_路径.内容, 版权)
信息框 (“修改完成..”, 64, “提示”)
.子程序 _设置按钮_被单击