TCPSend,TCPRead use proxy

[metis]

Hi. I need use proxy in me code.

$sName_To_IP = TCPNameToIP($sHost)
$iSocket = TCPConnect($sName_To_IP, 80)
If $iSocket = -1 Then
TCPCloseSocket($iSocket)
else
$sCommand = $naglowek_http
$sCommand &= "" & @CRLF
$sCommand &= $Body
Local $BytesSent = TCPSend($iSocket, $sCommand)
If $BytesSent = 0 Then Exit
Local $sRecv = "", $sCurrentRecv
While 1
$sCurrentRecv = TCPRecv($iSocket, 1024)
If @error <> 0 Then ExitLoop
If $sCurrentRecv <> "" Then $sRecv &= $sCurrentRecv
WEnd
TCPCloseSocket($iSocket)
TCPShutdown()
endif

[metis]

UP.