HomeDimoN
|
 Posted: Fri Sep 09, 2005 20:56 Post subject: Total commander + ReGet = |
 |
|
Кто знаком с KillCopy и имеет ReGet может попробовать присоединить для скачивания такой скриптик:
| Code: |
desc="" ' Коментарии
ref="" ' это для закачки с HTTP:
addr="" ' аресс который качает по умолчанию
Confirm=True ' нужно ли подтверждение (если надо менять путь куда сохранять, коментарии то пускай True, иначе False)
' Разбор переданых параметров
' WScript.Arguments(0) - ссылка на файл который надо скачать передаеться в тело процедуры без обработки (во сказал)
' WScript.Arguments(1) - Коментарии к файлу если пусто то берем из переменной desc
If WScript.Arguments.Count>1 Then desc=WScript.Arguments(1)
' WScript.Arguments(2) - Reffer это для закачки с HTTP: (откуда пришли на страницу - актуально для антилича, narod.ru и т.д.)
If WScript.Arguments.Count>2 Then ref=WScript.Arguments(2)
' WScript.Arguments(3) - требовать ли подтверждения при передачи ссылки ReGET если незадано то берем из переменной Confirm
If WScript.Arguments.Count>3 Then If CStr(WScript.Arguments(3))="NoConfirm" Then Confirm=False
AddLink WScript.Arguments(0), desc, ref, Confirm
Sub AddLink(ByVal Url, ByVal Info, ByVal Refer, ByVal Confirm)
Set Catch = CreateObject("ReGetDx.ReGetDownloadApi")
With Catch
.Info = Info
.Confirmation = Confirm
.Url = Url
.Referer = Refer
.AddDownload
.saveto = "c:\temp\" ' немогу понять API. Ссылка есть, а неработает (по идее куда сохранять файл)
End With
End Sub
|
Создаем файл.
Вставляем туда код.
Сохраняем.
Содаем кнопку на пенели на этот скрипт.
теперь достаточно перетащить на эту кнопку файл как её схватит ReGet и будет качать в соответствии со своими настройками.
Коментарии:
Позволяет перетаскивать только по одному файлу (короче ташиш несколько на закачку идет только первый)
Не работает "Куда сохранять" скачиваемый файл (немогу понять почему)
Переменная Confirm может принимать значения True и False. При True появляеться диалоговое окно в котором можно указать дополнительные параметры. False означает что качать сразу без вопросов, файл сохраняеться в директорию по умолчанию. |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
