Добрый день!
нашел в интернете скрипты простого прокси, и ни один из них не работает. Поэтому хотел разобраться сам но ничего не получилось а именно
Запрос с браузера идет на AutoIt проски (127.0.0.1:8888), перенаправляется на Локальный прокси (127.0.0.1:8080). Ответ с локального прокси приходит, но не отправляется на клиент (браузер) можете что подсказать? браузер виснет - статус загрузки страницы останавливается.
нашел в интернете скрипты простого прокси, и ни один из них не работает. Поэтому хотел разобраться сам но ничего не получилось а именно
Код:
#include <Array.au3>
TCPStartup()
;Variables
Global $client_recv = "", $server_recv = ""
Global $RecvMode = 1
Global $client_socket = -1
;Port: 8080 - you can change if you want
$MainSocket = TCPListen("127.0.0.1", 8888)
If @error Then MsgBox(16, "Error", "1")
ConsoleWrite(@CR & "Server started...")
Do
$client_socket = TCPAccept($MainSocket)
Until $client_socket > -1
ConsoleWrite(@CR & "Browser connected." & @CRLF)
While 1
if $RecvMode = 1 Then
$client_recv = TCPRecv($client_socket, 1024 * 100)
If $client_recv <> "" Then
ConsoleWrite($client_recv & @CRLF)
$server_socket = TCPConnect("127.0.0.1", 8080)
If @error Then MsgBox(16, "Error2", @error)
TCPSend($server_socket, $client_recv)
ConsoleWrite(@CR & "Send: " & StringLen($client_recv) & " bytes.")
$RecvMode = 0
EndIf
EndIf
If $RecvMode = 0 Then
Do
$server_recv = TCPRecv($server_socket, 1000000)
Until $server_recv <> ""
If $server_recv <> "" Then
ConsoleWrite($server_recv & @CRLF)
ConsoleWrite(@CR & "Server Recv: " & StringLen($server_recv) & " bytes")
TCPSend($client_socket, $server_recv)
$RecvMode = 1
EndIf
EndIf
WEndЗапрос с браузера идет на AutoIt проски (127.0.0.1:8888), перенаправляется на Локальный прокси (127.0.0.1:8080). Ответ с локального прокси приходит, но не отправляется на клиент (браузер) можете что подсказать? браузер виснет - статус загрузки страницы останавливается.
