ADSL.取wai网IP ()

q132130

失效 麻烦更新下

项目部004

调用的是子程序 网页_取wai网IP ，里面提供了多个接口，请根据需要调用！

我冒得感情

感谢发布原创作品，精易因你更精彩！

易言语3

ADSL网络还有很多人用吗？

项目部004

亲！亲测没失效哦！

QQ协议

感谢了~~~~~~~~~~~~~~~~~~~

韦贝贝

.版本 2

.子程序 网页_取外网IP, 文本型, 公开, 取本机的外网IP
.参数 所在省市, 文本型, 可空, 可空。请提供一个文本变量，用于存放您所在的省市，注：有些接口无法取出城市
.参数 接口, 整数型, 可空, 可空。0、ip138；1、sohu；2、ttt.sh；3、ip.cn；4、taobao；5、uc；6、ip.sb；7、ipinfo
.局部变量 局_结果, 字节集
.局部变量 局_网址, 文本型
.局部变量 局_返回, 文本型
.局部变量 局_IP, 文本型

.判断开始 (接口 ＝ 1)
    局_网址 ＝ “http://pv.sohu.com/cityjson”
    局_返回 ＝ 到文本 (网页_访问_对象 (局_网址, , , , , , , , , , , , , , , , , , ))
    局_IP ＝ 文本_取出中间文本 (局_返回, “cip” ＋ #引号 ＋ “: ” ＋ #引号, #引号 ＋ “, ” ＋ #引号 ＋ “cid”, , )
    所在省市 ＝ 文本_取出中间文本 (局_返回, “cname” ＋ #引号 ＋ “: ” ＋ #引号, #引号 ＋ “};”, , )
.判断 (接口 ＝ 2)
    局_网址 ＝ “https://api.ttt.sh/ip/qqwry/”
    局_返回 ＝ 编码_Utf8到Ansi (网页_访问_对象 (局_网址, , , , , , , , , , , , , , , , , , ))
    局_返回 ＝ 编码_usc2到ansi (局_返回)
    局_IP ＝ 文本_取出中间文本 (局_返回, “ip” ＋ #引号 ＋ “:” ＋ #引号, #引号, , )
    所在省市 ＝ 文本_取出中间文本 (局_返回, “address” ＋ #引号 ＋ “:” ＋ #引号, #引号, , )
.判断 (接口 ＝ 3)
    局_网址 ＝ “https://ip.cn/index.php”
    局_返回 ＝ 编码_Utf8到Ansi (网页_访问_对象 (局_网址, , , , , “User-Agent: Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/47.0.2526.80 Safari/537.36 Core/1.47.277.400 QQBrowser/9.4.7658.400”, , , , , , , , , , , , , ))
    局_IP ＝ 文本_取出中间文本 (局_返回, “您现在的 IP：<code>”, “</code>”, , )
    所在省市 ＝ 文本_取出中间文本 (局_返回, “所在地理位置：<code>”, “</code>”, , )
.判断 (接口 ＝ 4)
    局_网址 ＝ “http://ip.taobao.com/service/getIpInfo2.php?ip=myip”  ' 较慢且不一定可以取出
    局_返回 ＝ 编码_Utf8到Ansi (网页_访问_对象 (局_网址, , , , , , , , , , , , , , , , , , ))
    局_IP ＝ 文本_取出中间文本 (局_返回, “ip” ＋ #引号 ＋ “:” ＋ #引号, #引号, , )
    所在省市 ＝ 文本_取出中间文本 (局_返回, “region” ＋ #引号 ＋ “:” ＋ #引号, #引号, , ) ＋ “ ” ＋ 文本_取出中间文本 (局_返回, “city” ＋ #引号 ＋ “:” ＋ #引号, #引号, , )
.判断 (接口 ＝ 5)
    局_网址 ＝ “https://www.uc.cn/ip”
    局_返回 ＝ 编码_Utf8到Ansi (网页_访问_对象 (局_网址, , , , , , , , , , , , , , , , , , ))
    局_IP ＝ 文本_取右边 (局_返回, “IP:”, , )
    所在省市 ＝ “”  ' 返回无省市
.判断 (接口 ＝ 6)
    局_网址 ＝ “https://api.ip.sb/ip”
    局_返回 ＝ 到文本 (网页_访问_对象 (局_网址, , , , , , , , , , , , , , , , , , ))
    局_IP ＝ 文本_取左边 (局_返回, 字符 (10), , )
    所在省市 ＝ “”  ' 返回无省市
.判断 (接口 ＝ 7)
    局_网址 ＝ “https://ipinfo.io/json”
    局_返回 ＝ 网页_访问S (局_网址, , , , , , , , , , , , , , , , , , , , )
    局_IP ＝ 文本_取出中间文本 (局_返回, “ip” ＋ #引号 ＋ “: ” ＋ #引号, #引号, , )
    所在省市 ＝ “”  ' 返回无省市
.默认
    局_网址 ＝ “http://www.ip138.com”
    局_结果 ＝ 网页_访问_对象 (局_网址, , , , , , , , , , , , , , , , , , )
    局_网址 ＝ 到文本 (字节集_取中间 (局_结果, 到字节集 (“<iframe src=”) ＋ { 34 }, { 34 }, ))  ' 引号
    局_返回 ＝ 编码_Utf8到Ansi (网页_访问_对象 (局_网址, , , , , , , , , , , , , , , , , , ))
    局_IP ＝ 文本_取出中间文本 (局_返回, “您的IP地址是：”, “</title>”, , )
    所在省市 ＝ 文本_取出中间文本 (局_返回, “来自：”, #换行符 ＋ “</p>”, , )
.判断结束
返回 (局_IP)