Скрипты для изменения настроек прокси в Windows

1. Включение заранее заданного прокси-сервера

Скопируйте и вставьте текст в чистый файл Блокнота. Здесь вам придётся заменить адрес и порт http://www.youareanonymous.com:80 на свои:

Option Explicit
Dim valUserIn
Dim objShell, RegLocate, RegLocate1
Set objShell = WScript.CreateObject("WScript.Shell")
On Error Resume Next
valUserIn = MsgBox("Use A Cloaked Proxy?",4,"Cloaked Select")
If valUserIn=vbYes Then
RegLocate = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyServer"
objShell.RegWrite RegLocate,"http://www.youareanonymous.com:80","REG_SZ"
RegLocate = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyEnable"
objShell.RegWrite RegLocate,"1","REG_DWORD"
MsgBox "Cloaked 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 "Cloaked Proxy is Disabled"
End If
WScript.Quit

Затем сохраните его с расширением .vbs (т.е. ask_user.vbs). Когда вы запустите его, вы увидите следующее приглашение.

«Да» загружает указанный прокси-сервер как ваш прокси-сервер и устанавливает «ProxyEnable» в 1. A «Нет» устанавливает прокси по умолчанию (все нули) и отключает настройку прокси.

2. Быстрое включение нужного прокси-сервера

Другой скрипт позволяет быстро менять прокси-сервер, вводя его в специальное поле.

Скопируйте и вставьте текст в чистый файл Блокнота. Ничего изменять не нужно.

Option Explicit
Dim valUserIn
Dim objShell, RegLocate, RegLocate1
Set objShell = WScript.CreateObject("WScript.Shell")
On Error Resume Next
valUserIn = Inputbox("Enter the Proxy server you want to use.","Proxy Server Required")
RegLocate = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyServer"
objShell.RegWrite RegLocate,valUserIn,"REG_SZ"
RegLocate = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyEnable"
objShell.RegWrite RegLocate,"1","REG_DWORD"
MsgBox "Proxy is Enabled"
WScript.Quit

Затем сохраните его с расширением .vbs (т.е. ask_user.vbs). Просто введите предпочитаемый вами прокси-сервер, нажмите кнопку «ОК», и ваши Интернет-настройки автоматически обновятся.

Оставьте комментарий