怎么获取跳转后真实地址

╰洛克王国攻略

信仰_ 发表于 2025-8-8 15:40
你循环代码的问题，我刚测试循环一千条，每条都能取出来

不知道我为什么，直接定义网址时可以获取到地址，但是从超级列表框获取到的地址就不能获取，不知道那里问题

信仰_

╰洛克王国攻略 发表于 2025-8-8 20:22
不知道我为什么，直接定义网址时可以获取到地址，但是从超级列表框获取到的地址就不能获取，不知道那里问 ...

可能是你超级列表框取标题没取正确，可以上传源码方便解决问题

╰洛克王国攻略

信仰_ 发表于 2025-8-8 20:25
可能是你超级列表框取标题没取正确，可以上传源码方便解决问题

获取到了超级列表框里面的地址

.版本 2
.支持库 EThread
.支持库 iext
.支持库 spec

.子程序 _按钮1_被单击

启动线程 (&子程序1, , )
标签14.标题 ＝ “数据获取中，请稍等..”

.子程序 子程序1, , 公开
.局部变量 万维网, 文本型
.局部变量 正则, 正则表达式类
.局部变量 i, 整数型
.局部变量 l, 整数型
.局部变量 x, 文本型, , "0"
.局部变量 x1, 文本型, , "0"
.局部变量 wj, 文本型
.局部变量 i1, 整数型

万维网 ＝ 编码_utf8到gb2312 (网页_访问S (“” ＋ 编辑框5.内容, 0))
.如果真 (万维网 ＝ “”)
    信息框 (“未获取到数据”, 0, “获取数据失败”, )
    返回 ()
.如果真结束

写到文件 (编辑框5.内容 ＋ “.m3u8”, 到字节集 (网页_访问S (文本_取出中间文本 (万维网, #引号 ＋ “url” ＋ #引号 ＋ “: ” ＋ #引号, #引号 ＋ “,”), 0)))
wj ＝ 到文本 (读入文件 (编辑框5.内容 ＋ “.m3u8”))
x ＝ 分割文本 (wj, “#”, )
.计次循环首 (取数组成员数 (x), i)
    l ＝ 超级列表框1.插入表项 (, , , , , )
    .如果 (寻找文本 (x , “,”, , 假) ≠ 1)
        x1 ＝ 分割文本 (x , “,”, )
        .计次循环首 (取数组成员数 (x1), i1)
            .如果 (寻找文本 (x1 [i1], “https”, , 假) ≠ 1)
                超级列表框1.置标题 (l, 1, x1 [i1])
            .否则
                调试输出 (“不包含”)
                超级列表框1.置标题 (l, 1, “#” ＋ x1 [i1] ＋ “,”)
            .如果结束

        .计次循环尾 ()

    .否则
        超级列表框1.置标题 (l, 1, “#” ＋ x )

    .如果结束


.计次循环尾 ()
延时 (1000)

提交是否成功 ()


.子程序 提交是否成功, , 公开
.局部变量 是否成功, 文本型
.局部变量 i, 整数型
.局部变量 回原始数据, 文本型
.局部变量 str, 文本型
.局部变量 返回协议, 文本型
.局部变量 图片地址, 文本型
.局部变量 网址, 文本型

编辑框4.内容 ＝ “”
.计次循环首 (超级列表框1.取表项数 (), i)

    .如果 (寻找文本 (超级列表框1.取标题 (i － 1, 1), “https://”, , 假) ≠ -1)
        网址 ＝ 子文本替换 (编码_utf8到gb2312 (文本_删首尾空 (超级列表框1.取标题 (i － 1, 1))), #换行符, “”, , , 真)
        调试输出 (网址)
        str ＝ 到文本 (网页_访问 (网址, 0, , , , , 返回协议, 真, , , , , , ))
        调试输出 (返回协议)
        图片地址 ＝ 文本_取出中间文本 (返回协议, “Location: ”, #换行符, , )
        调试输出 (图片地址)
        回原始数据 ＝ 图片地址 ＋ #换行符
        延时 (1000)
    .否则

        回原始数据 ＝ 超级列表框1.取标题 (i － 1, 1) ＋ #换行符
    .如果结束

    超级列表框1.置标题 (i － 1, 2, 是否成功)
    编辑框4.加入文本 (到文本 (回原始数据))
.计次循环尾 ()
延时 (1000)
标签14.标题 ＝ “提交完成”
延时 (5000)



补充内容 (2025-8-8 20:34):
api地址我删除了