一个cha询本地ip 附带地区的小软件

q7436665 · 发表于 2020-10-26 10:15:17

一个cha询本地ip 附带地区的小软件

53770zhang · 发表于 2020-10-26 10:22:39

自己写一个抓IP138的包或者找个免费接口

53770zhang · 发表于 2020-10-26 10:24:00

https://www.free-api.com/doc/90

sunshineliuc · 发表于 2020-10-26 11:10:04

精易模块有个网页_取wai网IP（）的命令，找源码，里面有接口，可以返回地区跟IP的

sunshineliuc · 发表于 2020-10-26 11:11:33

[e=0].版本 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：”, “”, , )
所在省市＝文本_取出中间文本 (局_返回, “所在地理位置：”, “”, , )
.判断 (接口＝ 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="" },="" ))="" '="" 引号

sunshineliuc · 发表于 2020-10-26 11:18:31

取IP和地址.e (849.22 KB, 下载次数: 2)

q7436665 · 发表于 2020-11-7 14:01:55

53770zhang 发表于 2020-10-26 10:24
https://www.free-api.com/doc/90

这个可以能提取出所有的ip吗？

q7436665 · 发表于 2020-11-7 14:03:51

53770zhang 发表于 2020-10-26 10:24
https://www.free-api.com/doc/90

有联系方式吗？ qq

q7436665 · 发表于 2020-11-7 14:04:20

sunshineliuc 发表于 2020-10-26 11:18

有联系方式吗？我要取所有的ip 不会有取不到的吧

q7436665 · 发表于 2020-11-7 14:04:44

sunshineliuc 发表于 2020-10-26 11:11
[e=0].版本 2

.子程序网页_取外网IP, 文本型, 公开, 取本机的外网IP

有联系方式qq吗？我要取ip 不会有的取不到吧

		自动登录	找回密码
密码			注册

[精币悬赏] 一个cha询本地ip 附带地区的 小软件

[精币悬赏] 一个cha询本地ip 附带地区的小软件