自动检查代理是否可用，并自动设置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"