.版本 2 .程序集 窗口程序集2 .子程序 _窗口1_创建完毕 .局部变量 机器码, 文本型 .局部变量 本机号, 文本型 机器码 ＝ 到文本 (位异或 (取硬盘特征字 (), 2649509991)) 本机号 ＝ 取文本注册项 (4, “SOFTWARE\世纪虹网络\SjhKey”, ) .如果 (机器码 ＝ 本机号) 标签3.标题 ＝ “已经注册为正式版本” .否则 .如果结束 SJH硬件号 ＝ 到文本 (位异或 (取硬盘特征字 (), 2649509991)) .子程序 _按钮1_被单击 客户1.连接 (编辑框1.内容, 675050911) 客户1.发送数据 (SJH硬件号 ＋ “&” ＋ 编辑框2.内容 ＋ “&” ＋ 到文本 (取现行时间 ()) ＋ “&” ＋ “语音Office2005” ＋ “&”) .子程序 _客户1_数据到达 .局部变量 验证消息, 文本型 验证消息 ＝ 到文本 (客户1.取回数据 ()) .如果真 (验证消息 ＝ “新注册”) 写注册项 (4, “SOFTWARE\世纪虹网络\SjhKey”, SJH硬件号) 标签3.标题 ＝ “已经注册为正式版本” 信息框 (“第一次注册成功，有效的验证注册码，感谢您使用正版的世纪虹软件！”, #信息图标 ＋ 0, “世纪虹网络”) .如果真结束 .如果真 (验证消息 ＝ “已注册”) 写注册项 (4, “SOFTWARE\世纪虹网络\SjhKey”, SJH硬件号) 标签3.标题 ＝ “已经注册为正式版本” 信息框 (“重新注册已经成功，有效的验证注册码，感谢您使用正版的世纪虹软件！”, #信息图标 ＋ 0, “世纪虹网络”) .如果真结束