TCP Anfrage geht nicht :(

Übersicht

BlitzBasic

Allgemein

	Smily Betreff: TCP Anfrage geht nicht :(	Mi, Apr 12, 2006 18:37 Antworten mit Zitat
Hallo, Problen Nummer 1: BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] tcp = OpenTCPStream("www.funpic.de", 80) If tcp daten$ = "punkte="+Punkte+"&name="+name$+"&pw="+pw$ WriteLine tcp, "GET http://phpprogger.ph.funpic.de/ HTTP/1.0" WriteLine tcp, Chr$(10) Repeat Zeile$ = ReadLine(tcp) Print Zeile$ Until Eof(tcp) CloseTCPStream(tcp) Else Print "fehlgeschlagen" Notify "Server ist nicht erreichbar" End If WaitKey() nach den Headerinformationen wird nur noch ein "b" ausgelesen. Wieso? die seite sollte eigentlich so aussehen: http://phpprogger.ph.funpic.de/ Problem Nummer2: jetzt habe ich mal versucht ein unterverzeichniss aufzurufen: BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] tcp = OpenTCPStream("www.funpic.de", 80) If tcp daten$ = "punkte="+Punkte+"&name="+name$+"&pw="+pw$ WriteLine tcp, "GET http://phpprogger.ph.funpic.de/testforum/ HTTP/1.0" WriteLine tcp, Chr$(10) Repeat Zeile$ = ReadLine(tcp) Print Zeile$ Until Eof(tcp) CloseTCPStream(tcp) Else Print "fehlgeschlagen" Notify "Server ist nicht erreichbar" End If WaitKey() Jetzt gibt er ein 404 zurück, obwohl dieses Unterverzeichniss existiert: beweis: http://phpprogger.ph.funpic.de/testforum/
Lesestoff: gegen Softwarepatente \| Netzzensur \| brain.exe \| Unabhängigkeitserklärung des Internets "Wir müssen die Rechte der Andersdenkenden selbst dann beachten, wenn sie Idioten oder schädlich sind. Wir müssen aufpassen. Wachsamkeit ist der Preis der Freiheit --- Keine Zensur!" stummi.org

Smily

Betreff: TCP Anfrage geht nicht :(

Mi, Apr 12, 2006 18:37
Antworten mit Zitat

Hallo,

Problen Nummer 1:
BlitzBasic: [AUSKLAPPEN]

tcp = OpenTCPStream("www.funpic.de", 80) 
If tcp 

 daten$ = "punkte="+Punkte+"&name="+name$+"&pw="+pw$

WriteLine tcp, "GET http://phpprogger.ph.funpic.de/ HTTP/1.0" 
WriteLine tcp, Chr$(10)

 Repeat
  Zeile$ = ReadLine(tcp)
  Print Zeile$
 Until Eof(tcp)
 CloseTCPStream(tcp) 
Else
 Print "fehlgeschlagen"
 Notify "Server ist nicht erreichbar"
End If

WaitKey()

nach den Headerinformationen wird nur noch ein "b" ausgelesen.
Wieso?

die seite sollte eigentlich so aussehen: http://phpprogger.ph.funpic.de/

Problem Nummer2:
jetzt habe ich mal versucht ein unterverzeichniss aufzurufen:

BlitzBasic: [AUSKLAPPEN]

tcp = OpenTCPStream("www.funpic.de", 80) 
If tcp 

 daten$ = "punkte="+Punkte+"&name="+name$+"&pw="+pw$

WriteLine tcp, "GET http://phpprogger.ph.funpic.de/testforum/ HTTP/1.0" 
WriteLine tcp, Chr$(10)

 Repeat
  Zeile$ = ReadLine(tcp)
  Print Zeile$
 Until Eof(tcp)
 CloseTCPStream(tcp) 
Else
 Print "fehlgeschlagen"
 Notify "Server ist nicht erreichbar"
End If

WaitKey()

Jetzt gibt er ein 404 zurück, obwohl dieses Unterverzeichniss existiert:
beweis: http://phpprogger.ph.funpic.de/testforum/

Lesestoff:
gegen Softwarepatente | Netzzensur | brain.exe | Unabhängigkeitserklärung des Internets

"Wir müssen die Rechte der Andersdenkenden selbst dann beachten, wenn sie Idioten oder schädlich sind. Wir müssen aufpassen. Wachsamkeit ist der Preis der Freiheit --- Keine Zensur!"
stummi.org

	BtbN	Do, Apr 13, 2006 10:27 Antworten mit Zitat
1. Warum öffnest du die Verbindung zu www.funpic.de und nicht zu deiner Addresse? Könnte doch nen ganz anderer Server sein, wo das liegt. 2. Du hast Host nicht angegeben, und daran wird erkannt, von welchem VHost der Apache die Daten holt. Korrektur: Code: [AUSKLAPPEN] [EINKLAPPEN] tcp = OpenTCPStream("phpprogger.ph.funpic.de", 80) If Not tcp Then RuntimeError("Error") Local data$ = "GET / HTTP/1.1"+Chr(13)+Chr(10) data$ = data$+"Host: phpprogger.ph.funpic.de"+Chr(13)+Chr(10) data$ = data$+Chr(13)+Chr(10) WriteLine(tcp,data$) Repeat Print ReadLine(tcp) Until Eof(tcp) CloseTCPStream(tcp) WaitKey() End Nicht getestet, müste aber hinhaun.

BtbN

Do, Apr 13, 2006 10:27
Antworten mit Zitat

1. Warum öffnest du die Verbindung zu www.funpic.de und nicht zu deiner Addresse? Könnte doch nen ganz anderer Server sein, wo das liegt.
2. Du hast Host nicht angegeben, und daran wird erkannt, von welchem VHost der Apache die Daten holt.

Korrektur:
Code: [AUSKLAPPEN]

tcp = OpenTCPStream("phpprogger.ph.funpic.de", 80)
If Not tcp Then RuntimeError("Error")

Local data$ = "GET / HTTP/1.1"+Chr(13)+Chr(10)
data$ = data$+"Host: phpprogger.ph.funpic.de"+Chr(13)+Chr(10)
data$ = data$+Chr(13)+Chr(10)
WriteLine(tcp,data$)

Repeat
Print ReadLine(tcp)
Until Eof(tcp)
CloseTCPStream(tcp)

WaitKey()

End

Nicht getestet, müste aber hinhaun.

	Smily	Do, Apr 13, 2006 12:06 Antworten mit Zitat
klappt. thx
Lesestoff: gegen Softwarepatente \| Netzzensur \| brain.exe \| Unabhängigkeitserklärung des Internets "Wir müssen die Rechte der Andersdenkenden selbst dann beachten, wenn sie Idioten oder schädlich sind. Wir müssen aufpassen. Wachsamkeit ist der Preis der Freiheit --- Keine Zensur!" stummi.org