freedom 发表于 2011-11-13 19:31:31

回复 15# yangysky

获取公网IP

komaau3 发表于 2011-11-13 20:23:54

回复 15# yangysky


原理大概是通过访问某个个外部IP网站得到的，类似这样的

Func _IP_config()
        Local $Html, $IP
        $Html = BinaryToString(InetRead("http://www.123cha.com/",1))
        $IP = StringRegExp($Html, "\d+\.\d+\.\d+\.\d+", 3)
        If @error = 0 Then
                Return $IP
        Else
                $Html = BinaryToString(InetRead("http://www.myip.cn/",1))
                $IP = StringRegExp($Html, "\d+\.\d+\.\d+\.\d+", 3)
                If @error = 0 Then
                        Return $IP
                Else
                        Return 0
                EndIf
        EndIf
EndFunc

942991917 发表于 2011-12-21 16:13:47

感谢二楼{:face (427):}

jilk168 发表于 2011-12-21 17:31:23

^^^^^^^^^^^^^^^^^^^^^^

wangqiang 发表于 2012-2-24 16:36:49

这样太强大了吧？

wangqiang 发表于 2012-2-24 16:36:55

收下了，很喜欢

qwg192800 发表于 2012-12-2 17:23:02

看看什么内容呢

qwg192800 发表于 2012-12-2 17:23:19

{:face (382):}

qwg192800 发表于 2012-12-2 17:23:54

{:face (382):}不知道好好好好

qwg192800 发表于 2012-12-2 17:24:02

。。。。。。。。。。。。

qwg192800 发表于 2012-12-2 17:24:08

{:face (113):}

lonkystar 发表于 2012-12-19 22:55:35

程序好简单的说

autoer 发表于 2012-12-27 22:18:55

貌似不错了，实施。。。

link369 发表于 2013-2-5 23:06:55

高科技。。。。

gzguolei 发表于 2013-5-5 13:44:22

看看什么内容呢
页: 1 [2] 3
查看完整版本: win7宽带自动连接器（自动识别网络连接状态）