vb实现IP设置

这些天总是带着笔记本在家/单位/客户等等几个地方跑来跑去的，于是在各个地方上网都是要重新设置的，有时候有线，有时候无线。唉，昨天我终于爆发了，再也受不了这么没有尽头的折磨了。于是我又用vb写了一个简单的IP设置转换器。（我已经上传，地址：http://download.youkuaiyun.com/source/532464  看到有人说我的共享有毒，让我很是诧异。我用的系统是卡巴斯基7，我是没有查出毒来，如果你查出来了最好说下是什么病毒，我好研究下到底是怎么回事儿）

界面如下：

 

 

其实利用vb修改ip地址是比较容易的。我利用的就是wmi方式。先是找出当前系统的所有网卡信息，下面给出的是找出所有网卡MAC地址

的例程：

Function getMACAddress()

strComputer = "."

Set objWMIServiceGL = GetObject("winmgmts://" & strComputer & "/root/cimv2")

Set colNetAdaptersGL = objWMIServiceGL.ExecQuery("Selec