新人求关于VB如何获得ADSL公网IP的方法
因为我们现在所使用的ADSL一般为拨号形式,而且会有两个地址,其中一个是系统分配的类似169.254.133.135,当我们使用Winsock的LocalIP时就有问题,它回显示169.254.133.135,而不会显示我们的真实IP
使用Winsock的LocalIP, 只能对固定ip的网络正确有效, 但ADSL拨号形式的ip一个是系统分配的,用WINSOCK只能得到这个错的ip, 请给个获得公网IP的源代码.
我在百度上找到一个源代码,但是有问题. 大家也可以借鉴一下, 谢谢了!
http://blog.tom.com/blog/read.php?bloggerid=162189&blogid=28811 (代码在附件中)
[解决办法]
添加一个INET控件,然后调用如下代码:
txtData.Text = Inet1.OpenURL( "http://www.m5home.com/myip/ ")
txtData.Text里就是你现在的公网IP