我们经常会遇到网络切换，修改IP地址。如果手动在网络设置更改就颇为麻烦。今天，就给大家分享一个自己的网络切换工具。用VB写一个修改IP地址的工具。
工具/原料
电脑
VisualBasic
方法/步骤
1、首先：编一个改IP地址的EXE（IP地址根据自己需要）打开VisualBasic双击Form窗口。
2、将下列代码复制到编辑框中：PrivateSubForm_Load()Deb掼鸿乡羰ug.PrintChangeIP("192.168缕计瓤账.1.122","255.255.255.0","","","")EndSubPublicFunctionChangeIP(IPAsString,NMAsString,GWAsString,MDNSAsString,SDNSAsString)AsStringDimstrComputer,objWMIService,colNetAdapters,strIPAddress,strSubnetMaskDimstrGateway,strGatewaymetric,strDNS,objNetAdapter,errEnable,errGateways,errDNSstrComputer="."SetobjWMIService=GetObject("winmgmts:\\"&strComputer&"\root\cimv2")SetcolNetAdapters=objWMIService.ExecQuery("Select*fromWin32_NetworkAdapterConfigurationwhereIPEnabled=TRUE")strIPAddress=Array(IP)strSubnetMask=Array(NM)strGateway=Array(GW)strDNS=Array(MDNS,SDNS)strGatewaymetric=Array(1)ForEachobjNetAdapterIncolNetAdapterserrEnable=objNetAdapter.EnableStatic(strIPAddress,strSubnetMask)errGateways=objNetAdapter.SetGateways(strGateway,strGatewaymetric)errDNS=objNetAdapter.SetDNSServerSearchOrder(strDNS)NextEndFunction。
3、注意：Debug.PrintChangeIP("192.168.1.1闸拊福律22",媪青怍牙"255.255.255.0","","","")中IP可以根据自己需要修改，注意格式要正确。检查PrivateSubForm_Load()EndFunction这两个复制进去后会不会重复如有重复，删掉一个。
4、然后点击左上角：文件——生成工程。
5、选择保存位置及保存名称。
6、新建一个工程，再次打开Form输焯拜芪恨入下列代码：PrivateSubForm_Load()SetobjS茑霁酌绡hell=CreateObject("WScript.Shell")objShell.Run"NetshinterfaceipsetaddressName=本地连接Source=dhcp"objShell.Run"NetshinterfaceipSetDnsName=本地连接Source=dhcp"EndSub如图：这是切换为自动获取IP地址的代码注意代码重复值。
7、同样的，点击左上角：文件——生成工程。
8、这样，我们的IP地址一键切换工具就写好了。赶紧试试吧。