thejustsoul
Advanced Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
55andrey55
Держите такой кривокод (на коленке написал), должно работать:
Код: @echo off
setlocal enableextensions
for /f "tokens=2* delims= " %%i in ('reg query "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings" /v ProxyEnable') do set proxystate=%%j
if "%proxystate%" equ "0x0" (set p=off) else (set p=on)
set /p q1=Proxy is %p%, change state (y/n)?
if "%q1%" equ "y" goto changestate
goto end
:changestate
if "%proxystate%" neq "0x0" (
reg delete "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings" /v "ProxyServer" /f >nul 2>&1
reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings" /v ProxyEnable /t REG_DWORD /d 0 /f >nul 2>&1
echo Proxy disabled
) else goto changestate2
goto end
:changestate2
set /p q2=Enter proxy address and press Enter (ex. 127.0.0.1:80):
if "%q2%" neq "" (
reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings" /v ProxyServer /t REG_SZ /d "%q2%" /f >nul 2>&1
reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings" /v ProxyEnable /t REG_DWORD /d 1 /f >nul 2>&1
echo Proxy changed to %q2%
) else (goto changestate2)
:end
pause |
При запуске проверяется значение "ProxyEnable", если 1, то идет запрос на смены состояния, если ответить "y", то прокси удалится из "ProxyServer" и сменится состояние "ProxyEnable" на 0, если "ProxyEnable" равно 0, то выведется запрос на включение прокси и указании адреса и порта, после ввода, инфа добавится в реестр. |
), то нужно добавить ещё одну команду: