En este caso, escribo para pedir su colaboración , si son de descargar archivos frecuentemente de internet, a más de uno le habrá pasado conseguir un archivo o imagen iso de 15, 20 o más link's.
Esto, si bien es molesto, no hay más remedio que soportarlo.... pero cual es el problema? cuando bajamos 20 archivos, y el 21 de 22, esta caído!!! .
El caso es que he encontrado algunas web's donde se verifica la disponibilidad de estos archivos, pero igualmente hay veces en las que están fuera de servicio y demás, lo que impide verificar nada....
Por lo que .. me he creado un script *.vbs para poder verificar por mi mismo , y no depender de ningún servidor ajeno , la cuestión, es que necesito de su colaboración para verificar el correcto funcionamiento de este script, por lo que le pido a todos aquellos que puedan probarlo, que lo hagan y me digan que tal les ha ido
Para poder utilizarlo correctamente, deben de tener permisos de escritura en el disco C:, o bien, cambiar las rutas C:\origen.txt y C:\destino.txt que están en las primeras líneas del archivo, por rutas con las que no tengan problemas .
Además, el archivo origen.txt, es justamente un archivo de texto plano, contiendo los link's del siguiente modo (no pueden haber líneas en blanco)
Código:
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
Permite mezclar distintos servidores como está en el anterior ejemplo
Luego de ejecutarlo, y al cabo de unos segundos, debe de saltar un mensaje, informando de la cantidad de link's activos, y no activos, y también debe de haberse creado el archivo destino.txt, en donde habrá un listado con el resultado de cada link
El código del vbscript es este....
Código
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
Bueno, en definitiva, eso....
Decir además, que como se puede llegar a ver en el código, tiene soporte para los servidores de rapidshare.com, rapidshare.de ,filefactory ,megaupload ,mediafire ,gigasize ,zshare ,badongo ,depositfiles ,filefront ,sendspace, pero se le podrían agregar algunos más, y si está todo ok, comento el code
Desde ya, muchas gracias a aquellos que hagan la prueba con el script... y saludos a todos
[Modifico:] He solucionado los problemas que me ha comentado carlitos.dll
Nota: El archivo origen.txt se renombró a links.txt y no tiene que estar en C: sino en la misma carpeta que el script