快手解析源码和过程非第三方源码

.版本 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.初始目录 ＝ 取运行目录 ()

@等什么卿