[讨论]取外网IP地址 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

开发版,做个记录抄飞的正则表达式

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编辑过]

此主题相关图片如下：ip查询地址.png

http://2021.ip138.com/ic.asp

这个地址应该每年都会有变化

下面这个最方便,可能会慢点

http://www.3322.org/dyndns/getip

此主题相关图片如下：3.png

[此贴子已经被作者于2020/12/26 17:30:34编辑过]

在网上抄一个，放在空间上访问就能得到 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编辑过]

主题：[讨论]取外网IP地址