VB 获取本机IP地址,而且将地址发送至QQ邮箱

VB 获取本机IP地址,并且将地址发送至QQ邮箱
我想做个程序

首先获取本机IP地址


再把地址发送到  k5000@qq.com 的邮箱.

谁有代码啊
------解决方案--------------------
谷歌一下
------解决方案--------------------
是你想做个这样的程序还是想别人帮你写一个这样的程序啊?没看明白.

外网IP可以访问http://www.ip138.com/再解析内容.

发邮件使用ESMTP协议,都是大量的代码.
------解决方案--------------------
Shell "ipconfig >> c:\ip.txt"