[Nex]

В дебагере ответ сервера. Остается только отфильтровать нужное.

Graphics 320,240,32,2
	SetFont (LoadFont ("Arial Cyr",15,1))

stream = OpenTCPStream ("checkip.dyndns.org",80)
	If Not stream Then End

WriteLine stream, "GET checkip.dyndns.org HTTP/1.1" 
WriteLine stream, Chr$ (10) 



While Not KeyHit (1)
	While Not Eof (stream)
		msg$ = ReadLine (stream)
			DebugLog msg
	Wend
Wend
	CloseTCPStream stream
End