Цитата:
если сайт уже присутствует в менеджере сайтов, изменение параметра на него не повлияет.Да как я и описал подробно выше я проверял на уже присутствующей закачке поэтому ничего и не получалось.
если сайт уже присутствует в менеджере сайтов, изменение параметра на него не повлияет.Да как я и описал подробно выше я проверял на уже присутствующей закачке поэтому ничего и не получалось.
Reget же по точному адресу смотрит, а мне их все в менеджер сайтов нереально прописывать.
Поставил "Количество HTTP-соединений по умолчанию 1" при этом "Количество соединений в неограниченном режиме 6", "Максимум одновременных закачек 3". Если в "Менеджере сайтов" не прописано ничего для сервера, начинает секции новые открывать. На что тогда этот параметр влияет?
Получается выставить что бы качал обязательно в один поток но одновременно три файла в настройках не выставить.
kvazigorynich: начинаюют качать не с того места
kvazigorynich: Обычно это происходит при закачке с рапиды
index = EventObject.Parameter
PID_dCreationTime=212
PID_dLastStartTime=213
If (index<>-1) Then
set dl = EventObject.App.Download(index)
If (dl.Scheduled=True) Then
filestr=dl.Filename
' Set fso = CreateObject("Scripting.FileSystemObject")
' Set a = fso.CreateTextFile(filestr+".html", true)
htmlbody = "<html><table style='text-align: left; width: 100%;' border='0' cellpadding='2' cellspacing='2'><tbody><tr align='center'><th style='width: 850px;' colspan='2' rowspan='1'><big>Information about link:<br></big><hr style='width: 100%; height: 2px;'></th></tr><tr><td style='width: 116px;'>File:</td><td style='width: 850px;'>"
htmlbody = htmlbody & dl.Filename
htmlbody = htmlbody & "</td></tr><tr><td style='width: 116px;'>URL:</td><td style='width: 850px;'>"
htmlbody = htmlbody & dl("Url")
htmlbody = htmlbody & "</td></tr><tr><td style='width: 116px;'>User name: </td><td style='width: 850px;'> "
htmlbody = htmlbody & dl("Username")
htmlbody = htmlbody & "</td></tr><tr><td style='width: 116px;'>Password:</td><td style='width: 850px;'>"
htmlbody = htmlbody & dl("Password")
htmlbody = htmlbody & "</td></tr><tr><td style='width: 116px;'>Referer:</td><td style='width: 850px;'>"
htmlbody = htmlbody & dl("Referer")
htmlbody = htmlbody & "</td></tr><tr align='center'><th colspan='2' rowspan='1' style='width: 850px;'><big>Information about download file:</big><hr style='width: 100%; height: 2px;'></th></tr><tr><td style='width: 116px;'>Size:</td><td style='width: 850px;'>"
htmlbody = htmlbody & dl.Size
htmlbody = htmlbody & "</td></tr><tr align='center'><th style='width: 850px;' colspan='2' rowspan='1'><big>Information about scheduler task:</big><hr style='width: 100%; height: 2px;'></th></tr><tr><td style='width: 116px;'>Created:</td><td style='width: 850px;'>"
htmlbody = htmlbody & dl.Date(PID_dCreationTime)
htmlbody = htmlbody & "</td></tr><tr><td style='width: 116px;'>Started:</td><td style='width: 850px;'>"
htmlbody = htmlbody & dl.Date(PID_dLastStartTime)
htmlbody = htmlbody & "</td></tr><tr><td style='width: 116px;'>Finished:</td><td style='width: 850px;'>"
htmlbody = htmlbody & Now
htmlbody = htmlbody & "</td></tr><tr align='center'><th style='width: 850px;' colspan='2' rowspan='1'><big>Comments:</big><hr style='width: 100%; height: 2px;'></th></tr><tr><td style='width: 116px;'>Information:</td><td style='width: 850px;'>"
htmlbody = htmlbody & dl("Info")
htmlbody = htmlbody & "</td></tr></tbody></table><br></html>"
' a.WriteLine htmlbody
' a.Close
Call SendPost("SMTP.Mail-Server", "MyEmail@Mail", "ReGet@Mail", "Reget Sheduler new downloads", htmlbody )
End If
End If
Function SendPost(strSMTP_Server, strTo, strFrom, strSubject, strBody)
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strSMTP_Server
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10
Flds.Update
iMsg.Configuration = iConf
iMsg.BodyPart.Charset = "windows-1251"
iMsg.To = strTo
iMsg.From = strFrom
iMsg.Subject = strSubject
' для письма в формате plane text
' iMsg.TextBody = strBody
' для html письма с катринкой
' iMsg.AddRelatedBodyPart "C:\Windows\Web\WallPaper\Windows XP.jpg", "pic", 1
' iMsg.htmlbody = "<HTML>Текст сообщения<BR><img src=""pic""></HTML>"
iMsg.htmlbody = strBody
' для аттача
' iMsg.AddAttachment "C:\boot.ini"
iMsg.Send
End Function
$ReGet = New-Object -com ReGetDx.ReGetDownloadApi.1
#$ReGet | GM
# 1 спросить
# 0 скачать
$ReGet.Confirmation = 0
$ReGet.Url = "www.ru"
$ReGet.Referer= "www.ru"
$ReGet.Info = "Info"
$ReGet.AddDownload()
Вам не нужны никакие доп.окна и другие программы-качальщики
а всё-таки можно несколько копий регет запустить?У меня это не получилось. + нигде не нашёл настройку, отвечающую за разрешение/запрещение множественного запуска ReGet.
Страницы: 1234567891011121314151617181920212223242526272829303132333435363738394041
Предыдущая тема: CeltX - программа для сценаристов, писателей и режисcеров