.版本 2 .支持库 iext .支持库 internet .程序集 窗口程序集_启动窗口 .子程序 _按钮_解析_被单击 .局部变量 ret, 文本型 .局部变量 re, 正则表达式类 .局部变量 i, 整数型 .局部变量 url, 文本型 .局部变量 文件名, 文本型 .局部变量 短链接, 文本型 短链接 ＝ 文本_删首尾空 (编辑框_链接.内容) ret ＝ 编码_Utf8到Ansi (网页_访问_对象 (短链接, 0, , , , #ua, , , , , , , , , , , , , )) re.创建 (#url_正则, ret, , , , ) .计次循环首 (re.取匹配数量 (), i) url ＝ re.取子匹配文本 (i, 1, ) .计次循环尾 () .如果 (url ≠ “”) 状态条1.置文本 (0, “解析成功！”) 通用对话框1.打开 () 文件名 ＝ 通用对话框1.文件名 .如果 (文件名 ≠ “”) 写到文件 (文件名, HTTP读文件 (url)) 状态条1.置文本 (0, “保存成功！”) .否则 状态条1.置文本 (0, “放弃保存！”) .如果结束 .否则 状态条1.置文本 (0, “解析失败！”) .如果结束 通用对话框1.文件名 ＝ “” .子程序 __启动窗口_创建完毕 通用对话框1.初始目录 ＝ 取运行目录 ()