请问各位大佬ip是否有效怎么写

suisuinian

网上买的ip过期了老是忘，想写一个测试ip是否失效的，失效了提示一下

Marvin

用精易模块

1.e (1.05 MB, 下载次数: 1)

2026-7-22 10:14 上传

点击文件名下载附件

Marvin

suisuinian

不太行..........

suisuinian

Marvin 发表于 2026-7-22 10:26

不太行，图片在楼下了

Marvin

suisuinian 发表于 2026-7-22 12:31
不太行，图片在楼下了

你这ip地址可以ping的通，那肯定没用啊，我看你截图上面有到期时间，你可以设置下，到期前的2天内，设置个提醒到期不就可以了吗

Marvin

suisuinian 发表于 2026-7-22 12:31
不太行，图片在楼下了

失效是指在ping不通的情况下，你这个能ping通不好判断，只能判断到期时间了

算法艺术家

我认为你需要的是一个计时器

韦贝贝

.                  

kk4648

.版本 2

.子程序 __启动窗口_创建完毕

代理存活检测Demo (“127.0.0.1:12346”)

.子程序 代理存活检测Demo
.参数 代理地址, 文本型
.局部变量 失败次数, 整数型
.局部变量 检测计数, 整数型
.局部变量 状态码, 整数型
.局部变量 返回文本, 文本型

失败次数 ＝ 0
检测计数 ＝ 0
.判断循环首 (真)

    返回文本 ＝ 编码_Utf8到Ansi (网页_访问_对象 (“https://api.ipify.org”, 0, , , , , , 状态码, , , 代理地址, 5, , , , , , , ))

    .如果 (状态码 ＝ 200 且 寻找文本 (返回文本, “.”, , 假) ≠ -1)
        检测计数 ＝ 检测计数 ＋ 1
        .如果 (检测计数 ≤ 3 或 检测计数 ％ 20 ＝ 0)
            输出调试文本 (“[” ＋ 到文本 (检测计数) ＋ “] 网络监控正常!”)
        .否则

        .如果结束
        失败次数 ＝ 0
    .否则
        失败次数 ＝ 失败次数 ＋ 1
    .如果结束

    .如果真 (失败次数 ≥ 5)
        输出调试文本 (“警报：网络超时超过5次，停止监控”)
        返回 ()
    .如果真结束

    程序_延时 (1000, 0)  ' 1秒一次
.判断循环尾 ()