Метод в лоб. Не везде прокатит - веб сервер может дропнуть соединение из-за отсутствия юзер агента и прочих
ненужных заголовков.
Local lines:String = LoadString("http::forum.boolean.name")
Print lines
Метод для бацек
Global HttpHost:String = "forum.boolean.name" ' Именно хост. Без всяких там http и указания пути
Global HttpPort:Int = 80 ' Ну тут понятно
Global HttpGet:String = "/" ' Собсно гет запрос
'# Соединяемся
Local sock:TSocket = CreateTCPSocket()
If Not sock.Connect(HostIp(HttpHost), HttpPort) Then
RuntimeError("OH SHI~~!") ' хуИта
EndIf
Local stream:TSocketStream = CreateSocketStream(sock)
' # Шлём
WriteLine(stream, "GET /" + HttpGet + " HTTP/1.0~nHost: " + httpHost + "~nUser-Agent: Mozilla/5.0 (Windows NT 6.1; WOW64; rv:22.0) Gecko/20100101 Firefox/22.0~n~n")
' # Принимаем ответ
Local buff:String
While Not Eof(stream)
buff:+ReadLine(stream) + "~n"
Wend
' # Открыл? Закрой!
sock.Close()
stream.Close()
'# Ну и чо там у нас
Print buff
Ток надо ещё будет заголовки отпилить. Ориентируйся на первую пустую строку.