главная - Статьи - Microsoft Windows

Быстрое изменение настроек прокси в Windows

Дата обновления: 12.08.2021

Теги: Настройка прокси Windows

Вместо использования сценариев автоопределения прокси, зачастую проще вручную поменять настройки, причем чаще всего это включает одно из двух - включение и отключение уже настроенного прокси-сервера. Например, на работе прокси есть, а дома - нет. Заходить в настройки браузера или панели управления не очень удобно. Предлагаю два скрипта, BAT и VBS. Кастомизируйте на здоровье!

Параметры реестра для настройки прокси-сервера в Windows находятся в разделе HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings:

ProxyEnable (тип REG_DWORD) 1/0 - соответственно, включение/выключение использования прокси.

ProxyServer (тип REG_SZ) задает адрес и порт прокси-сервера в формате "адрес:порт", например, "1.2.3.4:3128". Если надо задать значения для отдельных протоколов, то строка выглядит, например, так: "http=1.2.3.4:3128;https=1.2.3.4:3129"

 

1. Скрипт изменения прокси, bat-файл

@echo off
set REGDIR="HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings"
ping 1.2.3.4 -n 1
if "%errorlevel%"=="0" ( REG ADD %REGDIR% /v ProxyEnable /t REG_DWORD /d 1 /f
echo "proxy available"
) else (
REG ADD %REGDIR% /v ProxyEnable /t REG_DWORD /d 0 /f
echo "proxy not found"
)
rundll32 user32.dll,UpdatePerUserSystemParameters
gpupdate /force

2. Скрипт изменения прокси, VBS

Option Explicit
Dim valUserIn
Dim objShell, RegLocate, RegLocate1
Set objShell = WScript.CreateObject("WScript.Shell")

On Error Resume Next
valUserIn = MsgBox("Use a proxy server?",4,"Proxy Select")

If valUserIn=vbYes Then
RegLocate = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyServer"
objShell.RegWrite RegLocate,"1.2.3.4:3128","REG_SZ"
RegLocate = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyEnable"
objShell.RegWrite RegLocate,"1","REG_DWORD"
MsgBox "Proxy is Enabled"

else

RegLocate = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyServer"
objShell.RegWrite RegLocate,"0.0.0.0:80","REG_SZ"
RegLocate = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyEnable"
objShell.RegWrite RegLocate,"0","REG_DWORD"
MsgBox "Proxy is Disabled"

End If
WScript.Quit

 

В этих скриптах замените адрес прокси с 1.2.3.4 на свой.

Авторизуйтесь для добавления комментариев!

    забыли пароль?    новый пользователь?