自己手动编写半自动切换IP的程序!

代码如下:

a=msgbox("是否改变为无限制上网的IP"&?Chr(13)?&"是,改成无限制的"&?Chr(13)?&"否,改成公司上网的"&?Chr(13)?&"取消不改变IP"&?Chr(13)?&?Chr(10)?&?Chr(10)?&"??????????????制作:Major_飞哥",3,"改变IP")
if?a=6?then
strIP?=?"192.168.16.179"?????????'ip
strMask?=?"255.255.255.0"???????'掩码
strGW?=?"192.168.16.1"?????????'关网
strDNS1?=?"202.96.128.86"???????'dns
strDNS2?=?"202.96.128.87"????????'dns
strComputer?=?"."
Set?objWMIService?=?GetObject("winmgmts:\\"?&?strComputer?&?"\root\cimv2")
Set?colNetAdapters?=?objWMIService.ExecQuery?_
("Select?*?from?Win32_NetworkAdapterConfiguration?where?IPEnabled=TRUE")
strIPAddress?=?Array(strIP)
strSubnetMask?=?Array(strMask)
strGateway?=?Array(strGW)
strGatewayMetric?=?Array(1)
For?Each?objNetAdapter?in?colNetAdapters
errEnable?=?objNetAdapter.EnableStatic(strIPAddress,?strSubnetMask)
errGateways?=?objNetAdapter.SetGateways(strGateway,?strGatewaymetric)
arrDNSServers?=?Array(strDNS1,strDNS2)
errDNS?=?objNetAdapter.SetDNSServerSearchOrder(arrDNSServers)
If?errEnable?=?0?Then
WScript.Echo?"已成功更改成无限制上网的IP。"
Else
WScript.Echo?"更改IP地址失败。"
End?If
Next
elseif?a=7?then
strIP?=?"192.168.10.140"?????????'ip
strMask?=?"255.255.255.0"???????'掩码
strGW?=?"192.168.10.1"?????????'关网
strDNS1?=?"202.96.128.86"???????'dns
strDNS2?=?"202.96.128.87"????????'dns
strComputer?=?"."
Set?objWMIService?=?GetObject("winmgmts:\\"?&?strComputer?&?"\root\cimv2")
Set?colNetAdapters?=?objWMIService.ExecQuery?_
("Select?*?from?Win32_NetworkAdapterConfiguration?where?IPEnabled=TRUE")
strIPAddress?=?Array(strIP)
strSubnetMask?=?Array(strMask)
strGateway?=?Array(strGW)
strGatewayMetric?=?Array(1)
For?Each?objNetAdapter?in?colNetAdapters
errEnable?=?objNetAdapter.EnableStatic(strIPAddress,?strSubnetMask)
errGateways?=?objNetAdapter.SetGateways(strGateway,?strGatewaymetric)
arrDNSServers?=?Array(strDNS1,strDNS2)
errDNS?=?objNetAdapter.SetDNSServerSearchOrder(arrDNSServers)
If?errEnable?=?0?Then
WScript.Echo?"已成功更改成公司上网的IP。"
Else
WScript.Echo?"更改IP地址失败。"
End?If
Next
elseif?a=2?then
msgbox?"IP地址没有改变"
end?if

请将文本保存为?.vbs?的格式!

【注】本文仅作为原理参考!!!???大家可以根据自己的情况来修改IP,请将里面的IP改为你自己需要的!