自己手动编写半自动切换IP的程序!
代码如下:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 |
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改为你自己需要的!
???????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????By:Colin（刘飞）
