Simple HTTP 1.1 web page download

[DruggedBunnyParticipant]

This is useless for anything practical, since most web sites use HTTPS now, and it’s not even remotely generalised enough for all web sites or file types.

It’s really just a basic demo of using sockets and socket streams.

Monkey

#Import "<std>" Using std.. Function Main () Local socket:Socket = Socket.Connect ("www.hi-toro.com", 80, SocketType.Stream) If socket Local stream:SocketStream = New SocketStream (socket) If stream stream.WriteLine ("GET /index.html HTTP/1.1") stream.WriteLine ("Host: www.hi-toro.com") stream.WriteLine ("User-Agent: Cheekeh Moonkeh") stream.WriteLine ("Accept: text/plain") stream.WriteLine ("") Print "" Print "Receiving headers..." Print "" Local header:String = "" Local proceed:Bool = False Repeat header = stream.ReadLine () If header Print header Sleep (0.2) ' Won't somebody think of the servers?! If header.Find ("200") > -1 ' Yech! proceed = True Endif Until header = "" If proceed Print "" Print "Receiving data..." Print "" Local data:String = "" Repeat data = stream.ReadLine () If data Print data Sleep (0.2) Until stream.Eof Endif stream.Close () Endif socket.Close () Endif End

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71

#Import "<std>"   Using std..   Function Main ()   Local socket:Socket = Socket.Connect ("www.hi-toro.com", 80, SocketType.Stream) If socket Local stream:SocketStream = New SocketStream (socket) If stream stream.WriteLine ("GET /index.html HTTP/1.1") stream.WriteLine ("Host: www.hi-toro.com") stream.WriteLine ("User-Agent: Cheekeh Moonkeh") stream.WriteLine ("Accept: text/plain") stream.WriteLine ("") Print "" Print "Receiving headers..." Print "" Local header:String = "" Local proceed:Bool = False Repeat header = stream.ReadLine () If header Print header   Sleep (0.2) ' Won't somebody think of the servers?!   If header.Find ("200") > -1 ' Yech! proceed = True Endif Until header = ""   If proceed Print "" Print "Receiving data..." Print "" Local data:String = "" Repeat data = stream.ReadLine () If data Print data Sleep (0.2) Until stream.Eof Endif stream.Close () Endif socket.Close () Endif End

[HezkoreParticipant]

Modifying this I was able to confirm that it wasn’t just me, Emscripten really don’t support sockets.
I’ve always gotten error “-1” whatever that means, and it’s the same with this example.

[Author]

Posts