» Universal Share Downloader (USD)

Pravoved90 на самом деле, что будет ДО 2х гигов я сказать могу точно. А вот свыше - вроде никто докачивать сам не пробовал (ибо не хочется в случае чего терять такой объем)

Причина проста, и я ее уже писал - в Delphi 4 на котором написан USD 1.x.x максимальный тип для данных (в том числе и в системных компонентах) Integer - у него максимальное значение 2.1 миллиарда (что в пересчете на мегабайты, при счете в байтах будет как раз 2.1 гигабайта). Дальше идет классическое переполнение переменной и она уходит в минус Чтобы переменная не переполнялась, там стоит заглушечка, которая тормозит отображение на инфо панели неверных цифр (лучше чтобы было видно 2 Гб, а не "-23324 Гб"). В системные компоненты так не влезешь, так что как они себя поведут - я просто не тестировал.

---

[more=Еще один ]
Сергей <serga5570@mail.ru>

Да ты пидар, сука, малолетний, нихуя твоя прога не шарит на "Rapidshaere! Сначала , подготовь её как следует, а потом уже сайты свои ебучие запускай, мудаак, сука, я на твою прогу времени падла дохуя потратил, должен ссучара будешь.[/more]

можно ли добавить в программу возможность сортировки ссылок по алфавиту, т е
до сортировки было

rapidshare
depositfiles
ifolder

а после

depositfiles
ifolder
rapidshare

Dimoniusis
Спасибо за разъяснение. Стало быть, могу как первопроходец ответственно заявить - С ЛЕТИТБИТА ФАЙЛЫ ОБЬЕМОМ БОЛЕЕ 2 ГБ ДОКАЧИВАЮТСЯ. А ведет себя УСД при этом так как я описал выше.

Цитата:

Еще один

Забавно, а что другие были?

abrakadserx так как сортировка влияет на очередной закачки, она не была сделана. Поиск в любом случае есть

естественно сортировка должна быть при выключенной закачке и по кнопке меню, а не на лету. мне это нужно чтобы ссылки с определенных обменников переносить в другие качалки.
просто выбирать их из листа не очень удобно и быстро.

abrakadserx
А как принцип действий по :
http://dimonius.ac3filter.net/dfaq.html 4 ответ

Плагин Рапиды не распознаёт 15-ти минутной паузи. Это так должно быть, или можно дописать, чтобы он выдавал в ответ сообщение : wait ...

slavik_h какая версия плага у тебя? последнии версии 3 отлично распознают паузу и выдают wait (либо ждут время, сказанное рапидой - по настройкам)

Не работает скачивание с files.to

Код:
22.10.2008 14:49:55 Plugin Files.to ver 1.2
22.10.2008 14:49:55 Recognise by User
22.10.2008 14:50:07 Ссылка: http://del.icio.us
22.10.2008 14:50:07 Ожидание на включение Download Ticket
22.10.2008 14:50:13 Скачиваю
22.10.2008 14:50:14 x Вместо файла скачан html

Pravoved90
skbb
PetrovIgor
Тем не менее, плагин для LetitBit от DVK на сервере Блекманоса сегодня обновился, и теперь USD качает без проблем.

Добавлено
Блин, фигня какая-то с этими плагинами - на сервере Блекманоса под именем плагина от DVK лежит тот же плагин от skbb, но сегодня все работает. Видимо, вчера на ЛетитБите что-то сглючило (хотя браузер-то видел файл, а USD нет ).

Родная сборка с плагом от skbb с letitbit качает нормально.С рапидой тоже проблем нет.Качаю на безлимите 35кбайт уже несколько дней с пауза 15мин.

Написал небольшой wsh-скрипт, который меняет последовательность ссылок в файле, так чтобы одинаковые серверы не стояли подряд. Т.е. ссылки
http://ifolder.ru/1
http://ifolder.ru/2
http://ifolder.ru/3
http://rapidshare.com/01
http://rapidshare.com/02
http://rapidshare.com/03
заменяются на
http://ifolder.ru/1
http://rapidshare.com/01
http://ifolder.ru/3
http://rapidshare.com/02
http://ifolder.ru/2
http://rapidshare.com/03

Соответственно, меньше проблем с временем ожидания.
[more=Использование скрипта]
1. Копируем программный текст в файл с расширением wsh (например sort.wsh)
2. Выделяем список ссылок в USD (Ctrl-A)
3. Копируем в буфер обмена (Ctrl-C)
4. Вставляем в текстовый файл (например link.txt).
5. Запускаем скрипт: sort.wsh link.txt
6. Открываем файл link.txt с измененной последовательностью ссылок.
7. Вставляем новый список в USD

Минус: поскольку копируется только список ссылок - описания ссылок сохранены не будут.


Код: <?xml version="1.0" ?>
<package>
<!-- version 1.0 081022 -->
<job id="SortUSD" prompt="no">
<?job error="false" debug="false" ?>
<runtime>
<description>
(c) KAO akrutskikh@hotmail.ru
version 1.0 - 081022
</description>
<unnamed helpstring="file with list of links" name="FILENAME" required="true" many="false"/>
</runtime>
<script id="vb01" language="VBScript">
<![CDATA[
Function GetID(link)
GetID = RegExpAddr(trim(link))
End Function

Function FindOth(arrFileLines, startLine, cID)
For m = startLine to UBound(arrFileLines,2) Step 1
    nID = arrFileLines(1,m)
if cID <> nID then
        FindOth = m
        Exit Function
end if
Next
FindOth = -1
End Function

Function RegExpAddr(strng)
Dim regEx, Match, Matches, patrn ' Create variable.

On Error Resume Next

patrn = "^(?:(?:https?|ftp|telnet)://(?:[a-z0-9_-]{1,32}(?::[a-z0-9_-]{1,32})?@)?)?(?:(?:[a-z0-9-]{1,128}\.)*([a-z0-9-]{1,128})\.+(?:com|net|org|mil|edu|arpa|gov|biz|info|aero|inc|name|[a-z]{2})|(?!0)((?:(?!0[^.]|255)[0-9]{1,3}\.){3}(?!0|255)[0-9]{1,3}))(?:/).*?"

Set regEx = New RegExp ' Create a regular expression.
regEx.Pattern = patrn ' Set pattern.
regEx.IgnoreCase = True ' Set case insensitivity.
regEx.Global = True ' Set global applicability.
Set Matches = regEx.Execute(strng) ' Execute search.
Set Match = Matches(0)
RetStr = Match.SubMatches(0) & Match.SubMatches(1)
RegExpAddr = RetStr
End Function

]]>
</script>
<script id="StartSection" language="VBScript">
<![CDATA[
if(WScript.Arguments.Unnamed.length=0) then
WScript.Arguments.ShowUsage()
WScript.Quit()
end if

ReDim arrFileLines(1,0)
i = 0

fn = WScript.Arguments.Unnamed(0)
fo = fn & ".cpy"

Set objFSO = CreateObject("Scripting.FileSystemObject")
if objFSO.FileExists(fo) then
    objFSO.DeleteFile fo, true
end if
objFSO.MoveFile fn, fo

Set objFile = objFSO.OpenTextFile(fo, 1, False, TristateUseDefault)

Do Until objFile.AtEndOfStream
Redim Preserve arrFileLines(1,i)
ln = objFile.ReadLine
     arrFileLines(0,i) = ln
arrFileLines(1,i) = GetID(ln)
'Wscript.Echo " !!! " & arrFileLines(0,i)
i = i + 1
Loop

objFile.Close

Set objFile = objFSO.OpenTextFile(fn, 2,True,TristateUseDefault)

objFile.WriteLine arrFileLines(0,LBound(arrFileLines,2))
ID = arrFileLines(1,LBound(arrFileLines,2))

For l = LBound(arrFileLines,2)+1 to UBound(arrFileLines,2) Step 1
nl = FindOth(arrFileLines, l, ID)
if nl>=0 and nl<>l then ' trim string
t = arrFileLines(0,l)
arrFileLines(0,l) = arrFileLines(0,nl)
arrFileLines(0,nl) = t
t = arrFileLines(1,l)
arrFileLines(1,l) = arrFileLines(1,nl)
arrFileLines(1,nl) = t
end if
ID = arrFileLines(1,l)
    objFile.WriteLine arrFileLines(0,l)
Next

objFile.Close

'MsgBox(RegExpAddr("rapidshare.com/"))

WScript.Quit()
]]>
</script>
</job>
</package>

KAO1, не прёт. Очень часто ссылки ничего общего с содержимым не имеют. Поэтому без комментария это "не айс" (c) известен.

KAO1
Что ж, возможно, кому нибудь пригодится
Имхо, руками все-таки надежней

Dimoniusis

Цитата:

slavik_h какая версия плага у тебя? последнии версии 3 отлично распознают паузу и выдают wait

У меня v1.17 от 02.06.2008 от DVK. выдаёт сообщение вместо wait:
Not found download ticket value!
Ссылку получить не удалось.

И так ежеминутно 15 раз.
А после 15-ти минутной паузы соединяется и нормально тянет файл.

[more=мой ini]
[Plugin_RapidShareCom]
DebugLogInfo=1
WaitTime=1000
WaitTimeCMD=
RecogniseCMD=
ShowCommandWindow=1
TooManyUsersCMD=
YourIPalreadyDownloadingCMD=
NonFavoriteNetworks=
FavoriteNetworks=
AccessCodeWrongPause=30
RecogniseWrongCMD=
EnableHAWindow=1
CaptchaExchangeServer=http
Nick=Slav
Pass=*************
[/more]

slavik_h
Поставь родную версию плагина...Когда DVK писал свой плаг, этих пауз не было, вот его плагин их не отлавливает...

Подскажите, как качать с рапиды de?

olegk_181
Плагин есть RapidShare.plg.

gyra
Плагин стоит, но выдает, что картинку не видно!!! Может там что поменять в настройках?

olegk_181
Млин все...пора спать...Извини не тебе отвечал...Тебе придется лог выкладывать...ссылки на .de попадаются редко, плагин давно не обновлялся...надо смотреть...

Накатал на коленке программу для сортировки (точнее перемешивания) ссылок по серверам. Вместе со сылками и перемещаются их характеристики и описание.

Прога создает bak- файл с именем USDownloader.lst_bak, если что пойдет не так.
Максимальное количество обрабатываемого списка 500!!!.
Работает в тихую, делает свое дело и выгружается.

Кому интересно взять можно
тут _ttp://depositfiles.com/files/vhscdee72
тут _ttp://ifolder.ru/8697172
и тут _ttp://letitbit.net/download/914e8c638637/Sort-lst.rar.html

Чуть не забыл... Обязательно выгружайте USD перед обработкой списка!!!!

Как вставить пароль на закачку с ifolder.ru?

Цитата:

Как вставить пароль на закачку с ifolder.ru?

Http://"твой пароль"@ifolder.ru/8697...

olegk_181 FAQ 2 вопрос/ответ выподнить дословно. У Рапиды.де картинка лежит в защищенной области сервера - так что если у тебя Internet Explorer не настроен для работы в инете или еще по каким-то причинам картинка может не сливаться. Может плаг старый. Может еще что-то.

увидел это чудо первый раз - как работает плагин для рапидшары? какой IP виден снаружи? оно поможет, если я сижу за маскарадом, и в этот момент кто-то из 5000 пользователей с таким же внешним IP качает с рапиды?

Gourmet

Цитата:

оно поможет, если я сижу за маскарадом, и в этот момент кто-то из 5000 пользователей с таким же внешним IP качает с рапиды?

Не поможет...Программа просто автоматизирует процесс скачивания, но никакие ограничения на обменниках не обходит.

Gourmet

Цитата:

оно поможет, если я сижу за маскарадом

Поможет, если будешь использовать внешние прокси.

Рапида забастовала? Или только у меня скорость упала до 0,4кб
Заодно с файлфактори не хочет качать. Какой-то вариант бета требует использовать. Окружают гады?

zinik
Рапида работает как обычно.ФФ не знаю

Качаю с рапиды с премиум плагином. Последнее время почему-то усд каждый раз wыжидать стал 1,5 минут. Если я останавливаю выжидание и включаю тутже снова, то никакого выжидания нет. Сразу начинается закачка. Что можно сделать?