#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
#include <Array.au3>
#include <File.au3>
#include <String.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
Global $aSearchString, $oIE
$Search = GUICreate("SoundCloud - Download", 468, 159, 316, 491)
$searchBox = GUICtrlCreateInput("", 8, 24, 345, 43)
GUICtrlSetFont(-1, 22, 400, 0, "Verdana")
$searchButton = GUICtrlCreateButton("Download", 360, 24, 99, 41)
$lTitle = GUICtrlCreateLabel("No Download - Ready", 6, 80, 454, 22, $SS_CENTER)
GUICtrlSetFont(-1, 12, 400, 0, "Verdana")
$Progress1 = GUICtrlCreateProgress(8, 112, 449, 33)
WinSetOnTop ("SoundCloud - Download", "", 1)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
_IEQuit ($oIE)
Exit
Case $searchButton
GUICtrlSetData ($lTitle, "Connecting...")
;## Connessione al sito con l'URL della canzone
$oIE = _IECreate ("http://offliberty.com/#"&GUICtrlRead($searchBox), 1, 0)
GUICtrlSetData ($lTitle, "Connected")
;## Scarica il source della pagina e cerca il link di download da SoundCloud
Do
$oRead = _IEBodyReadHTML ($oIE)
$sBet = _StringBetween ($oRead, '<a class="download" href="', '" rel="noreferrer">')
Until $sBet <> 0 ;## Se non trova il link riprova a fare l'operazione (la pagina ci mette un po a crearlo)
GUICtrlSetData ($lTitle, "Processing...")
$rReadSearchBox = GUICtrlRead($searchBox)
$aReverse = _StringReverse($rReadSearchBox) ;Gira al contrario l'URL
$aSplitRev = StringSplit ($aReverse, "/") ;Divide la stringa
$aReverseUlt = _StringReverse ($aSplitRev[1]) ;Prende la prima parte della stringa e la rigira
$aReplaced = StringReplace ($aReverseUlt, "-", " ") ;Ora rimpiazza - con uno spazio vuoto
$sFileSize = InetGetSize($sBet[0]) ;Legge le dimensioni del file MP3
$sDowHandle = InetGet ($sBet[0], @DesktopDir&"/Dubstep/"&$aReplaced&".mp3", 1, 1) ;Avvia il processo di download
GUICtrlSetData ($lTitle, $aReplaced)
;## Il ciclo che aggiorna la ProgressBar
Do
$aState = InetGetInfo($sDowHandle, 0)
$aCalc = (100 * $aState) / $sFileSize
GUICtrlSetData ($Progress1, $aCalc)
Sleep(500)
Until InetGetInfo($sDowHandle, 2) ;Quando il hande del download corrisponde a TRUE esce (ha finito di scaricare)
GUICtrlSetData ($Progress1, 0)
GUICtrlSetData ($lTitle, "Download Finished - Ready")
GUICtrlSetData ($searchBox, "")
EndSwitch
WEnd
Non sono solito condividere i miei programmi ma questa volta lo faccio, magari e' utile a qualcuno xD Anche perche' una sbirciatina al forum la do ogni giorno.
Complimenti comunque...