|
发表于 2020-2-26 08:05:30
|
显示全部楼层
浙江省宁波市
.版本 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)
|
|