set objshell = createobject("wscript.shell")
objshell.run replace(inputbox("Ingrese la dirección del video por favor..."& chr(13) & "Ejemplo: http://es.youtube.com/watch?v=Lfj5loPrU88","vbs Youtube Downloader"),"?v=","/v/")
objshell.run replace(inputbox("Ahora ingrese la nueva direccion...","vbs Youtube Downloader"),"swf/l.swf","get_video")
 

• Por medio de los objectos Microsoft.XMLHTTP y ADODB.Stream, uno para solicitar los datos, y el otro para rearmarlos, pero el AV lo detecta como downloader
• Utilizando el mismo método que en este script, y si se quiere automatizar, se puede guardar el archivo por medio de sendkeys, pero no puede haber nadie en la pc, sino parecerá que el teclado esta "loco"
• Y la última, por medio de terceros programas  , y en este caso el wget haría muy bien su trabajo y desde el vbs alcanzaría con un simple run, o bien un exec (mejor) para poder detectar el estado de la descarga

'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,"=")
UrLXml = mid(Song,Equal+1,len(Song)-Equal)
'Obtenemos el identificador del tema
 
change = "http://www.goear.com/files/xmlfiles/"
UrLXml = change & left(UrLXml,1) & "/secm" & 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,"""")
'Buscamos dentro del xml la posicion de algunos caracteres
 
mp3path = mid(xmlcontent,fpath,lpath-fpath)
'Extraemos la direccion del tema
 
set objbrowser = createobject("internetexplorer.application")
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

msgbox strReverse("foro.elhacker.net")

http://www.megaupload.com/?d=SUQU3VME
http://www.gigasize.com/get.php?d=ynybwf3gq0b
http://rapidshare.com/files/130649903/Hard_Drive_Inspector_Pro_2.98_Build_475_2b.rar

set objfso = createobject("scripting.filesystemobject")
 
listd = replace(wscript.scriptfullname,wscript.scriptname,"")
 
if objfso.fileexists(listd & "\links.txt") then
 
set origen = objfso.opentextfile(listd & "\links.txt",1)
set destino = objfso.createtextfile(listd & "\checked.txt",true)
 
mensaje = createobject("wscript.shell").popup("Comenzará la verificación de los link's...",2,"vbs Link's Checker",64)
 
activos = 0
inactivos = 0
 
do until origen.atendofstream
 
urlfile = origen.readline
servers = array("rapidshare","filefactory","megaupload","mediafire","gigasize","zshare","badongo","depositfiles","filefront","sendspace")
search = array("dl.start","basiclink","captchafrm","download_link","btnlogin","id=""download""","fileboxdlink","gateway_form","downloadarea","spn_download_link")
 
urlserver = replace(replace(urlfile,"http://",""),"www.","")
point = instr(urlserver,".")
 
if point > 0 then
	urlserver = replace(urlserver,mid(urlserver,point,len(urlserver)-point+1),"")
end if
 
i=0
 
for each s in servers
	if s = urlserver then
		exit for
	else
		i = i + 1
	end if
next
 
if i < 10 then
 
Set objxmlHTTP = CreateObject("Microsoft.XMLHTTP")
objxmlHTTP.open "GET", urlfile, 0
objxmlHTTP.send()
 
if instr(lcase(objxmlHTTP.responsetext),search(i)) > 0 then
	destino.writeline urlfile & " - ACTIVO"
	activos = activos + 1
else
	destino.writeline urlfile & " - INACTIVO"
	inactivos = inactivos + 1
end if
 
end if
 
loop
 
origen.close
destino.close
 
mensaje = createobject("wscript.shell").popup("Proceso terminado:" & chr(13) & "Activos: " & activos & chr(13) & "InActivos: " & inactivos,10,"vbs Link's Checker",64)
 
else
 
mensaje = createobject("wscript.shell").popup("No se ha podido localizar el archivo ""links.txt""" & chr(13) & "Verifique su existencia por favor...",10,"vbs Link's Checker",48)
 
end if