zm.GetIPNet 获取外网IP

文章目录

1. 1. 功能
2. 2. 语法
3. 3. 参数
4. 4. 返回值
5. 5. 示例
6. 6. 备注

功能

获取外网IP地址等信息, 根据参数决定返回内容

语法

结果 = zm.GetIPNet([返回格式[, 接口[, 缓存 ] ] ])

参数

参数	数据类型	解释
返回格式	数值型	可选, 填写0表示只返回ip地址字符串, 填写大于0的数字表示返回详细信息表, 包括省份等内容, 不同数字代表不同接口的返回值, 省略默认为0
接口	数值型	可选, 仅在返回格式为0时有效, 0时表示随机接口, 大于0时表示指定接口, 不同数值代表不同接口, 省略默认为0
缓存	布尔型	可选, 是否强制获取最新数据, true是刷新缓存获取最新数据, false是以接口自身设定为准, 省略默认为false

返回值

字符串 或 表 , 返回ip或详细信息表, 由参数返回格式决定返回内容, 失败返回null

示例

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

//强烈建议使用默认参数直接获取ip, 内置数十个接口, 保证稳定性
Dim ip = zm.GetIPNet()
TracePrint "我的ip是:", ip

//不同接口的返回值格式与内容均有所不同, 由于部分接口可能不稳定, 故不推荐使用此方法
Dim ipt
For i = 1 to 7
  ipt = zm.GetIPNet(i)
  If ipt Then
    TracePrint "接口", i, zm.VarInfo(ipt)
  Else
    TracePrint "接口", i, "获取ip失败"
  End If
Next

备注

• V1.1818: 加入命令
• V3.1833: 增加多个接口, 提高获取ip稳定性
• V4.2015: 更新部分接口
• V4.2025: 取消内置失败时循环获取功能, 加入接口参数
• v4.2118: 加入是否强制刷新缓存参数