Universal Share Downloader - [41] :: Программы :: Компьютерный форум Ru.Board

Universal Share Downloader v1.3.4.4
Dimonius Homepage Зеркало 1 и Зеркало 2

Эту программу можно также назвать RapidShare downloader, MyTempDir downloader и прочими словами. А по-русски - это универсальная качалка с сайтов, которые позволяют класть на себя файлы. Не секрет, что часть этих сайтов дают качать только 1 потоком, и 1 файл за раз. Плюс у части еще есть пауза в час/два перед скачкой следующего файла. Помнить, что скачал, что нет - сложно. И по часам выгадывать когда можно качать, а когда нет. Для тех, кто хочет просто забить ссылки, оставить компьютер и быть уверенным, что программа вовремя все скачает, и ни минуты не пройдет зря, и написана эта программа.
Поддерживает закачку с RapidShare.de, MyTempDir.com, qFile.de, WebFile.ru, MegaUpload и т.д.
Скачать программу, плагины и дополнительные языки.

Убедительная просьба, не захламлять страницы топика километровыми постами с содержимым ваших ini- и log- файлов, а прятать подобные материалы в тэги more:
[more] здесь идёт ваш текст [/more].
Подробнее читаем здесь.

Прежде, чем спрашивать, прочитайте FAQ

Внимание! Прежде чем писать, что программа не качает, убедитесь, что у Вас установлены последние версии плагинов.

РАПИДШАРЕ.ДЕ поменяла расположение картинки на https протокол, который требует SSL шифрование. Чтобы качать снова: Подробнее...

megaupload.com, sexuploader.com, megarotic.com
Если вы регулярно получаете сообщение "All slots for you country is busy" то перейдите в Опции --> Разное --> Юзер Агент и там ВСТАВИТЬ (в стандартном выборе этой строки нет):
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0; .NET CLR 1.1.4322; MEGAUPLOAD 1.0)

Автораспознавние Rapidshare.com и др. (через FineReader 8. Только 8! или Cap.exe)
Цитата:

Если вылетает Внутренняя програмная ошибка \Finereader8\Awl\Src\OleDataSourceAwl.cpp, 449 - нужно отключить работу с буфером обмена у всех программ которые его перехватывают (например: Download Master, Reget Delux, Punto Switcher и т.д.). Утилитка позволяет определить, какое же приложение в данный момент наблюдает за буфером обмена.

- Дистрибутив FineReader 8.0 портативный от BlackList
- Дистрибутив FineReader 8.0 проверенный KireevSasha
- Дистрибутив FineReader 8.0 portable проверенный toxicmail (пароль: toxic)
- мини FAQ от erka23. Вопросы по обучению ФР, по сбору картинок, видео по обучению, сам ФР8 и другие вопросы
- Cборка от KireevSasha (08.06.2007, Rapidshare.com, FileFactory.com основные плагины). Спасибо Kis_s за Cap v1.6.8. Пароль: forum.ru-board.com
- Сборка от blackmanosзеркало1зеркало2(02.06.2007- положить в папку с USD и запустить, в сборку в ходит cap от kis_s, antycaptcha от pash78 и fbt для Finereader 8.0. Работает с Rapidshare.com, FileFactory.com, MegaUpload.com и тд)
- Полная сборка от toxicmail (пароль: toxic) (31.03.2007, Rapidshare.com (сборка от немцев), DataCod.Ru, Filefactory.com, MegaUpload.com, Ifolder.ru)
- Только обновление от toxicmail (пароль: toxic) (31.03.2007, Rapidshare.com (сборка от немцев), DataCod.Ru, Filefactory.com, MegaUpload.com, Ifolder.ru)
- фильтр ImageMagick
- Cap v1.6.9 от Kis_s (13.06.2007) - Rapidshare.com FileFactory.com Программа быстрого распознавания (вместо FineReadera) + Встроенный Чекер + Доп. функции. Ставится поверх родного USD. Для интеграции автомата запустить CapSetup.bat
- Cap v1.6.8 от Kis_s Пакет для переключения между плагинами от DVK <-> Dimonius
- чеккер от Nik_Cy
- Полная сборка от Nik_Cy (требует ImageMagick)
- Reconnecter - программа для реконнекта модемов и роутеров
- Reconnecters - сборник программ для реконнекта модемов и роутеров
- Reconnect для роутеров Acorp и D-Link от belw
- Reconnect для роутеров через telnet от erka23
- Смена dynamic IP для модема Westell 6100:Visual Basic 6 программный код: от UriF
- Проверка валидности ссылок rapidshare.com без скачивания

6-го марта 2007 года успешно стартовал проект Captcha Exchange Server!
(Сервер Обмена Каптчами или СОК)

В настоящее время поддерживаются сервера: RapidShare.com, iFolder.ru, DataCod.ru, FileFactory.com, MegaUpload.com, SexUploader.com, MegaRotic.com, ShareBigFile.com, Easy-Share.com, Badongo.com(.net), GetFile.biz, ShareUa.com, NetLoad.in, Upload.com.ua только через неофициальные плагины!
Автор разработки и реализации - DVK aka dvkdvkdvkdvk(здесь, на форуме)

Что такое CAPTCHA и зачем ими меняться

? --> Подробнее...

Вопросы работы С.О.К-а обсуждаем здесь, не засоряем этот топик.

FAQ по Серверу Обмена Каптчами вобщем-то тоже вынесено сюда.

Свежая статистика работы СОКа --> здесь.
С.О.К позволяет обмениваться вобщем-то любыми каптчами, очень облегчает жизнь тем, кто не может правильно настроить распознавание в автомате. Желающим зарегистрироваться --> сюда

Последние версии неофициальных плагинов от DVK (на 09.06.07) с подробной инструкцией --> здесь
Неофициальные плагины: CocoShare.cc, DataCod.ru, FileFactory.com, RapidShare.com, Badongo.com, ShareUa.com :плагины неофициальные
Неофициальные плагины: YourFileLink.com, iFolder.ru, MegaUpload.com, SexUploader.com, GetFile.biz, NetLoad.in :плагины неофициальные
Неофициальные плагины: MegaRotic.com, ShareBigFile.com, Easy-Share.com, 4FileHosting.com, Upload.com.ua :плагины неофициальные

Копирайты ака наш респект и уважуха за:
- программы
- ABBYY FineReader 8 - (c) ABBYY Software
- Universal Share Downloader + плагины - (c) Dimoniusis aka SimBa
- фильтры
- ImageMagick - (с) ImageMagick Studio
- convert - (с) ImageMagick Studio
- composite - (c) ImageMagick Studio
- usd - (c) KireevSasha ака Саша Киреев
- usd_datacod - (c) KireevSasha ака Саша Киреев
- toxicOCR - (c) toxicmail ака toxic
- чеккеры
- Checker - (с) Nik_Cy ака n123al
- nircmdc -(с) Nir Sofer aka NirSoft
- toxicOCR - (c) toxicmail ака toxic
- плагины
- для CES (и собственно сам CES) - (c) DVK aka dvkdvkdvkdvk
- хостинг
- на ру-борде - (с) batva

Последние смены картинок на rapidshare.com:

Когда	Получили	Поимели
19 мая 22:00 МСК
27 мая 19:00 МСК
13 июня 02:00 МСК

Полная история смены картинок за последние дни: здесь

шапка коллективное творение.
- Никаких частных объявлений
- Следить за своим лексиконом.

/Widok/

мой код на VB6 для Westell 6100 (Verizon DSL) для смены dynamic IP
не знаю, есть ли смысл класть в шапку, и, если да, то просьба, копию вопросов и замечаний писать в личный ящик

Код:

In project references:
Microsoft HTML Object Library - C:\winnt\system32\mshtml.tlb
MIcrosoft VB Script Regular expressions 5.5 - C:\winnt\system32\vbscript.dll\3

On form - WebBrowser Control name - brwProxy
Code in module:

Option Explicit

Public Sub Main()
frmRouter.Show
frmRouter.ChangeIP
Unload frmRouter

End Sub

code in form:

Option Explicit
Dim bStatus As Boolean

Private Const INTERNET_FLAG_NO_CACHE_WRITE = &H4000000 ' don't write this item to the cache
Private Const INTERNET_FLAG_RELOAD = &H80000000
Private Const INTERNET_FLAG_PRAGMA_NOCACHE = &H100
Private Const INTERNET_OPEN_TYPE_PRECONFIG = 0
Private Const SCUSERAGENT = "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"

Private Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" _
(ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, _
ByVal sProxyBypass As String, ByVal lFlags As Long) As Long
Private Declare Function InternetOpenUrl Lib "wininet.dll" Alias "InternetOpenUrlA" _
(ByVal hInternetSession As Long, ByVal sURL As String, ByVal sHeaders As String, _
ByVal lHeadersLength As Long, ByVal lFlags As Long, ByVal lContext As Long) As Long
Private Declare Function InternetReadFile Lib "wininet.dll" (ByVal hFile As Long, _
ByVal lpBuffer As String, ByVal dwNumberOfBytesToRead As Long, lpNumberOfBytesRead As Long) _
As Boolean
Private Declare Function InternetCloseHandle Lib "wininet.dll" _
(ByVal hInet As Long) As Integer

Private Sub brwProxy_DocumentComplete(ByVal pDisp As Object, URL As Variant)
bStatus = True
End Sub

Private Sub WaitForBrowser(Link As String)
'2 - navNoHistory
bStatus = False
brwProxy.Navigate2 Link, 2
Do While bStatus = False
DoEvents
Loop
Do While brwProxy.Document.ReadyState <> "complete"
DoEvents
Loop

End Sub

Private Sub WaitForModemStatus(Status As Integer, HTMLDocFR As HTMLDocument)

'Disconnect - 2
'connect - 1
bStatus = False
HTMLDocFR.PPPAction.PPPRequest.Value = Status
HTMLDocFR.PPPAction.currentCnIndex.Value = 0
HTMLDocFR.PPPAction.submit

Do While bStatus = False
DoEvents
Loop
Do While brwProxy.Document.ReadyState <> "complete"
DoEvents
Loop

End Sub

Private Sub WaitInterval(Seconds As Integer, _
Release As Boolean, HTMLDocFR As HTMLDocument, CheckConnect As Boolean)
Dim Date1 As Date
Dim DateTemp As Date
Dim intDiff As Integer
Date1 = Now
DateTemp = DateAdd("s", Seconds, Date1)
Do While Now < DateTemp
DoEvents
intDiff = DateDiff("s", Now, DateTemp)
If CheckConnect Then
If intDiff < Seconds And intDiff Mod 10 = 0 Then
If VerifyDisconnect(HTMLDocFR) Then
Exit Do
End If
End If
End If

Loop
End Sub

Public Sub ChangeIP()
Dim strTemp As String
Dim HTMLDocFR As MSHTML.HTMLDocument
Dim HTMLDoc As MSHTML.HTMLDocument
Dim strOldIP As String
Dim strNewIP As String

strTemp = "http://192.168.1.1"
WaitForBrowser strTemp
Set HTMLDoc = brwProxy.Document
Set HTMLDocFR = HTMLDoc.frames(0).Document
strOldIP = GetPublicIP
strNewIP = strOldIP
Do While strOldIP = strNewIP
'Disconnect
WaitForModemStatus 2, HTMLDocFR
WaitInterval 55, True, HTMLDocFR, True
If Not VerifyDisconnect(HTMLDocFR) Then
'connect
WaitForModemStatus 1, HTMLDocFR
WaitInterval 5, True, HTMLDocFR, False
End If
strNewIP = GetPublicIP
Loop
End Sub

Private Function VerifyDisconnect(HTMLDocFR As HTMLDocument) As Boolean
On Error GoTo Error_Handler
VerifyDisconnect = False
If InStr(HTMLDocFR.body.innerText, "Auto RegistrationUP") > 0 Then
VerifyDisconnect = True

End If
Exit Function

Error_Handler:

End Function

Public Function GetPublicIP() As String
Dim WebSites(6) As String
Dim strPublicIP As String
Dim I As Integer

strPublicIP = ""
WebSites(0) = "http://vbnet.mvps.org/resources/tools/getpublicip.shtml"
WebSites(1) = "http://whatismyip.com"
WebSites(2) = "http://www.whatismyip.org"
WebSites(3) = "http://www.showmyip.com"
WebSites(4) = "http://www.auditmypc.com/whats-my-ip.asp"
WebSites(5) = "http://myip.dk"
WebSites(6) = "http://formyip.com"
I = 0
Do While Len(Trim(strPublicIP)) = 0
strPublicIP = GetPublicIPSingle(WebSites(I))
I = I + 1
If I > 6 Then I = 0
Loop
GetPublicIP = strPublicIP
End Function

Private Function GetPublicIPSingle(WebSite As String) As String
Dim strRet As String

strRet = OpenCurUrl(WebSite)
GetPublicIPSingle = ""
With New RegExp
.MultiLine = True
.Pattern = "(\d{1,4}.\d{1,4}.\d{1,4}.\d{1,4})"
If .Test(strRet) Then
GetPublicIPSingle = .Execute(strRet).Item(0).SubMatches(0)
End If
End With
End Function
Private Function TranslateErrorCode(ByVal lErrorCode As Long) As String
Select Case lErrorCode
Case 0
Case 12001: TranslateErrorCode = "No more handles could be generated at this time"
Case 12002: TranslateErrorCode = "The request has timed out."
Case 12003: TranslateErrorCode = "An extended error was returned from the server."
Case 12004: TranslateErrorCode = "An internal error has occurred."
Case 12005: TranslateErrorCode = "The URL is invalid."
Case 12006: TranslateErrorCode = "The URL scheme could not be recognized, or is not supported."
Case 12007: TranslateErrorCode = "The server name could not be resolved."
Case 12008: TranslateErrorCode = "The requested protocol could not be located."
Case 12009: TranslateErrorCode = "A request to InternetQueryOption or InternetSetOption specified an invalid option value."
Case 12010: TranslateErrorCode = "The length of an option supplied to InternetQueryOption or InternetSetOption is incorrect for the type of option specified."
Case 12011: TranslateErrorCode = "The request option can not be set, only queried. "
Case 12012: TranslateErrorCode = "The Win32 Internet support is being shutdown or unloaded."
Case 12013: TranslateErrorCode = "The request to connect and login to an FTP server could not be completed because the supplied user name is incorrect."
Case 12014: TranslateErrorCode = "The request to connect and login to an FTP server could not be completed because the supplied password is incorrect. "
Case 12015: TranslateErrorCode = "The request to connect to and login to an FTP server failed."
Case 12016: TranslateErrorCode = "The requested operation is invalid. "
Case 12017: TranslateErrorCode = "The operation was canceled, usually because the handle on which the request was operating was closed before the operation completed."
Case 12018: TranslateErrorCode = "The type of handle supplied is incorrect for this operation."
Case 12019: TranslateErrorCode = "The requested operation can not be carried out because the handle supplied is not in the correct state."
Case 12020: TranslateErrorCode = "The request can not be made via a proxy."
Case 12021: TranslateErrorCode = "A required registry value could not be located. "
Case 12022: TranslateErrorCode = "A required registry value was located but is an incorrect type or has an invalid value."
Case 12023: TranslateErrorCode = "Direct network access cannot be made at this time. "
Case 12024: TranslateErrorCode = "An asynchronous request could not be made because a zero context value was supplied."
Case 12025: TranslateErrorCode = "An asynchronous request could not be made because a callback function has not been set."
Case 12026: TranslateErrorCode = "The required operation could not be completed because one or more requests are pending."
Case 12027: TranslateErrorCode = "The format of the request is invalid."
Case 12028: TranslateErrorCode = "The requested item could not be located."
Case 12029: TranslateErrorCode = "The attempt to connect to the server failed."
Case 12030: TranslateErrorCode = "The connection with the server has been terminated."
Case 12031: TranslateErrorCode = "The connection with the server has been reset."
Case 12036: TranslateErrorCode = "The request failed because the handle already exists."
Case Else: TranslateErrorCode = "Error details not available."
End Select
End Function

Private Function OpenCurUrl(ByVal sURL As String) As String
Dim hInet As Long 'inet handle
Dim hFile As Long 'url handle
Dim lFlags As Long
'read file vars
On Error GoTo ErrHandler
Dim bDoLoop As Boolean
Dim bRet As Boolean
Dim sReadBuffer As String * 1024
Dim sBuffer As String
Dim lNumberOfBytesRead As Long
lFlags = INTERNET_FLAG_NO_CACHE_WRITE Or _
INTERNET_FLAG_RELOAD Or _
INTERNET_FLAG_PRAGMA_NOCACHE

'connect
hInet = InternetOpen(SCUSERAGENT, INTERNET_OPEN_TYPE_PRECONFIG, vbNullString, vbNullString, 0)
If hInet <> 0 Then
hFile = InternetOpenUrl(hInet, sURL, vbNullString, 0, lFlags, 0)
If CBool(hFile) Then
'read file
bDoLoop = True
While bDoLoop
sReadBuffer = vbNullString
bRet = InternetReadFile(hFile, sReadBuffer, 1024, lNumberOfBytesRead)
sBuffer = sBuffer & Left(sReadBuffer, lNumberOfBytesRead)
If Not CBool(lNumberOfBytesRead) Then bDoLoop = False
Wend
OpenCurUrl = sBuffer
Else
OpenCurUrl = TranslateErrorCode(Err.LastDllError)
End If
Else
OpenCurUrl = "Failed to initialize INET"
End If
ErrHandler:
If hFile <> 0 Then InternetCloseHandle hFile
If hInet <> 0 Then InternetCloseHandle hInet

If Err.Number > 0 Then

OpenCurUrl = "Error " & Err.Number & ": " & Err.Description
End If
End Function

bat file:

@echo off
start /wait C:\VBprojects\routervb\routervb.exe
ping 127.0.0.1 -n 1 >nul

Модерирует : gyra, Maz
Widok (13-06-2007 14:35): лимит страниц. продолжаем здесь	Версия для печати • Подписаться • Добавить в закладки
Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107