Analyze Youtube MP3 Converter 1.0, Convertire direttamente dal browser un video e scaricarlo in formato Mp3

[SPOILER]$Versione="0x312C300A"
;http://analyzelab.altervista.org/AYMP3C/Download/Versione.html
#include <guiconstantsex.au3>
#include <windowsconstants.au3>
#include <ie.au3>
;#NoTrayIcon
$LANG=IniRead (@ScriptDir&"\Impost.ini" , "LANG" , "LANG" , "ENG")
$BUTTON1=IniRead (@ScriptDir&"\Impost.ini" , $LANG , "BUTTON1" , "Back")
$BUTTON2=IniRead (@ScriptDir&"\Impost.ini" , $LANG , "BUTTON2" , "Forward")
$BUTTON3=IniRead (@ScriptDir&"\Impost.ini" , $LANG , "BUTTON3" , "Info")
$BUTTON4=IniRead (@ScriptDir&"\Impost.ini" , $LANG , "BUTTON4" , "Stop")
$BUTTON5=IniRead (@ScriptDir&"\Impost.ini" , $LANG , "BUTTON5" , "Download Mp3")
$BUTTON6=IniRead (@ScriptDir&"\Impost.ini" , $LANG , "BUTTON6" , "Update")
$BUTTON7=IniRead (@ScriptDir&"\Impost.ini" , $LANG , "BUTTON7" , "Search")
$EXITBUTTON=IniRead (@ScriptDir&"\Impost.ini" , $LANG , "EXIT" , "Exit")


$MSG1=IniRead (@ScriptDir&"\Impost.ini" , $LANG , "MSG1" , "Quick Search")
$MSG2=IniRead (@ScriptDir&"\Impost.ini" , $LANG , "MSG2" , "You have the latest version of Analyze Youtube Mp3 Converter is not need to perform any update.")
$MSG3=IniRead (@ScriptDir&"\Impost.ini" , $LANG , "MSG3" , "It is necessary to upgrade the program. Upgrade Now?")
$MSG4=IniRead (@ScriptDir&"\Impost.ini" , $LANG , "MSG3" , "Non è stato possibile scaricare il brano, è possibile che URL non sia valido o servizio temporaneamente non disponibile. o che non sia un video proprietario")

$QUERYYT="https://www.youtube.com/results?search_query="


$oIE = _IECreateEmbedded ()
GUICreate("Analyze Youtube Mp3 Converter", @DesktopWidth , @DesktopHeight )
$GUIActiveX = GUICtrlCreateObj($oIE, 10, 100, @DesktopWidth-100, @DesktopHeight)

$GUI_Button_Back = GUICtrlCreateButton($BUTTON1, 10, 10, 100, 30)
$GUI_Button_Forward = GUICtrlCreateButton($BUTTON2, 120, 10, 100, 30)
$GUI_Button_Info = GUICtrlCreateButton($BUTTON3, 230, 10, 100, 30)
$GUI_Button_Stop = GUICtrlCreateButton($BUTTON4, 340, 10, 100, 30)
$GUI_Button_Download = GUICtrlCreateButton($BUTTON5, 450, 10, 100, 30)
$GUI_Button_Aggiornamenti = GUICtrlCreateButton($BUTTON6, 560, 10, 100, 30)
$GUI_Button_Exit = GUICtrlCreateButton($EXITBUTTON, 670, 10, 100, 30)
$GUI_Search_Bar= GUICtrlCreateInput ($MSG1 , 10 , 55 , 300 , 20)
$GUI_Button_Ricerca = GUICtrlCreateButton($BUTTON7, 310, 50, 100, 30)



GUISetState ()

; Waiting for user to close the window
While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
Case $msg = $GUI_Button_Info
MsgBox ( 0 , "Analyze Youtube Mp3 Converter" , "Created by Mezzofante Gaetano Emanuele")

Case $msg = $GUI_Button_Back
_IEAction ($oIE, "back")
Case $msg = $GUI_Button_Forward
_IEAction ($oIE, "forward")
Case $msg = $GUI_Button_Stop
_IEAction ($oIE, "stop")
Case $msg = $GUI_Button_Exit
ShellExecute ("www.analyzelab.altervista.org\AYMP3C\index"&$LANG&".htm" )
Exit
Case $msg = $GUI_Button_Aggiornamenti
$Test="NO"
$Chooser=0
$Data=InetRead ("http://analyzelab.altervista.org/AYMP3C/Download/Versione.html" , 0)
if $Data=$Versione then $Test="OK"
if $Test="OK" then MsgBox (64 , "Analyze GPA" , $MSG2)
if $Test="NO" then $Chooser=MsgBox (68 , "Analyze GPA" , $MSG3)
if $Chooser=6 then InetGet ("http://analyzelab.altervista.org/AYMP3C/Download/GPA.exe" , @ScriptDir&"\GPA.exe")
if $Chooser=6 then Run (@ScriptDir&"\GPA.exe" , @ScriptDir)

Case $msg = $GUI_Button_Ricerca
$InputSearchYT=GUICtrlRead ($GUI_Search_Bar)
_IENavigate ($oIE , $QUERYYT&$InputSearchYT)

case $msg = $GUI_Button_Download


$IDIStance= _IEPropertyGet($oIE, "locationurl")
ProgressOn ("Analyze Youtube MP3 Converter" , "Cerco..." , "Sto cercando")

GUICreate("Download", @DesktopWidth , @DesktopHeight , @SW_SHOW )
$oIE1 = _IECreateEmbedded ()
$GUIActiveX1 = GUICtrlCreateObj($oIE1, 10, 100, @DesktopWidth-100, @DesktopHeight)
_IENavigate ($oIE1 , "http://www.youtube-mp3.org/it")
$Input = _IEGetObjById ($oIE1, "youtube-url")
_IEFormElementSetValue ($Input, $IDIStance)
$submitbutton = _IEGetObjById ($oIE1, "submit")

_IEAction($submitbutton, "click")
Global $Ricalcolo=0
Sleep (5000)
ProgressOff ()
$Convalidate=_IELinkClickByText ($oIE1, "Scarica")
if $Convalidate=0 then Call ("Ricalcolo")

EndSelect
WEnd

GUIDelete()

Exit

Func Ricalcolo ()
$Ricalcolo=$Ricalcolo+1

if $Ricalcolo>3 then MsgBox (16 , "Errore!" , $MSG4)
Sleep (1000)
$Convalidate=_IELinkClickByText ($oIE, "Scarica")
if $Ricalcolo>5 then $Convalidate=1
if $Convalidate=0 then Call ("Ricalcolo")

EndFunc