VB6 如何检测外网IP地址，就算有N个子网也能获取！！

Question

近来单位安装了一个宽带，使用一个路由器连接，现时每晚都挂机，也同时使用远程控制软件连接入，问题是拨号工作都是路由器进行的，每一次需要远程控制必须知道外网IP地址，那就自不然要进入路由器的管理WEB界面去查看。现在我想编写一个应用程序运行它就能显示在窗体上，这样就既能方便，又能一目了然。请问高手如何编写这个应用程序？？？

Answer 1

http://www.ip138.com
用XMLHttpRequest、Inet或者WebBrowser去访问这个，就行了。

Answer 2

建议你们配一个VPN便方便快捷,明白意思吧?有时你不只会远程控制服务器..你的IDE还需要连VSS(或CVS或SVN)吧?
这样你每次回家都要从重找一次配置文件多累...类似很多... 老老实实VPN吧...程序方法如二楼,写个程序整个TIMER,用WebBrowser去访问http://www.ip138.com ,读内容得IP,然后这个IP怎么告诉你自己就自己想吧

Answer 3

我写了一个公网IP自动上传到FTP
要的M我QQ：767431339
不过只能得到一个公网IP地址
原理就是用DOWNFILE API下载瑞星卡卡的一个显IP的页面，然后解出IP地址
用API我试了在IP138中得不到，如果你不想用控件就用API到瑞星卡卡的IP页面下载可以得到

Answer 4

IP138 可以Inet得到IP的。只是现在改了。后面要加个页面XXX.asp
自己点右键就可以看到！

Answer 5

访问：
http://www.ip138.com/ip2city.asp
便可以得到自己的公网 ip。。