Я с этим сам уже до такой степени замучился. вот до чего дошел(тебе помочь может, но есть проблемы небольшие, о них далее):
tcp = HttpGet("myag.forsite.org","/SB_r.php")
While Not Eof(tcp)
Print ReadLine$(tcp)
Wend
WaitKey()
End
CloseTCPStream(www)
Function HttpGet(server$,path$,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" + Chr$(13)+Chr$(10) + "Host: " + server$ + Chr$(13)+Chr$(10) + "User-Agent: blitzbasic" + Chr$(13)+Chr$(10) + "Accept: */*" + Chr$(13)+Chr$(10)
Return www
End Function
Но работает не так как хотелось бы. Например
страница мне выдает 1 строчку, а результат занимает много строк. Это не проблема, исправлю легко, просто думать уже не могу(еле это сделал). А вот реально помошь нужна в следующем. Мне выводится результат, последняя строка та, которая мне и нужна. Но блитц задумывается на 5-10 секунд и добавляет еще строку "0". Не пойму что это. Помогите пожалуйста, с этим разобраться.(на скрине синее главное что нужно, красное я не понимаю вообше откуда взялось, а желтое что не нужно)
