Was soll ich denn für Onlinehighscore angeben??

Übersicht BlitzBasic Allgemein

Neue Antwort erstellen

 

fliege

Betreff: Was soll ich denn für Onlinehighscore angeben??

 BeitragDo, Dez 23, 2004 22:29
Antworten mit Zitat
Benutzer-Profile anzeigen
Bitte kann mir jemand helfen...
Code: [AUSKLAPPEN]
Function GetScore(url$,script$,par$,port=80)
   is_online=OpenTCPStream("www.mitglied.lycos.de",port)
   If is_online
      req$=script$
      ; Request an das Serverscript schicken
      WriteLine is_online,"GET /fliegereloaded/"+req$+" HTTP/1.1"
      WriteLine is_online,"Host: www.mitglied.lycos.de"
      WriteLine is_online,"User-Agent: fliegereloaded"
      WriteLine is_online,"Accept: */*"
      WriteLine is_online,""
      ; Daten empfangen
      For i=1 To 8
         trash$=Trim(ReadLine(is_online))
         DebugLog trash$
      Next
      ; Daten lesen
      Delete Each OnlineScore
      Repeat
         in$=Trim(ReadLine(is_online))
         in2 = Trim(ReadLine(is_online))
         If in$<>""
            c.OnlineScore =New OnlineScore
            c\name$=in$
            c\score = in2
            DebugLog c\name$
            DebugLog c\score
         EndIf
      Until Eof(is_online)
      CloseTCPStream is_online
      Return 1
   Else
      Return 0
   EndIf
End Function

das verwende ich zum aufrufen folgender Datei:
http://www.mitglied.lycos.de/f...hscore.php
was muss ich nun als HOst, User - Agent und Accept eingeben, damit ich wirklich nur das bekomme, was das Script ausgibt??

Danke schon mal im Vorraus
Fliege
 

noir

 BeitragDo, Dez 23, 2004 22:50
Antworten mit Zitat
Benutzer-Profile anzeigen
Host: Die Url von deinem Server ohne http:// (oder einfach die ip-adresse)

User-Agent: beliebig (Identifikation des Client i.d.R. Angabe des Browsers)

Accept: */* : Medientypen, die von Ihrem Client akzeptiert werden
(kannst einfach */* lassen)
 

fliege

 BeitragSa, Dez 25, 2004 12:01
Antworten mit Zitat
Benutzer-Profile anzeigen
so jetzt bekomme ich sowas:
HTTP/1.1 200 OK
Date: Sat, 25 Dec 2004 09:59:44 GMT
Server: Apache
X-Powered-By: PHP/4.3.2
Set-Cookie: adFrameForcePHP=1; path=
Set-Cookie: LBC=c137ba2aa389051a94a5515ea93d2ccd; expires=Sun, 29-Nov-09 09:59:44 GMT; path=/; domain=.lycos.de
Content-Type: text/html
X-Cache: MISS from www.mitglied.lycos.de
Transfer-Encoding: chunked
0
50
0
ffb
0
</pre></xmp></noscript>
0
<!-- SZM VERSION="1.3" -->
0
<!--
0
document.write("<img src=\""+IVW+"?r="+escape(document.referrer)+"\" width=\"1\" height=\"1\" />");
0
</script>
0
<img src="http://lycos.ivwbox.de/cgi-bin/ivw/CP/2B04APBA0000;" width="1" height="1" /> </noscript>
0
<!-- SZMFRABO VERSION="1.1" -->
0
var szmvars="lycos//CP//2B04APBA0000";
0
<script src="http://lycos.ivwbox.de/2004/01/survey.js"
0
<!-- /SZMFRABO -->
0
<script language="javascript" src="http://ads.tripod.lycos.de/ad/test_frame_size.js"></script>
0
<script language="javascript">
0
document.write("<NOSC"+"RIPT>");
0
</script>
0
function setCookie(name, value, expires, path, domain, secure) {
0
((expires) ? "; expires=" + expires.toGMTString() : "") +
0
((domain) ? "; domain=" + domain : "") +
0
document.cookie = curCookie;
0
var ref=window.document.referrer;
0
if(parent.LycosAdFrame) {
0
parent.document.title=parent.memberPage.document.title;
0
parent.LycosAdFrame.location.replace(ad_url);
0
setCookie("adFrameForcePHP",0,0," ");
0
}
0
if ((ref != "" && (ref+"?" != top.window.location) && (ref.substr(ref.length-1,1) != "?"))) {
0
}
0
top.document.body.cols = "*,140";
0
else {
0
setCookie("adFrameForcePHP",1,0," ");
0
else {
0
}
0
ad_frame = 1 ;
0
}
0
function resizeGoogleAdFrame() {
0
}
0
setInterval("resizeGoogleAdFrame()", 30);
0
<!-- START RedSheriff Measurement V5.01 -->
0
<script language="JavaScript" type="text/javascript"><!--
0
var _rsCG='computer.programming';
0
var _rsSI=escape(window.location);
0
var _rsRP=escape(document.referrer);
0
var _rsRD=(new Date()).getTime();
0
var _rsSV='';
0
_rsCL='<scr'+'ipt language="JavaScript" type="text/javascript" src="'+_rsND+'v5.js"><\/scr'+'ipt>';
0
_rsCL='<img src="'+_rsND+'cgi-bin/m?ci='+_rsCI+'&cg='+_rsCG+'&si='+_rsSI+'&rp='+_rsRP+'">';
0
document.write(_rsCL);
0
a9
0
<noscript>
0
</noscript>
0
Bitte helft mir!
ZUm Aufruchen verwende ich:
Code: [AUSKLAPPEN]

Function GetScore(url$,script$,par$,port=80)
   is_online=OpenTCPStream("www.mitglied.lycos.de",port)
   If is_online
      req$=script$
      ; Request an das Serverscript schicken
      WriteLine is_online,"GET /fliegereloaded/"+req$+" HTTP/1.1"
      WriteLine is_online,"Host: www.mitglied.lycos.de"
      WriteLine is_online,"User-Agent: Internet Explorer"
      WriteLine is_online,"Accept: */*"
      WriteLine is_online,""
      ; Daten empfangen
      For i=1 To 8
         trash$=Trim(ReadLine(is_online))
         DebugLog trash$
      Next
      ; Daten lesen
      Delete Each OnlineScore
      Repeat
         in$=Trim(ReadLine(is_online))
         in2 = Trim(ReadLine(is_online))
         If in$<>""
            c.OnlineScore =New OnlineScore
            c\name$=in$
            c\score = in2
            DebugLog c\name$
            DebugLog c\score
         EndIf
      Until Eof(is_online)
      CloseTCPStream is_online
      Return 1
   Else
      Return 0
   EndIf
End Function

Ich freue mich wie immer auf eure Antworten!!
Fliege

Neue Antwort erstellen


Übersicht BlitzBasic Allgemein

Nach Oben

Gehe zu:

Powered by phpBB © 2001 - 2006, phpBB Group