.版本 2 .支持库 spec .程序集 程序集1 .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行 .局部变量 l_content, 文本型 .局部变量 l_time, 整数型 l_time ＝ 取启动时间 () 识别任务 (“&aid=16&uin=&sid=&cap_cd=”) .循环判断首 () l_content ＝ 识别结果 () 调试输出 (l_content) .如果真 (l_content ＝ “”) 延迟 (1000) .如果真结束 .循环判断尾 (l_content ＝ “”) 调试输出 (取启动时间 () － l_time) 返回 (0) ' 可以根据您的需要返回任意数值 .子程序 识别结果, 文本型 .局部变量 l_handle, 整数型 .局部变量 l_content, 文本型 l_handle ＝ 打开文件 (取运行目录 () ＋ “\识别结果.txt”, 6, 1) 移到文件首 (l_handle) l_content ＝ 读入一行 (l_handle) 移到文件首 (l_handle) 删除数据 (l_handle, 取文本长度 (l_content) ＋ 2) 关闭文件 (l_handle) 返回 (l_content) .子程序 识别任务, 逻辑型 .参数 p_content, 文本型 .局部变量 l_handle, 整数型 l_handle ＝ 打开文件 (取运行目录 () ＋ “\识别任务.txt”, 6, 1) .如果真 (l_handle ＞ 0) 移到文件尾 (l_handle) 写文本行 (l_handle, p_content) 关闭文件 (l_handle) .如果真结束 返回 (l_handle ＞ 0)