|
|

楼主 |
发表于 2026-6-3 07:07:15
|
显示全部楼层
安徽省芜湖市
|
#在这里快速回复#.版本 2 .程序集 入口 .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行 .如果 (系统_是否已联网 () = 真) 写入配置文件 () 系统_禁用DPI缩放 () 载入 (主窗口, , 假) .否则 提示框 (“请检查网络是否连接正常!”, , “温馨提示:”, , 3000) .如果结束 返回 (0) ' 可以根据您的需要返回任意数值 .子程序 写入配置文件, 文本型 .局部变量 云API, 文本型 .局部变量 返回状态码, 整数型 .局部变量 局_有效, 文本型, , "0" .局部变量 局_名称, 文本型, , "0" .局部变量 局_地址, 文本型, , "0" .局部变量 i, 整数型 云API = 到文本 (编码_编码转换对象 (网页_访问_对象 (#云API地址, 0, , , , #协议头, , 返回状态码, , , , , , , , , , , ), , , )) .如果真 (文件是否存在 (取运行目录 () + “\配置.ini”) = 假) 局_名称 = 分割文本 (#视频官网, #换行符, ) .计次循环首 (取数组成员数 (局_名称), i) 局_地址 = 分割文本 (局_名称 [i], “|”, ) 写配置项 (取运行目录 () + “\配置.ini”, “视频官网”, 局_地址 [1], 局_地址 [2]) .计次循环尾 () .如果 (返回状态码 = 200 且 云API ≠ “”) 局_名称 = 分割文本 (云API, #换行符, ) .计次循环首 (取数组成员数 (局_名称), i) 局_地址 = 分割文本 (局_名称 [i], “|”, ) .如果真 (局_地址 [1] = “1”) 写配置项 (取运行目录 () + “\配置.ini”, “解析接口”, 局_地址 [2], 局_地址 [3]) .如果真结束 .计次循环尾 () 返回 (“播放线路更新成功。”) .否则 局_名称 = 分割文本 (#解析接口, #换行符, ) .计次循环首 (取数组成员数 (局_名称), i) 局_地址 = 分割文本 (局_名称 [i], “|”, ) 写配置项 (取运行目录 () + “\配置.ini”, “解析接口”, 局_地址 [1], 局_地址 [2]) .计次循环尾 () 返回 (“获取在线接口失败,将采用软件默认的接口” + #换行符 + “接口是否有效自行测试!”) .如果结束 .如果真结束 返回 (“0”)点击运行后就出现图片的那个样子 |
|