Teeworlds Friends

PHP-Quelltext

#include <File.au3>

$File = "dubstep.txt"

$Lines = _FileCountLines ($File)

For $x = 1 To 5279
   $ReadL = FileReadLine ($File, $x)
   $Splitted = StringSplit ($ReadL, "<||>", 1)
   InetGet ($Splitted [2], "Music/Dubstep/" &  $Splitted [1])
Next

PHP-Quelltext

#include <String.au3>
#include <File.au3>

$Temp    = "Temp/temp.htm"
$List    = "list.txt"
$Page    = 0
$Line    = 1

While 1
download ('http://soundowl.com/browse/genre/dubstep/'& $Page, $Temp)
For $x = 146 To 203 Step +3
   $FileO    = FileOpen ($Temp, 0)
   $ReadL     = FileReadLine ($FileO, $x)
   $SName    = _StringBetween ($ReadL, 'data-title="', '" data-artist')
   $Link    = _StringBetween ($ReadL, 'data-track_url="/track/', '/')
   If @error = 1 Then ContinueLoop
   _FileWriteToLine ($List, $Line, $SName [0] & '.mp3<||>http://dl.soundowl.com/'& $Link [0]& '.mp3')
   $Line = $Line +1
Next
$Page = $Page + 20
WEnd


Func download ($inet_get = "",$save_dir = "") 
$hDownload1 = InetRead($inet_get,1)
$content = BinaryToString($hDownload1)
$content = StringSplit($content,@CRLF)
$file = FileOpen($save_dir,34)
For $i = 1 To UBound($content)-1
FileWriteLine($file,$content[$i])
    Next
FileClose($file)
EndFunc