.版本 2 .支持库 RegEx .支持库 edroptarget .支持库 iext .程序集 窗口程序集_启动窗口 .程序集变量 url, 文本型, , "0" .程序集变量 数量, 整数型 .程序集变量 正则, 正则表达式 .程序集变量 启动时间, 整数型 .程序集变量 运行时间, 整数型 .程序集变量 头, 文本型, , , 本源码来自三叶资源网(www.sanye.cx) .子程序 __启动窗口_创建完毕 拖放对象1.注册拖放控件 (取窗口句柄 ()) 网址 ＝ “//api.t.sina.com.cn/short_url/shorten.json?source=3271760578&url_long=” .子程序 _拖放对象1_得到文件 .参数 接收到的文件路径, 文本型 编辑框1.内容 ＝ “” 编辑框2.内容 ＝ “” 编辑框1.加入文本 (到文本 (读入文件 (接收到的文件路径)) ＋ #换行符) url ＝ 分割文本 (编辑框1.内容, #换行符, ) 数量 ＝ 取数组成员数 (url) 透明标签1.标题 ＝ “总链接数量：” ＋ 到文本 (数量) .子程序 转换 .局部变量 i, 整数型 .如果真 (数量 ＝ 0) 编辑框2.加入文本 (到文本 (网页_访问 (网址 ＋ 头 ＋ 编辑框1.内容))) .如果真结束 .计次循环首 (数量, i) 编辑框2.加入文本 (到文本 (网页_访问 (网址 ＋ 头 ＋ url [i], , , , , , , , , ))) .计次循环尾 () .子程序 正则开始 .局部变量 结果, 搜索结果, , "0" .局部变量 n, 整数型 正则.创建 (#正则语句, 假) 结果 ＝ 正则.搜索全部 (编辑框2.内容) .计次循环首 (取数组成员数 (结果), n) 编辑框3.加入文本 (结果 [n].取子匹配文本 (编辑框2.内容, 1, ) ＋ #换行符) .计次循环尾 () .子程序 时间计算 .如果真 (运行时间 ÷ 1000 ≥ 60) 透明标签2.标题 ＝ “总用时：” ＋ 到文本 (运行时间 ÷ 1000) ＋ “分” .如果真结束 .如果真 (运行时间 ÷ 1000 ≥ 3600) 透明标签2.标题 ＝ “总用时：” ＋ 到文本 (运行时间 ÷ 1000) ＋ “时” .如果真结束 透明标签2.标题 ＝ “总用时：” ＋ 到文本 (运行时间 ÷ 1000) ＋ “秒” .子程序 _按钮2_被单击, , , 本源码来自三叶资源网(www.sanye.cx) 置剪辑板文本 (编辑框3.内容) .子程序 _按钮4_被单击 头 ＝ “//” 启动时间 ＝ 取启动时间 () 转换 () 正则开始 () 运行时间 ＝ 取启动时间 () － 启动时间 时间计算 () .子程序 _按钮5_被单击 头 ＝ “” 启动时间 ＝ 取启动时间 () 转换 () 正则开始 () 运行时间 ＝ 取启动时间 () － 启动时间 时间计算 () .子程序 _按钮1_被单击 编辑框1.内容 ＝ “” 编辑框2.内容 ＝ “” 编辑框3.内容 ＝ “” .子程序 _按钮3_被单击 提示框 (#使用说明) 本源码来自三叶资源网(www.sanye.cx)