[00:24:00] Server succesfully started at port 80.
[00:24:09] Incoming stream: 127.0.0.1
[00:24:09] GET /index.html HTTP/1.1
[00:24:09] Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/msword, application/vnd.ms-excel, application/vnd.ms-powerpoint, application/x-shockwave-flash, application/x-icq, application/x-gsarcade-launch, */*
[00:24:09] Accept-Language: de
[00:24:09] UA-CPU: x86
[00:24:09] Accept-Encoding: gzip, deflate
[00:24:09] User-Agent: Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; .NET CLR 1.1.4322; .NET CLR 2.0.50727)
[00:24:10] Host: 127.0.0.1
[00:24:10] Connection: Keep-Alive

[00:24:09] GET /index.html HTTP/1.1
[00:24:09] Accept: */*
[00:24:09] Accept-Encoding: gzip, deflate
[00:24:09] User-Agent: MeinErstesTCP-Programm
[00:24:10] Host: -internetseite angeben-
[00:24:10] Connection: Keep-Alive

GET / HTTP/1.0

tcp = OpenTCPStream("www.blitzforum.de",80)
WriteLine tcp, "GET / HTTP/1.0"
WriteLine tcp, ""

Repeat
 Print ReadLine(tcp)
Until Eof(tcp)

;tcp verbindung aufbauen & Anfrage senden
tcp = OpenTCPStream("de.wikiquote.org",80)
WriteLine tcp, "GET <http://de.wikiquote.org/wiki/Hauptseite> HTTP/1.0"
WriteLine tcp, ""

;zeile für zeile durchgehen:
Repeat
z$ = ReadLine(tcp)
If Instr(z$,"Zitat des Tages</") ;Wenn das Prog an der richtigen Zeile ist
ReadLine(tcp) ;in diesem Speziellen fall (Wikiquote) eine Zeile überspringen
z$ = ReadLine(tcp)
zitat$ = Mid$(z$,134,Len(z$)-134-5) ;Zitat aus der Zeile holen
z$ = ReadLine(tcp)
pos = Instr(z$,">",5)+1
autor$ = Mid$(z$,pos, Len(z$)-pos-13) ;Autor Rauslesen
End If
Until Eof(tcp)

zitat$ = uml(zitat$)
autor$ = uml(autor$)

Print zitat$ + " - " + autor$

Function uml$(w$)
w$ = Replace (w$,Chr$(195)+Chr$(164),"ä")
w$ = Replace (w$,Chr$(195)+Chr$(182),"ö")
w$ = Replace (w$,Chr$(195)+Chr$(188),"ü")
w$ = Replace (w$,Chr$(195)+Chr$(132),"Ä")
w$ = Replace (w$,Chr$(195)+Chr$(150),"Ö")
w$ = Replace (w$,Chr$(195)+Chr$(156),"Ü")
w$ = Replace (w$,Chr$(195)+Chr$(159),"ß")
Return w$
End Function