Internet und BB

Übersicht Sonstiges Smalltalk

Gehe zu Seite Zurück  1, 2

Neue Antwort erstellen

 

darki

 BeitragDo, März 29, 2007 19:37
Antworten mit Zitat
Benutzer-Profile anzeigen
ich benutze IE 7
 

emde

 BeitragDo, März 29, 2007 20:34
Antworten mit Zitat
Benutzer-Profile anzeigen
Bei mir kommt das selbe problem und deshalb habe ich mir die demo von BlitzPlus runtergeladen und es damit funktioniert: Gleiches ergebnis nur ein strich in der landschaft.

Smily

 BeitragFr, März 30, 2007 11:42
Antworten mit Zitat
Benutzer-Profile anzeigen
hmm kA.
Hat noch jemand anderes das Problem bzw gibt es noch jemanden bei dem Es funktioniert? ^^
Irgendwie kann ich gerade nich nachvollziehen, warum dass nicht gehen soll.
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

Silver_Knee

 BeitragFr, März 30, 2007 12:16
Antworten mit Zitat
Benutzer-Profile anzeigen
kuckt doch mal was passiert bei dem Code: [AUSKLAPPEN]
tcp = OpenTCPStream("www.blitzforum.de",80)
WriteLine tcp, "GET / HTTP/1.0"
WriteLine tcp, ""

file=Writefile("tmp.htm")
Repeat
  l$=ReadLine(tcp)
  Print l$
until l=""

Repeat
 Writeline file,ReadLine(tcp)
Until Eof(tcp)
closefile file
ExecFile "tmp.htm"
waitkey
end
Das lädt die seite praktisch runter die du bekommst und den Header kriegt du auf den Bildschirm

Smily

 BeitragFr, März 30, 2007 13:58
Antworten mit Zitat
Benutzer-Profile anzeigen
Jap der server gibt aber bei folgender Anfrage genau das selbe aus:

Also hat das mit dem Header nichts zu tun ^^

Code: [AUSKLAPPEN]
tcp = OpenTCPStream("blitzforum.de",80)
WriteLine tcp, "GET http://www.blitzforum.de/ HTTP/1.1"
WriteLine tcp, "Accept: */* "
WriteLine tcp, "Accept-Encoding: gzip, deflate"
WriteLine tcp, "User-Agent: MeinErstesTCP-Programm"
WriteLine tcp, "Host: blitzforum.de"
WriteLine tcp, "Connection: Keep-Alive"
WriteLine tcp, ""

file=Writefile("tmp.htm")
Repeat
  l$=ReadLine(tcp)
  Print l$
until l=""

Repeat
 Writeline file,ReadLine(tcp)
Until Eof(tcp)
closefile file
ExecFile "tmp.htm"


PS: So ich hab es jetzt nochmal auf ein Neues Probiert, mit dem von mir geposteten Code ein Zitat zu Crawlen. Und wieder ging es bei mir ^^
Ich kann mir nicht vorstellen, das mein Computer der einzige sein soll, wo das geht oO

€dit:
Wie es aussieht liegt es an der HOST-Angabe:

Zitat:

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


Allerdings verwendet das Blitzforum auch eine Veraltete Apache-Version.
Eine moderne dürfte die Anfrage auch ohne Host verstehen.
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
 

Schnuff

 BeitragFr, März 30, 2007 14:31
Antworten mit Zitat
Benutzer-Profile anzeigen
Code: [AUSKLAPPEN]
;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, ""


ohne < und > klappt die anfrage ganz wunderbar Wink
Programmers dont die. They gosub without return...
 

emde

 BeitragFr, März 30, 2007 15:02
Antworten mit Zitat
Benutzer-Profile anzeigen
cool nun klabt es. Ich habe mal aus lust einfach mal t-online als adresse angegeben aber dort passiert wieder rum nichts.
 

joni8a

 BeitragSa, März 31, 2007 19:33
Antworten mit Zitat
Benutzer-Profile anzeigen
So nachdem ich versucht habe mich in den code hinein zu versetzten habe ich es mal mit einer anderen adresse probiert, aber es funktioniert nicht, aber warum?

Code: [AUSKLAPPEN]

;tcp verbindung aufbauen & Anfrage senden
tcp = OpenTCPStream("de.wikiquote.org",80)
WriteLine tcp, "GET http://de.finance.yahoo.com/q?s=NTO.BE HTTP/1.0"
WriteLine tcp, ""

;zeile für zeile durchgehen:
Repeat
z$ = ReadLine(tcp)
If Instr(z$,"Letzter Kurs:") ;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

Smily

 BeitragSa, März 31, 2007 20:24
Antworten mit Zitat
Benutzer-Profile anzeigen
Du scheinst aber nicht wirklich viel Zeit damit verbracht zu haben, dich in mein Programm "hineinzuversetzen".
Du hast ledigtlich die seite, welche (übrigens immer noch vom Wikipedia-Server) abgefragt wird und den zu suchenden Text geändert.

Den Rest hast du so gelassen.
Auf der Seite, wo du das willst, ist der Text realtiv von der Position, die du suchst an einer ganz anderen Stelle

Gruß, Smily0412
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

Gehe zu Seite Zurück  1, 2

Neue Antwort erstellen


Übersicht Sonstiges Smalltalk

Nach Oben

Gehe zu:

Powered by phpBB © 2001 - 2006, phpBB Group