Траффик через Proxy

Создаём файл с именем startproxy.vbs и содержанием:

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

Запускаем

Разахивируем и запускаем Gather Proxy Premium 9.0_P.zip.

Выбираем "Gather Proxy", после завершения поиска, выбираем "Proxy Checker".

Ждем завершения процесса, подтверждаем "OK". Далее выбираем нужный прокси, жмем ПКМ и вносим данные в поле запущенного скрипта startproxy.vbs.