#cs

Autore: Red Skull 92

Web: http://redskull92.wordpress.com

Mail:RedSkull92[AT]gmail[DOT]com

Descrizione: Script in grado di prelevare le canzoni dal sito www.stereomood.com

#ce

 

 

#include <file.au3>

#include <ie.au3>

#include <string.au3>

 

Global $file=@TempDir&"\lista.xspf",$conto,$leggo,$find=False

 

$categoria=InputBox("Categoria","Inserisci il nome della categoria (Esempio: happy)"&@CRLF&"Se non ricordi il nome vai sul sito www.stereomod.com e guarda quella che ti interessa.")

$titolo=InputBox("Titolo Canzone","Inserisci il titolo della canzone che vuoi scaricare (il titolo deve essere esatto")

 

$ie=_IECreate("http://stereomood.com/mood/"&$categoria&"/playlist.xspf",0,0)

$down=_IEBodyReadText($ie)

 

FileWrite($file,$down)

$conto=_FileCountLines($file)

 

For $i=1 To $conto

        $leggo=FileReadLine($file,$i)

        If StringRegExp($leggo,"<title>"&$titolo&"</title>",0) = 1 Or StringRegExp($leggo,"<title>"&StringUpper($titolo)&"</title>",0) = 1 Or StringRegExp($leggo,"<title>"&StringLower($titolo)&"</title>",0) = 1 Or StringRegExp($leggo,"<title>"&_StringProper($titolo)&"</title>",0) = 1  Then

                $find=True

                $url=FileReadLine($file,$i-1)

                $link=StringRegExp($url,"<location>(.*?)</location>",3)

                $i=$conto

        EndIf

Next

 

If $find=False Then

        MsgBox(48,"Not Found","Canzone non trovata")

        Exit

Else

        MsgBox(64,"Found","Canzone trovata in attesa dello scaricamento, Alla fine del Download verrai avvertito con un messaggio.",5)

        InetGet($link[0],@ScriptDir&"\"&$titolo&".mp3")

        MsgBox(64,"Complete","Scaricamento della canzone "&$titolo&".mp3 Completata ! ")

        FileDelete($file)

EndIf