Problem mit InetGet

[.Resistance]

Hi
Ich will per InetGet() ein paar Dateien runterladen.
Die Dateien sollen aber nicht direkt in den Ordner, in dem die EXE ist, sondern in einen Unterordner.
Die Dateien werden zwar runtergeladen aber sind alle 4KB groß (sind sie in Wirklichkeit nicht) und fehlerhaft/funktionieren nicht.

[TrickGamer]

Kommt drauf an wo du die runterlädst, es muss die datei im netz angegeben sein
also z.B Megaupload geht nicht^^
( Inetget("URL","Speicherort")

[.Resistance]

Ich will eine txt Datei haben, in der alle Dateien stehen, die runtergeladen werden sollen in der Form:

ordnername/dateiname.exe

Das wird ausgelesen und als $file gespeichert
und dann halt InetGet($url,$file)

€dit: Und nein kein Megaupload oder so
Von einem Freehoster oder so

[derpo]

#include <INet.au3>
$URL = "Hier URL des Downloads rein"
$Verzeichnis = "Hier Ort eingeben, wo die Datei gespeichert wird"
$Daten = _InetGetSource($URL)
FileWrite($Verzeichnis,$Daten)

Geht nur für direkte Downloads!
Ist nur für kleine Daten empfehlenswert, es dauert lange und bei sehr großen Daten wird dein Arbeitsspeicher voll sein.

[.Resistance]

Ich will aber viele (ca. 50) sehr kleine (1KB) Dateien ganz schnell runterladen^^

[jonny5252]

Originally Posted by poll7979

Ich will aber viele (ca. 50) sehr kleine (1KB) Dateien ganz schnell runterladen^^

evtl. als zip packen und dann entpacken

[derpo]

Originally Posted by jonny5252

evtl. als zip packen und dann entpacken

Oder die Dateien nummerieren, wie zum Beispiel datei1.datei, datei2.datei,...
Dann eine For-Schleife machen, bei der ein Integer am Anfang 0 ist und 1 höher zählt bis 50. In diese For-Schleife machst du dann den Download-Skript rein.
Hier mal ein Beispiel (ungetestet) :

 Spoiler

#include <Inet.au3>
For $i=0 To 50 Step 1
	_getfile("127.0.0.1/datei"& $i &".datei","C:\Downloads\datei"& $i&".datei")

Next
MsgBox(0,"Downloads","Die Dateien wurden heruntergeladen!")
Func _getfile($URL,$Dateispeichern)
	$Daten = _InetGetSource($URL)
	FileWrite($Dateispeichern,$Daten)
EndFunc

Wenn du aber die Downloads nicht nummeriert downloaden willst, dann mach das ganze mit Arrays.

Mit Arrays (unübersichtlich und ungetestet) :

 Spoiler

#include <Inet.au3>
global $URL1[5]
$IP = "127.0.0.1"
$URL1[0] = $IP&"/setup.exe"
$URL1[1] = $IP&"/uninstall.exe"
$URL1[2] = $IP&"/index.html"
$URL1[3] = $IP&"/apache.exe"
$URL1[4] = $IP&"/leerestextdokument.txt"
global $Downloadziel[5]
$Downloadziel[0] = "C:\Downloads\setup.exe"
$Downloadziel[1] = "C:\Downloads\uninstall.exe"
$Downloadziel[2] = "C:\Downloads\index.html"
$Downloadziel[3] = "C:\Downloads\apache.exe"
$Downloadziel[4] = "C:\Downloads\leerestextdokument.txt"
For $i=0 To 5 Step 1
	_getfile($URL1[$i],$Downloadziel[$i])
Next
MsgBox(0,"Downloads","Die Dateien wurden heruntergeladen!")
Func _getfile($URL,$Dateispeichern)
	$Daten = _InetGetSource($URL)
	FileWrite($Dateispeichern,$Daten)
EndFunc

P.S. Hast du einen DNS-Namen (zum Beispiel ) als Downloadserver? Wenn ja, dann musst du den DNS-Namen in eine IP umwandeln.

 Spoiler

$ip = _tcptoip("www.elitepvpers.com")
MsgBox(0,"IP","Die IP ist : "&$ip)
Func _tcptoip($TCP)
TCPStartup()
$ip = TCPNameToIp($TCP)
TCPShutdown()

[.Resistance]

Danke ich werd es mit den Arrays versuchen

€dit:
Ist es möglich, die Variablen in einer While-Schleife zu definieren?
So ungefähr:

PHP Code:

$n = 0
While $n < 58
$url1[$n] = $url & "/" & $file
$n = $n + 1
Wend 


[derpo]

Originally Posted by poll7979

Danke ich werd es mit den Arrays versuchen

€dit:
Ist es möglich, die Variablen in einer While-Schleife zu definieren?
So ungefähr:

PHP Code:

$n = 0
While $n < 58
$url1[$n] = $url & "/" & $file
$n = $n + 1
Wend 


Ja, so, wie du es gemacht hast, ist es (glaube ich) richtig.
In einer For-Schleife ist es aber ein bisschen einfacher