VB中获取电脑外网IP的源代码.docVIP

VB中获取电脑外网IP的源代码 大家知道每个能上网的电脑都拥有一个自己的IP，如果你是位于局域网呢，那么你的ip可能是192.168.***.***或者10.***.***.***之类的，这样的IP外网是无法访问的，只能在同一个网段之间互访。而这时在自己电脑的CMD上ipconfig /all看见自己的ip就是内网IP，而我们是以外网IP访问网络的，那么我们怎么获取外网IP呢？这需要我们访问一些专门的网站来获取。这里我收集了几个，拿来共享。 HYPERLINK /dyndns/getip \t _blank /dyndns/getip HYPERLINK /ip2city.asp \t _blank /ip2city.asp HYPERLINK /IpInfo.asp?sType=0 \t _blank /IpInfo.asp?sType=0 HYPERLINK /static/customercare/yourIP.asp \t _blank /static/customercare/yourIP.asp而在编程时我们可以使用多个网址来确保自己的程序显示IP正确，当一个不能反馈IP时就试着从另外一个网站获取。给段代码供参考 获取公网IPPrivate Declare Function InternetOpen Lib wininet.dll Alias Inter