.版本 2
.支持库 shell
.程序集 窗口程序集_启动窗口
.子程序 __启动窗口_创建完毕
.局部变量 data, 文本型
data ＝ 读配置项 (取特定目录 (1) ＋ “\tcloud.ini”, “data”, “key”, )
.如果真 (data ≠ “”)
编辑框2.内容 ＝ 读配置项 (取特定目录 (1) ＋ “\tcloud.ini”, “data”, “key”, )
编辑框1.内容 ＝ 读配置项 (取特定目录 (1) ＋ “\tcloud.ini”, “data”, “id”, )
.如果真结束
.子程序 _编辑框3_鼠标左键被放开, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
.如果真 (编辑框3.内容 ＝ “要刷新的URL，一行一个”)
编辑框3.内容 ＝ “”
.如果真结束
.子程序 _按钮1_被单击
.局部变量 url, 文本型, , "0"
.局部变量 get_url, 文本型
.局部变量 计次, 整数型
.局部变量 data, 文本型
.局部变量 json, 类_json
url ＝ 分割文本 (删全部空 (编辑框3.内容 ＋ #换行符), #换行符, )
.如果真 (取数组成员数 (url) ＜ 1)
返回 ()
.如果真结束
.计次循环首 (取数组成员数 (url), 计次)
.如果 (寻找文本 (url [计次], “http”, , 真) ≠ -1)
.如果真 (单选框1.选中 ＝ 真)
get_url ＝ “https://api.mlwei.com/tcloud/api/cdn/RefreshCdnUrl.php?key=” ＋ 编辑框2.内容 ＋ “&id=” ＋ 编辑框1.内容 ＋ “&url=” ＋ url [计次]
.如果真结束
.如果真 (单选框2.选中 ＝ 真)
get_url ＝ “https://api.mlwei.com/tcloud/api/cdn/RefreshCdnDir.php?key=” ＋ 编辑框2.内容 ＋ “&id=” ＋ 编辑框1.内容 ＋ “&type=1&url=” ＋ url [计次]
.如果真结束
.如果真 (单选框3.选中 ＝ 真)
get_url ＝ “https://api.mlwei.com/tcloud/api/cdn/RefreshCdnDir.php?key=” ＋ 编辑框2.内容 ＋ “&id=” ＋ 编辑框1.内容 ＋ “&type=2&url=” ＋ url [计次]
.如果真结束
data ＝ 到文本 (网页_访问 (get_url, , , , , , , , , , ))
json.解析 (data)
.如果 (json.取通用属性 (“codeDesc”, ) ＝ “Success”)
编辑框4.加入文本 (url [计次] ＋ “ 【刷新成功.】” ＋ #换行符)
.否则
编辑框4.加入文本 (url [计次] ＋ “ 【刷新失败.】” ＋ #换行符)
.如果结束
.否则
编辑框4.加入文本 (url [计次] ＋ “ 【域名格式错误.】” ＋ #换行符)
.如果结束
.计次循环尾 ()
写配置项 (取特定目录 (1) ＋ “\tcloud.ini”, “data”, “id”, 编辑框1.内容)
写配置项 (取特定目录 (1) ＋ “\tcloud.ini”, “data”, “key”, 编辑框2.内容)
原文链接：https://blog.csdn.net/weixin_31486289/article/details/117727071?ops_request_misc=%257B%2522request%255Fid%2522%253A%2522167042854316782388022318%2522%252C%2522scm%2522%253A%252220140713.130102334.pc%255Fblog.%2522%257D&request_id=167042854316782388022318&biz_id=0&utm_medium=distribute.pc_search_result.none-task-blog-2~blog~first_rank_ecpm_v1~times_rank-8-117727071-null-null.nonecase&utm_term=%E6%98%93%E8%AF%AD%E8%A8%80%E6%BA%90%E7%A0%81
