August 9, 2020
Траффик через 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.