- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [讨论]取外网IP地址 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=159432)
-- 发布时间：2020/12/26 14:49:00
-- [讨论]取外网IP地址
开发版,做个记录 抄 飞 的正则表达式
Dim hc As New HttpClient("https://ip.51240.com/")
Dim txt As String = hc.GetData()
\'MessageBox.Show(dt)
Dim pattern As String = "((2[0-4]\\d|25[0-5]|[01]?\\d\\d?)\\.){3}(2[0-4]\\d|25[0-5]|[01]?\\d\\d?)"
\'Dim txt = "13[246]57[98]1223"
Dim rgx = new System.Text.RegularExpressions.Regex(pattern, System.Text.RegularExpressions.RegexOptions.IgnoreCase)
\'For Each match As System.Text.RegularExpressions.Match In rgx.Matches(txt)
\'Output.Show(match.item(0).Value )
\'Next
Dim Matches As object = rgx.Matches(txt)
output.show( Matches.Item(0).Value)
此主题相关图片如下：ip.png
[此贴子已经被作者于2020/12/26 15:28:33编辑过]
-- 发布时间：2020/12/26 17:25:00
--
此主题相关图片如下：ip查询地址.png
这个地址应该每年都会有变化
下面这个最方便,可能会慢点
http://www.3322.org/dyndns/getip
此主题相关图片如下：3.png
[此贴子已经被作者于2020/12/26 17:30:34编辑过]
-- 发布时间：2020/12/26 23:03:00
--
在网上抄一个，放在空间上访问就能得到 IP 地址，这样方便多了
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:ip.zip |
<?php
function get_real_ip()
{
$ip=FALSE;
//客户端IP 或 NONE
if(!empty($_SERVER["HTTP_CLIENT_IP"])){
$ip = $_SERVER["HTTP_CLIENT_IP"];
}
//多重代理服务器下的客户端真实IP地址（可能伪造）,如果没有使用代理，此字段为空
if (!empty($_SERVER[\'HTTP_X_FORWARDED_FOR\'])) {
$ips = explode (", ", $_SERVER[\'HTTP_X_FORWARDED_FOR\']);
if ($ip) { array_unshift($ips, $ip); $ip = FALSE; }
for ($i = 0; $i < count($ips); $i++) {
if (!eregi ("^(10│172.16│192.168).", $ips[$i])) {
$ip = $ips[$i];
break;
}
}
}
//客户端IP 或 (最后一个)代理服务器 IP
return ($ip ? $ip : $_SERVER[\'REMOTE_ADDR\']);
}
echo get_real_ip()
?>
此主题相关图片如下：1.jpg
[此贴子已经被作者于2020/12/26 23:05:13编辑过]