Quote:
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) :
Code:
#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) :
Code:
#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
[Only registered and activated users can see links. Click Here To Register...]) als Downloadserver? Wenn ja, dann musst du den DNS-Namen in eine IP umwandeln.
Code:
$ip = _tcptoip("www.elitepvpers.com")
MsgBox(0,"IP","Die IP ist : "&$ip)
Func _tcptoip($TCP)
TCPStartup()
$ip = TCPNameToIp($TCP)
TCPShutdown()