Hatte letzte Nacht nichts zu tun und so hab ich dann mal in meinen "älteren"
Ordnern geschaut und dann....
Code: Alles auswählen
Procedure.s OGame_Login(Uni.s,User.s,Passwort.s)
Protected SessionID.s
Protected Link.s
Uni=LCase(Uni)
Link.s="http://"+Uni+".ogame.de/game/reg/login2.php?v=2&universe="+Uni+".ogame.de&"
Link.s=Link.s+"login="+User+"&pass="+Passwort+"&button.x=14&button.y=6"
URLDownloadToFile_(0,Link.s,GetTemporaryDirectory()+"sessionid.txt",0,0)
If ReadFile(1,GetTemporaryDirectory()+"sessionid.txt")
While Not Eof(1)
SessionID.s=""
string.s=ReadString(1)
string2.s=""
x=FindString(string,"&session=",1)
If x>-1
For i=x+9 To Len(string)
x$=Mid(string,i,1)
If x$="&"
SessionID.s=string2
Break
Else
string2=string2+x$
EndIf
Next i
EndIf
If SessionID.s<>""
Break
EndIf
Wend
CloseFile(1)
DeleteFile(GetTemporaryDirectory()+"sessionid.txt")
EndIf
ProcedureReturn SessionID.s
EndProcedure
SessionID.s=OGame_Login("Uni30","Username","Passwort")
Debug sessionid
Also mit meinen Daten klappts... zumindest mit der Uni30.
Wenn man die SessionID hat, kann man die erste seite mit
Code: Alles auswählen
Seite1.s="http://XXX.ogame.de/game/index.php?page=overview&session="+SessionID.s
einlesen und von dort aus überall hin.... Rohstoffe,Gebäude,Forschung usw usf...
man muss halt nur die seiten per UrlDownloadToFile runterladen und dann die Daten mit Readfile auslesen...
Ist womöglich immer noch umständlich , aber es funktioniert.