添加代理脚本,把代码里面的Data="172.16.1.1:8120" 更改成自己的代理地址及端口,把需要排除不通过代理的对象修改成一下 Data="192.*;<local>;" ,把以下代理保存到文本文档,保存后,修改文本的扩展名为vbs即可
On error resume next
Const HKEY_CURRENT_USER = &H80000001
Const HKEY_LOCAL_MACHINE = &H80000002
Const HKEY_USERS = &H80000003
Const HKEY_CURRENT_CONFIG = &H80000005
Const HKEY_DYN_DATA = &H80000006
Const REG_SZ = 1
Const REG_EXPAND_SZ = 2
Const REG_BINARY = 3
Const REG_DWORD = 4
Const REG_MULTI_SZ = 7
strKeyPath = "Software\Microsoft\Windows\CurrentVersion\Internet Settings\Connections"
strValue = "SavedLegacySettings"
Data=Array(&H46,&H00,&H00,&H00,&H87,&H0a,&H00,&H00,&H03,&H00,&H00,&H00,&H16,&H00,&H00,&H00,&H70,&H72,&H6f,&H78,&H79,&H2e,&H73,&H6f,&H6e,&H79,&H2e,&H63,&H6f,&H6d,&H2e,&H63,&H6e,&H3a,&H38,&H30,&H38,&H30,&H2f,&H00,&H00,&H00,&H34,&H33,&H2e,&H2a,&H3b,&H2a,&H73,&H65,&H68,&H2e,&H73,&H6f,&H6e,&H79,&H2e,&H63,&H6f,&H6d,&H2e,&H63,&H6e,&H2a,&H3b,&H2a,&H2e,&H69,&H6d,&H61,&H70,&H73,&H76,&H32,&H2e,&H73,&H6f,&H6e,&H79,&H2e,&H2a,&H3b,&H3c,&H6c,&H6f,&H63,&H61,&H6c,&H3e,&H00,&H00,&H00,&H00,&H01,&H00,&H00,&H00,&H19,&H00,&H00,&H00,&H68,&H74,&H74,&H70,&H3a,&H2f,&H2f,&H34,&H33,&H2e,&H36,&H38,&H2e,&H38,&H2e,&H35,&H2f,&H77,&H70,&H61,&H64,&H2e,&H64,&H61,&H74,&H00,&H36,&H5c,&H16,&H57,&H0b,&Hc6,&H01,&H01,&H00,&H00,&H00,&H2b,&H52,&H24,&H58,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00)
Call hexRegWrite(strKeyPath, strValue, Data)
strKeyPath = "Software\Microsoft\Windows\CurrentVersion\Internet Settings\Connections"
strValue = "DefaultConnectionSettings"
Data=Array(&H46,&H00,&H00,&H00,&H8e,&H00,&H00,&H00,&H03,&H00,&H00,&H00,&H16,&H00,&H00,&H00,&H70,&H72,&H6f,&H78,&H79,&H2e,&H73,&H6f,&H6e,&H79,&H2e,&H63,&H6f,&H6d,&H2e,&H63,&H6e,&H3a,&H38,&H30,&H38,&H30,&H2f,&H00,&H00,&H00,&H34,&H33,&H2e,&H2a,&H3b,&H2a,&H73,&H65,&H68,&H2e,&H73,&H6f,&H6e,&H79,&H2e,&H63,&H6f,&H6d,&H2e,&H63,&H6e,&H2a,&H3b,&H2a,&H2e,&H69,&H6d,&H61,&H70,&H73,&H76,&H32,&H2e,&H73,&H6f,&H6e,&H79,&H2e,&H2a,&H3b,&H3c,&H6c,&H6f,&H63,&H61,&H6c,&H3e,&H00,&H00,&H00,&H00,&H01,&H00,&H00,&H00,&H19,&H00,&H00,&H00,&H68,&H74,&H74,&H70,&H3a,&H2f,&H2f,&H34,&H33,&H2e,&H36,&H38,&H2e,&H38,&H2e,&H35,&H2f,&H77,&H70,&H61,&H64,&H2e,&H64,&H61,&H74,&H00,&H36,&H5c,&H16,&H57,&H0b,&Hc6,&H01,&H01,&H00,&H00,&H00,&H2b,&H52,&H24,&H58,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00)
Call hexRegWrite(strKeyPath, strValue, Data)
strKeyPath = "Software\Microsoft\Windows\CurrentVersion\Internet Settings"
strValue = "ProxyEnable"
Data=00000001
Call dwordRegWrite(strKeyPath, strValue, Data)
strKeyPath = "Software\Microsoft\Windows\CurrentVersion\Internet Settings"
strValue = "ProxyServer"
Data="172.16.1.1:8120"
Call strRegWrite(strKeyPath, strValue, Data)
strKeyPath = "Software\Microsoft\Windows\CurrentVersion\Internet Settings"
strValue = "ProxyOverride"
Data="192.*;<local>;"
Call strRegWrite(strKeyPath, strValue, Data)
'WScript.Echo "Modify Completely!"
Sub hexRegWrite(strKeyPath, strValue, Data)
strComputer = "."
Set objRegistry = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
objRegistry.CreateKey HKEY_CR, strKeyPath
retcode = objRegistry.SetBinaryValue(HKEY_CURRENT_USER, strKeyPath, strValue, Data)
If (retcode = 0) And (Err.Number = 0) Then
'WScript.Echo "Binary value added successfully"
Else
WScript.Echo "An error occurred. Return code: " & retcode
End If
End Sub
Sub dwordRegWrite(strKeyPath, strValue, Data)
strComputer = "."
Set objRegistry = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
objRegistry.CreateKey HKEY_CR, strKeyPath
retcode = objRegistry.SetDwordValue(HKEY_CURRENT_USER, strKeyPath, strValue, Data)
If (retcode = 0) And (Err.Number = 0) Then
'WScript.Echo "Binary value added successfully"
Else
WScript.Echo "An error occurred. Return code: " & retcode
End If
End Sub
Sub strRegWrite(strKeyPath, strValue, Data)
strComputer = "."
Set objRegistry = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
objRegistry.CreateKey HKEY_CR, strKeyPath
retcode = objRegistry.SetStringValue(HKEY_CURRENT_USER, strKeyPath, strValue, Data)
If (retcode = 0) And (Err.Number = 0) Then
'WScript.Echo "Binary value added successfully"
Else
WScript.Echo "An error occurred. Return code: " & retcode
End If
End Sub
联系客服