这些天总是带着笔记本在家/单位/客户等等几个地方跑来跑去的,于是在各个地方上网都是要重新设置的,有时候有线,有时候无线。唉,昨天我终于爆发了,再也受不了这么没有尽头的折磨了。于是我又用vb写了一个简单的IP设置转换器。(我已经上传,地址:http://download.csdn.net/source/532464 看到有人说我的共享有毒,让我很是诧异。我用的系统是卡巴斯基7,我是没有查出毒来,如果你查出来了最好说下是什么病毒,我好研究下到底是怎么回事儿)
界面如下:
其实利用vb修改ip地址是比较容易的。我利用的就是wmi方式。先是找出当前系统的所有网卡信息,下面给出的是找出所有网卡MAC地址
的例程:
Function getMACAddress()
strComputer = "."
Set objWMIServiceGL = GetObject("winmgmts://" & strComput