Your Ad Here 
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
 
#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

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

Child Pastes