用vbs实现自动检查代理是否可用，并自动设置IE代理的脚本
导读：收集整理的这篇文章主要介绍了用vbs实现自动检查代理是否可用，并自动设置IE代理的脚本，觉得挺不错的，现在分享给大家，也给大家做个参考。 将下面代码中的地址改一下，存为ieProxy.v...
收集整理的这篇文章主要介绍了用vbs实现自动检查代理是否可用，并自动设置IE代理的脚本，觉得挺不错的，现在分享给大家，也给大家做个参考。 将下面代码中的地址改一下，存为ieProxy.vbs，然后在文件上点右键，选择“在命令提示符中打开”不多说了，存下来看看吧！
复制代码 代码如下:
strMachines = "24.11.246.125:2406; 61.252.60.30:68660; 64.161.10.2:3128; 65.23.157.55:80; 66.229.103.146:5089; 68.6.240.207:2521; 68.103.105.108:2384; 70.160.84.18:2332; 71.74.23.52:2220; 71.207.239.136:2653; 72.187.78.76:2413; 76.177.94.222:2569; 122.103.185.182:8080; 122.197.130.107:2556; 128.8.126.111:3128; 128.8.126.112:3128; 128.112.139.71:3124; 128.112.139.71:3128; 128.112.139.71:68660; 128.119.247.210:8888; 128.119.247.211:3128; 128.208.4.197:8888; 128.208.4.198:3124; 128.227.56.82:3128; 128.252.19.20:68660; 129.24.17.70:3128; 129.186.205.77:3128; 129.237.161.193:8888; 129.237.161.194:8888; 138.23.204.133:3124; 140.247.60.123:8888; 140.247.60.126:8888; 160.36.57.173:8888; 165.228.129.10:3128; 165.228.132.10:3128; 169.229.50.3:3128; 169.229.50.5:3128; 169.229.50.12:3124; 169.229.50.12:3128; 169.229.50.12:68664; 199.89.182.6:80; 203.178.133.2:3128; 203.178.133.3:3124; 203.178.133.3:3128; 203.178.133.11:68660; 203.198.162.124:8080; 206.207.248.34:3124; 206.207.248.34:3128; 209.197.110.17:80; 210.20.67.152:8080; 210.125.84.16:3128; 216.104.190.179:80; 218.5.79.200:80; 218.58.136.14:808; 221.152.139.220:8080; 59.186.67.28:8080; 125.142.138.208:2613; 210.76.97.79:80; 218.152.54.154:8080; 12.218.111.15:2356; 24.222.80.248:2574; 58.71.35.206:8080; 60.190.99.218:19759; 61.86.48.162:8080; 61.252.60.30:3124; 61.252.60.30:3128; 62.231.243.136:66; 62.231.243.137:66; 67.164.134.61:2426; 67.165.179.84:2495; 74.122.236.78:2510; 74.129.4.44:2251; 76.98.35.94:2303; 76.210.118.129:2533; 81.211.88.94:3128; 82.77.21.83:2263; 85.82.145.250:8080; 85.214.37.22:3128; 122.47.159.72:2400; 128.8.126.111:68660; 128.10.19.53:8888; 128.31.1.11:8888; 128.31.1.13:8888; 128.31.1.14:3128; 128.114.63.14:3124; 128.119.247.211:3124; 128.238.88.64:3124; 128.238.88.65:3128; 129.12.3.75:3124; 129.82.12.188:8888; 129.186.205.77:3124; 129.240.67.15:3124; 129.240.67.15:3128; 129.242.19.197:3124; 130.37.198.244:3128; 130.37.198.244:68664; 132.252.152.193:3124; 132.252.152.194:3124; 132.252.152.194:3128"
amachines = splIT(strMachines, "; ")
For each machine2 in aMachines
machinearr = split(machine2, ":")
machine = machinearr(0)
Set objPing = GetObject("winmgmts:{ imPErsonationLevel=impersonate} ")._
ExecQuery("select * From Win32_Pingstatus where address = '"_
& machine & "'")
For Each objStatus in objPing
If IsNull(objStatus.StatusCode) or objStatus.StatusCode> 0 Then
WScript.Echo(machine2 & " is not reachable")
else
WScript.Echo(machine2 & " is OK")
if confirm("设置代理为"& machine2 & "？") then
msgbox SetIEPRoxy(1,machine2)
end if
End If
Next
Next
function confirm(s)
confirm = (msgbox(s,vbYesNo,s) = 6)
end function
Function SetIEProxy(ProxyEnable,ProxyIP)
On Error Resume Next
Const HKEY_current_USER = & H80000001
strComputer = "."
Set objReg = GetObject("winmgmts:" _
& "{ impersonationLevel=impersonate} \\" & strComputer & _
"\root\default:StdRegProv")
strKeyPath = "Software\Microsoft\Windows\CurrentVersion\internet Settings\"
strEntryName = "ProxyEnable"
dwvalue = ProxyEnable
objReg.SetDWORDValue HKEY_CURRENT_USER, strKeyPath, strEntryName,dwValue
strEntryName = "ProxyServer"
dwvalue = ProxyIP
objReg.SetStringValue HKEY_CURRENT_USER, strKeyPath, strEntryName,dwValue
If Err = 0 Then
SetIEProxy = True
Else
SetIEProxy = False
End If
End Function
msgbox "ok"
声明：本文内容由网友自发贡献，本站不承担相应法律责任。对本内容有异议或投诉，请联系2913721942#qq.com核实处理，我们将尽快回复您，谢谢合作！
若转载请注明出处： 用vbs实现自动检查代理是否可用，并自动设置IE代理的脚本
本文地址： https://pptw.com/jishu/609663.html