.版本 2 .支持库 spec .程序集 窗口程序集_窗口1 .程序集变量 链接文本, 文本型 .子程序 _窗口1_创建完毕 .子程序 _按钮1_被单击 线程_启动 (&获取重要参数) .子程序 获取重要参数 .局部变量 网页源码, 文本型 .局部变量 obj, 文本型 .局部变量 list, 文本型 .局部变量 t, 文本型, , , 提交参数 .局部变量 id, 文本型 .局部变量 计次, 整数型 .局部变量 json1, 类_json .局部变量 json2, 类_json .局部变量 nexturl, 文本型 .局部变量 nowurl, 文本型 .局部变量 f, 文本型 nexturl ＝ 编辑框2.内容 链接文本 ＝ “” .判断循环首 (nexturl ≠ “”) 网页源码 ＝ 编码_utf8到gb2312 (到文本 (网页_访问_对象 (编辑框1.内容 ＋ nexturl, 0, , , , 编辑框3.内容, ))) obj ＝ 文本_取出中间文本 (网页源码, #obj, #引号) list ＝ 文本_取出中间文本 (网页源码, “aspx?List=”, #引号) json1.解析 (文本_取出中间文本 (网页源码, “WPQ1ListData =”, “;var WPQ1SchemaData”)) nowurl ＝ nexturl nexturl ＝ json1.取通用属性 (“NextHref”) .计次循环首 (json1.成员数 (“Row”), 计次) id ＝ json1.取通用属性 (“Row[” ＋ 到文本 (计次 － 1) ＋ “].ID”) t ＝ 文本_替换 (#CreateAnonymousLinkWithExpiration, , , , “{OBJ}”, obj, “{LIST}”, list, “{ID}”, id) f ＝ 编码_utf8到gb2312 (到文本 (网页_访问_对象 (“https://x99m-my.sharepoint.com/personal/lspgo_txqq_me/_api/SP.Web.CreateAnonymousLinkWithExpiration”, 1, t, , , 编辑框3.内容))) json2.解析 (f) 调试输出 (f, id) .如果 (json2.取通用属性 (“d.CreateAnonymousLinkWithExpiration”) ≠ “”) 链接文本 ＝ 链接文本 ＋ #换行符 ＋ json2.取通用属性 (“d.CreateAnonymousLinkWithExpiration”) ＋ “?download=1” .否则 信息框 (“请更换协议头”, 0, , ) nexturl ＝ nowurl 跳出循环 () .如果结束 .计次循环尾 () json1.清除 () json2.清除 () .判断循环尾 () 置剪辑板文本 (文本_删除空行 (链接文本)) 调试输出 (“ok”) .子程序 _按钮2_被单击 .局部变量 数据组, 文本型, , "0" .局部变量 计次, 整数型 .局部变量 数据, 文本型 数据组 ＝ 分割文本 (到文本 (读入文件 (编辑框4.内容)), #换行符, ) 数组_去重复 (数据组) .计次循环首 (取数组成员数 (数据组), 计次) 数据 ＝ 数据 ＋ #换行符 ＋ 数据组 [计次] .计次循环尾 () 置剪辑板文本 (数据) 调试输出 (“ok”)