Reget (часть 2) - [51] :: Программы :: Компьютерный форум Ru.Board

Скриптик для отсылки сообшения на почту, если закачка была запущена из Sheduler'а Reget'а
SendPost - можно переписать под себя

Цитата:

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 API или сохранились архивы News Group?

Добавлено:
Ну и для прикола - не дай бог пригодиться...
Скрипт на PowerShell для добавления закачки в Reget...

Цитата:

$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()

Модерирует : gyra, Maz
Версия для печати • Подписаться • Добавить в закладки
Страницы: 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