;gethtml(url,script,port,dateiname)

         
;      url:  Host auf dem die datei liegt  

;   script:  Datei(auch mit Pfad)die angefordert wird 

;     port:  Port AUF den gesendet wird 

;dateiname:  Name der Datei in den die daten geschrieben werden sollen,bei PRINT wird auf dem Monitor geschrieben


Function gethtml(url$,script$=\"index.html\",port=80,datei_name$=\"NIX\")
 
If datei_name = \"NIX\" Or \"PRINT\"
  to_write=0
 
Else 
   datei = WriteFile(datei_name) 
   to_write=1
 
EndIf

If datei_name = \"PRINT\" to_write=2



 tcp=OpenTCPStream(url,port)
 
 WriteLine tcp,\"GET /\"+script+\" HTTP/1.1\"
 WriteLine tcp,\"Host: \"+url
 WriteLine tcp,\"User-Agent: score\"
 WriteLine tcp,\"Accept: */*\"
 WriteLine tcp,\"\"
 
 
 
Select to_write
  
 Case 1 
  Repeat
   WriteLine datei,ReadLine(tcp) 
  Until Eof(tcp)
 ;
 Case 2
  Repeat
   Print ReadLine(tcp) 
  Until Eof(tcp)


End Select  
 
 

End Function 


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

gethtml(\"blitzforum.de\",\"viewtopic.php?t=11196\",80,\"des.html\")

;getphp(url,script,port,data_to_send,dateiname)
         
;         url:  Host auf dem die datei liegt  

;      script:  Datei(auch mit Pfad)die angefordert wird 

;        port:  Port AUF den gesendet wird 

;data_to_send:  Variablen die zu übertragen sind in Form von:[variable1=wert1][&Variable2=Wert2][&etc.]   

;   dateiname:  Name der Datei in den die daten geschrieben werden sollen,bei PRINT wird auf dem Monitor geschrieben













Function getphp(url$,script$,port,data_to_send$,datei_name$=\"NIX\")
 
If datei_name = \"NIX\" Or \"PRINT\"
  to_write=0
 
Else 
   datei = WriteFile(datei_name) 
   to_write=1
 
EndIf

If datei_name = \"PRINT\"  to_write=2



 tcp=OpenTCPStream(url,port)
 
 WriteLine tcp,\"POST /\"+script+\" HTTP/1.1\"
 WriteLine tcp,\"Host: \"+url
 WriteLine tcp,\"Content-type: application/x-www-form-urlencoded\"
 WriteLine tcp,\"Content-length: \"+Len(data_to_send)
 WriteLine tcp,data_to_send
 WriteLine tcp,\"User-Agent: score\"
 WriteLine tcp,\"Accept: */*\"
 WriteLine tcp,\"\"
 
 
 
Select to_write
  
 Case 1 
  Repeat
   WriteLine datei,ReadLine(tcp) 
  Until Eof(tcp)
 ;
 Case 2
  Repeat
   Print ReadLine(tcp) 
  Until Eof(tcp)


End Select  
 
 

End Function

1. In beiden Funktionen öffnest du Dateien, schließt sie aber am Ende nicht mehr.
   
   
2. Die If-KonstruktionCode: [AUSKLAPPEN] [EINKLAPPEN]
   If datei_name = "NIX" Or "PRINT"
   funktioniert nicht. BB interpretiert es alsCode: [AUSKLAPPEN] [EINKLAPPEN]
   If datei_name = ("NIX" Or "PRINT")
   Schreib es am besten so um:Code: [AUSKLAPPEN] [EINKLAPPEN]
   If (datei_name = "NIX") Or (datei_name = "PRINT")
   
   
3. Ich finde es unschön, die URL in so viele Parameter zerstückeln zu müssen, um die Funktion aufrufen zu können. Könntest du die kompakte URL nicht in der Funktion selbst zerstückeln? (*)
   
   
4. Du öffnest in beiden Funktionen blauäugig einen TCP-Stream. Was, wenn keine Internetverbindung besteht? Dann stürzt das Programm ab Frag lieber erst ab, bevor du in den Stream schreibst oder aus ihm liest:Code: [AUSKLAPPEN] [EINKLAPPEN]
    tcp=OpenTCPStream(url,port)
    if tcp then
     WriteLine tcp,"POST /"+script+" HTTP/1.1"
     WriteLine tcp,"Host: "+url
     WriteLine tcp,"Content-type: application/x-www-form-urlencoded"
     WriteLine tcp,"Content-length: "+Len(data_to_send)
     WriteLine tcp,data_to_send
     WriteLine tcp,"User-Agent: score"
     WriteLine tcp,"Accept: */*"
     WriteLine tcp,""
    endif
   
   
   
5. Auch hier wieder: Wenn du einen Stream öffnest, musst du ihn am Ende auch wieder schließen.