14 lines
426 B
Text
14 lines
426 B
Text
InitNetwork()
|
|
OpenConsole()
|
|
id = OpenNetworkConnection("rosettacode.org", 80)
|
|
SendNetworkString(id, "GET /wiki/Main_Page HTTP/1.1" + Chr(10) + "Host: rosettacode.org" + Chr(10) + Chr(10))
|
|
Repeat
|
|
If NetworkClientEvent(id) = 2
|
|
a$ = Space(1000)
|
|
ReceiveNetworkData(id, @a$, 1000)
|
|
out$ + a$
|
|
EndIf
|
|
Until FindString(out$, "</html>", 0)
|
|
PrintN(out$)
|
|
; next line only to prevent console from closing on Windows
|
|
Input()
|