;sender
strmGame=OpenTCPStream(\"http://homepage.swissonline.ch/Dimo/fussball/index.php\",24)
If strmGame<>0 Then
   Print \"Client erfolgreich verbunden\"
Else
   Print \"Konnte keine Verbindung herstellen\"
   WaitKey
   End
End If
WriteString strmGame,\"Irgendwas\"
Print \"Daten gesendet...\"
CloseTCPStream strmGame
End
;empfänger
svrGame=CreateTCPServer(24)
If svrGame<>0 Then
   Print \"Server erfolgreich gestartet\"
Else
   Print \"Server konnte nicht gestartet werden\"
   End
End If
While Not KeyHit(1)
   strStream=AcceptTCPStream(svrGame)
   If strStream Then
      Print ReadString$(strStream)
      Delay 2000
      End
   Else
      Print \"Keine Daten mehr...\"
      Delay 1000
   End If
Wend
CloseTCPServer svrGame
End

is_online=OpenTCPStream(\"http://blabla.de?wert=100&wert2=irgendwas...\",80)

WriteLine is_online,\"GET //\"+req$+\" HTTP/1.1\"
WriteLine is_online,\"Host: \"+url$
WriteLine is_online,\"\"   
; Daten empfangen
For i=1 To 8 ; Header überlesen
 trash$=Trim(ReadLine(is_online))
Next

While Not Eof(is_online)
 wert$=ReadLine(is_online)
Wend