Форум АНТИЧАТ - Поставить прокси в Ie

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)

- С/С++, C#, Delphi, .NET, Asm (https://forum.antichat.xyz/forumdisplay.php?f=24)

- - Поставить прокси в Ie (https://forum.antichat.xyz/showthread.php?t=80887)

Поставить прокси в Ie

Помогите с программной реализацией (желательно дельфи), чтобы прокси ставило не на настройки LAN, а на настройки удалённого доступа (для интернета). Пробовал через реестр, но инфа в реестре не влияет на настройки прокси IE. (127.0.0.1:5522 - socks, нужно ставить только сокс).

http://noctambulaar.ru/test/das.JPG

Выслушаю всех, только вначале разберитесь, чтобы не для LAN было, так как таких примеров много. В реестре меняю, а в IE не меняется. Ставлю прокси в IE, тогда в реестре меняется.

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

Пример на Basic (может поможет)

Код:

Private Type INTERNET_PROXY_INFO2

    dwAccessType    As Long

    lpszProxy       As String

    lpszProxyBypass As String

End Type

Private Declare Function InternetSetOption Lib "wininet.dll" Alias "InternetSetOptionA" (ByVal hInternet As Long, ByVal dwOption As Long, ByRef lpBuffer As Any, ByVal dwBufferLength As Long) As Long

Public Function ApplyProxy(Inject As Boolean) As Long

    Dim strServers          As String

    Dim strBuffer           As String

    Dim ProxyInfo           As INTERNET_PROXY_INFO2

strBuffer = "socks=127.0.0.1:44 https=127.0.0.1:44 http=127.0.0.1:44 " & _

            "gopher=127.0.0.1:44 ftp=127.0.0.1:44"

strServers = RTrim$(strBuffer)

 If Inject = True Then ProxyInfo.dwAccessType = 3 Else ProxyInfo.dwAccessType = 1

       ProxyInfo.lpszProxy = strServers

       ProxyInfo.lpszProxyBypass = ""

ApplyProxy = InternetSetOption(0&, 38, ProxyInfo, LenB(ProxyInfo))

End Function