Hi, find das ein lustiges ding
Meine Kids spielen auch hin und wieder Flashgames.
Allerdings auf 1001spiele.de.
Naja, ich habe es versucht den code zu erweitern, nicht schön, da
PB für mich immer noch ein Buch mit 7 Siegeln ist
aber es erfüllt seinen zweck.
Ich habe den Pfad auf eine Temp ordner C:\temp\ umgeschrieben,
also darauf achten das dort auch der Ordner existiert.
Folgendes, jetzt einfach die Url der "zentrallen" seite eingeben,
dann werden alle games die dort in der Mitte mit den Pics stehen
gedownloadet.
Alledings muss ich sagen das bei enigen es nicht geht, werden 0byte dateien erstellt !??
Na egal, hier der Code:
Code: Alles auswählen
URL$ = InputRequester("Link des Flashspiels...", "Bitte geben sie den Link zu dem Flashspiel ein:", "")
InitNetwork()
If ReceiveHTTPFile(URL$, "C:\temp\temp.html")
Else
MessageRequester("Fehler", "Es ist ein Fehler aufgetreten.")
End
EndIf
ReadFile(0,"C:\temp\temp.html")
CreateFile(1, "C:\temp\games.txt") ; wir erstellen eine neue Textdatei...
CreateFile(2, "C:\temp\games_url.txt") ; wir erstellen eine neue Textdatei...
While Eof(0) = 0
string.s = ReadString(0)
flashPos = FindString(string,"<div class="+Chr(34)+"thumb"+Chr(34)+"><a href="+Chr(34)+"/games/",0)
If flashPos
WriteStringN(1,string.s)
flashPos+35
flashLen = FindString(string,Chr(34),flashPos)-flashPos
swffile$ = Mid(string,flashPos,flashLen)
WriteStringN(1,swffile$)
WriteStringN(2,"http://www.y8.com/games/"+swffile$)
EndIf
Wend
;save$ = SaveFileRequester("Flash-Spiel speichern in...", swffile$, "Shockwave Flash (*.swf)", 0)
CloseFile(0)
CloseFile(1)
CloseFile(2)
DeleteFile("C:\temp\temp.html")
DeleteFile("C:\temp\games.txt")
;-----------------------------------------
ReadFile(1,"C:\temp\games_url.txt")
ReadFile(0,"C:\temp\temp.html")
While Eof(1) = 0
URL$ = ReadString(1)
If ReceiveHTTPFile(URL$, "C:\temp\temp.html")
Else
MessageRequester("Fehler", "Es ist ein Fehler aufgetreten.")
End
EndIf
ReadFile(0,"C:\temp\temp.html")
While Eof(0) = 0
string.s = ReadString(0)
flashPos = FindString(string,"http://media.y8.com/games/content/",0)
If flashPos
flashPos+34
flashLen = FindString(string,Chr(34),flashPos)-flashPos
swffile$ = Mid(string,flashPos,flashLen)
EndIf
Wend
save$ = SaveFileRequester("Flash-Spiel speichern in...", swffile$, "Shockwave Flash (*.swf)", 0)
;save$ = "games\"+swffile$
CloseFile(0)
DeleteFile("C:\temp\temp.html")
If ReceiveHTTPFile("http://media.y8.com/games/content/"+swffile$, save$)
MessageRequester("Info", "Download erfolgreich!")
Else
MessageRequester("Fehler", "Es ist ein Fehler aufgetreten.")
EndIf
Wend
CloseFile(1)
