Иденственное что я имею, так это прогу, которая может получать html-код web-страницы через прокси...и даже без него... Нате, мож кому-нить понабицца
Global BR$ = Chr$(13)+Chr$(10)
;1. обычный запрос веб-страницы
tcp = GetHttp("www.microsoft.com")
If tcp = False RuntimeError "unable to connect to web server"
While Eof(tcp) = False
Print ReadLine$(tcp)
Wend
CloseTCPStream(tcp)
; 2. запрос страницы через прокси-сервер с адресом 192.168.0.1 и портом 80
tcp = GetHttp("www.microsoft.com", 80,"192.168.0.1", 80)
If tcp = False RuntimeError "unable to connect to web server"
While Eof(tcp) = False
Print ReadLine$(tcp)
Wend
CloseTCPStream(tcp)
WaitKey
End
;========================================
Function GetHttp(server$, port=80, proxy$="",proxyport=0)
Local www
If Len(proxy$) = 0 proxy$ = server$
If proxyport = 0 proxyport = port
www = OpenTCPStream(proxy$,proxyport)
If www = False Return False
WriteLine www,"GET http://" + server$ + ":" + port + path$ + " HTTP/1.1" + BR$ + "Host: " + server$ + BR$ + "User-Agent: blitzbasic" + BR$ + "Accept: */*" + BR$
Return www
End Function