'by Novlucker
Song = inputbox("Ingrese la dirección del tema a descargar..."& chr(13) & "Ejemplo: http://www.goear.com/listen.php?v=a2840d6","Goear Downloader")
Equal = instr(Song,"listen/")
'UrLXml = mid(Song,Equal+7,len(Song)-Equal)
UrLXml = mid(Song,Equal+7,7)
'Obtenemos el identificador del tema
 
change = "http://www.goear.com/files/sst/secm"
UrLXml = change & UrLXml & ".xml"
'Generamos la url modificada
 


set objxml = CreateObject("Microsoft.XMLHTTP")
objxml.Open "GET",UrLXml,0
objxml.Send()
 
xmlcontent = objxml.responsetext
'Obtenemos el texto del xml
 


fpath = instr(xmlcontent,"http://")
lpath = instr(fpath,xmlcontent,"mp3")
'Buscamos dentro del xml la posicion de algunos caracteres

 
mp3path = mid(xmlcontent,fpath,lpath-fpath + 3)
'Extraemos la direccion del tema

 
set objbrowser = createobject("internetexplorer.application")
objbrowser.visible=true
objbrowser.navigate mp3path
'Navegamos hasta la direccion

 
On error resume next
 
Do While objbrowser.Busy
	WScript.Sleep 200
Loop
 
objbrowser.quit
'Salta la ventana de descarga y terminamos el objeto del iexplorer