Type posts
 Field name$
 Field inhalt$
End Type

Function SetPostFieldText(name$,inhalt$)
 name$=Replace$(name$,"%","%25")
 name$=Replace$(name$,"+","%2B")
 name$=Replace$(name$," ","%20")
 name$=Replace$(name$,"@","%40")
 name$=Replace$(name$,"ß","%DF")
 name$=Replace$(name$,"?","%3F")
 name$=Replace$(name$,"=","%3D")
 name$=Replace$(name$,")","%29")
 name$=Replace$(name$,"(","%28")
 name$=Replace$(name$,"/","%2F")
 name$=Replace$(name$,"&","%26")
 name$=Replace$(name$,"$","%24")
 name$=Replace$(name$,"§","%A7")
 name$=Replace$(name$,Chr$(34),"%22")
 name$=Replace$(name$,"!","%21")
 name$=Replace$(name$,"^","%5E")
 name$=Replace$(name$,"#","%23")
 name$=Replace$(name$,"<","%3C")
 name$=Replace$(name$,">","%3E")
 name$=Replace$(name$,"{","%7B")
 name$=Replace$(name$,"}","%7D")
 name$=Replace$(name$,"[","%5B")
 name$=Replace$(name$,"]","%5D")
 inhalt$=Replace$(inhalt$,"%","%25")
 inhalt$=Replace$(inhalt$,"+","%2B")
 inhalt$=Replace$(inhalt$," ","%20")
 inhalt$=Replace$(inhalt$,"@","%40")
 inhalt$=Replace$(inhalt$,"ß","%DF")
 inhalt$=Replace$(inhalt$,"?","%3F")
 inhalt$=Replace$(inhalt$,"=","%3D")
 inhalt$=Replace$(inhalt$,")","%29")
 inhalt$=Replace$(inhalt$,"(","%28")
 inhalt$=Replace$(inhalt$,"/","%2F")
 inhalt$=Replace$(inhalt$,"&","%26")
 inhalt$=Replace$(inhalt$,"$","%24")
 inhalt$=Replace$(inhalt$,"§","%A7")
 inhalt$=Replace$(inhalt$,Chr$(34),"%22")
 inhalt$=Replace$(inhalt$,"!","%21")
 inhalt$=Replace$(inhalt$,"^","%5E")
 inhalt$=Replace$(inhalt$,"#","%23")
 inhalt$=Replace$(inhalt$,"<","%3C")
 inhalt$=Replace$(inhalt$,">","%3E")
 inhalt$=Replace$(inhalt$,"{","%7B")
 inhalt$=Replace$(inhalt$,"}","%7D")
 inhalt$=Replace$(inhalt$,"[","%5B")
 inhalt$=Replace$(inhalt$,"]","%5D")
 For p.posts = Each posts
  If p\name$ = name$ Then
   p\inhalt$ = inhalt$
   Return 2
  EndIf
 Next
 p.posts = New posts
 p\name$ = name$
 p\inhalt$ = inhalt$
 Return 1
End Function

Function DeletePostField(name$)
 name$=Replace$(name$,"%","%25")
 name$=Replace$(name$,"+","%2B")
 name$=Replace$(name$," ","%20")
 name$=Replace$(name$,"@","%40")
 name$=Replace$(name$,"ß","%DF")
 name$=Replace$(name$,"?","%3F")
 name$=Replace$(name$,"=","%3D")
 name$=Replace$(name$,")","%29")
 name$=Replace$(name$,"(","%28")
 name$=Replace$(name$,"/","%2F")
 name$=Replace$(name$,"&","%26")
 name$=Replace$(name$,"$","%24")
 name$=Replace$(name$,"§","%A7")
 name$=Replace$(name$,Chr$(34),"%22")
 name$=Replace$(name$,"!","%21")
 name$=Replace$(name$,"^","%5E")
 name$=Replace$(name$,"#","%23")
 name$=Replace$(name$,"<","%3C")
 name$=Replace$(name$,">","%3E")
 name$=Replace$(name$,"{","%7B")
 name$=Replace$(name$,"}","%7D")
 name$=Replace$(name$,"[","%5B")
 name$=Replace$(name$,"]","%5D")
 For p.posts = Each posts
  If p\name$ = name$
   Delete p.posts
   Return True
  EndIf
 Next
 Return False
End Function

Function FreePostFields()
 Delete Each posts
End Function

Function CallPostURL(url$,port=80,headerbank=0)
 Local msg1$
 Local server$ = Replace(url$,"http://","")
 server$ = Mid(server$,1,Instr(server$,"/")-1)
 url$ = Replace(url$,"http://","")
 If Instr(url$,"/") Then
  url$ = Mid(url$,Instr(url$,"/"))
 Else
  url$ = "/"
 EndIf
 Local SENDHEADER$ = "POST "+url$+" HTTP/1.1" + Chr$(13)+Chr$(10)
 SENDHEADER$ = SENDHEADER$ + "Host: "+ server$ + Chr$(13)+Chr$(10)
 SENDHEADER$ = SENDHEADER$ + "User-Agent: BlitzBasic"+ Chr$(13)+Chr$(10)
 SENDHEADER$ = SENDHEADER$ + "Connection: close" + Chr$(13)+Chr$(10)
 SENDHEADER$ = SENDHEADER$ + "Content-Type: application/x-www-form-urlencoded" + Chr$(13)+Chr$(10)
 Local POSTDATA$
 For p.posts = Each posts
  If POSTDATA$ <> "" Then
   POSTDATA$ = POSTDATA$ + "&"+p\name$+"="+p\inhalt$
  Else
   POSTDATA$ = p\name$+"="+p\inhalt$
  EndIf
 Next
 SENDHEADER$ = SENDHEADER$ + "Content-length: "+Len(POSTDATA$)+Chr$(13)+Chr$(10)+Chr$(13)+Chr$(10)
 FreePostFields()
 SENDHEADER$ = SENDHEADER$ + POSTDATA$
 Local TCPStream = OpenTCPStream(server$,port)
 If TCPStream = 0 Then Return False
 WriteLine(TCPStream,SENDHEADER$)
 Local headerinfo$
 Repeat
  msg1$ = ReadLine(TCPStream)
  If msg1$ = "" Then Exit
  If Eof(TCPStream) Then Exit
  headerinfo$ = headerinfo$ + msg1$ + Chr(13) + Chr(10)
 Forever
 If headerbank <> 0 Then
  ResizeBank(headerbank,Len(headerinfo$)+20)
  PokeString(headerbank,0,headerinfo$)
 EndIf
 Return TCPStream
End Function

Function PeekString$(bank,offset=0)
 Local outstring$
 Repeat
  If PeekByte(bank,offset) = 7 Then Exit
  outstring$ = outstring$+Chr(PeekByte(bank,offset))
  offset = offset + 1
 Forever
 Return Left(outstring$,Len(outstring$)-2)
End Function

Function PokeString(bank,offset,value$)
 Local o
 For o = 1 To Len(value$)
  PokeByte(bank,offset+o-1,Asc(Mid(value$,o,1)))
 Next
 PokeByte(bank,o+1,7)
End Function

bank = CreateBank(1)

SetPostFieldText(\"testparam\",\"sd&lol2=asd\")
strm = CallPostURL(\"deine_url_hier\",80,bank) ;Parameter: url$,[port=80,bank=0]
Print PeekString(bank)

Repeat
 Print ReadLine(strm)
Until Eof(strm)

CloseTCPStream(strm)
FreeBank(bank)

WaitKey()

End