win7宽带自动连接器（自动识别网络连接状态）

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[0]
        Else
                $Html = BinaryToString(InetRead("http://www.myip.cn/",1))
                $IP = StringRegExp($Html, "\d+\.\d+\.\d+\.\d+", 3)
                If @error = 0 Then
                        Return $IP[0]
                Else
                        Return 0
                EndIf
        EndIf
EndFunc

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

感谢二楼

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

[code][/code]

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

不知道好好好好

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

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

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

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

看看什么内容呢

		自动登录	找回密码
密码			加入

[原创] win7宽带自动连接器（自动识别网络连接状态）