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). Просто введите предпочитаемый вами прокси-сервер, нажмите кнопку «ОК», и ваши Интернет-настройки автоматически обновятся.