3
51
a7559d80-fdb3-4221-91b1-c0b5c81ae64e
https://kino-live1.live
234DF17B-418C-4FDC-9DFE-CD0C586D2E76
4
Kino-Live1.live
515
1
700
0
701
-1
702
-1
517
578-720,722-1080,482-576,402-480,322-400,202-320,0-200
518
0
512
0
532
1
553
1
522
0
570
1
245
a7559d80-fdb3-4221-91b1-c0b5c81ae64e
93
43542,4963340741
55
https://sun3-3.userapi.com/c840223/v840223116/8a251/GDimGYroy-s.jpg
527
--addinfoitems
550
string gsUrlBase = "https://kino-live1.live";// База для относительных ссылок
int gnTotalItems = 0; // Счётчик созданных элементов
TDateTime gStart = Now; // Время начала запуска скрипта
string gsTime = "00:35:00.000"; // Продолжительность видео
int mpiCountry = 10012; // Идентификаторы для хранения дополнительной
int mpiTranslate = 10013; // информации в свойствах подкаста
int mpiQuality = 10014;
int mpiVideoMessage = 1001001;
string gsPodcastName = "kino-live1.live";
string gsPreviewPrefix = 'kino-live1'; // Префикс кеша информационных картинок на сервере wonky.lostcut.net
///////////////////////////////////////////////////////////////////////////////
// Создание информационной ссылки
void CreateInfoItem(string sName, string sVal) {
THmsScriptMediaItem Item; sVal = Trim(sVal);
if (sVal=="") return;
Item = HmsCreateMediaItem('Info'+IntToStr(PodcastItem.ChildCount), PodcastItem.ItemID);
Item[mpiTitle ] = sName+': '+sVal;
Item[mpiThumbnail ] = 'http://wonky.lostcut.net/vids/info.jpg';
Item[mpiTimeLength] = 9;
Item[mpiCreateDate] = VarToStr(IncTime(gStart,0,-gnTotalItems,0,0));
gnTotalItems++;
}
///////////////////////////////////////////////////////////////////////////////
// Создание ссылки-ошибки
void CreateErrorItem(string sMsg) {
THmsScriptMediaItem Item = HmsCreateMediaItem('http://wonky.lostcut.net/vids/podcasterror_hd.mp4', PodcastItem.ItemID);
Item[mpiTitle ] = sMsg;
Item[mpiThumbnail ] = 'http://wonky.lostcut.net/icons/symbol-error.png';
}
///////////////////////////////////////////////////////////////////////////////
// Создание ссылки на видео
THmsScriptMediaItem CreateMediaItem(THmsScriptMediaItem Folder, string sTitle, string sLink='', string sGrp='') {
THmsScriptMediaItem Item = HmsCreateMediaItem(sLink, Folder.ItemID, sGrp);
Item[mpiTitle ] = sTitle;
Item[mpiCreateDate] = VarToStr(IncTime(gStart,0,-gnTotalItems,0,0));
Item[mpiTimeLength] = gsTime;
Item.CopyProperties(PodcastItem, [mpiThumbnail,mpiYear,mpiActor,mpiDirector,mpiProducer,mpiGenre]);
gnTotalItems++;
return Item;
}
///////////////////////////////////////////////////////////////////////////////
// Создание папки подкаста
THmsScriptMediaItem CreateFolder(THmsScriptMediaItem ParentFolder, string sName, string sLink, string sImg='') {
if (sImg=='') sImg = mpThumbnail;
THmsScriptMediaItem Item = ParentFolder.AddFolder(sLink); // Создаём папку с указанной ссылкой
Item[mpiTitle ] = sName; // Присваиваем наименование
Item[mpiThumbnail ] = sImg; // Картинка
Item[mpiCreateDate] = DateTimeToStr(IncTime(gStart, 0, -gnTotalItems, 0, 0)); // Для обратной сортировки по дате создания
gnTotalItems++; // Увеличиваем счетчик созданных элементов
return Item; // Возвращаем созданный объект
}
///////////////////////////////////////////////////////////////////////////////
// Вывод видео сообщения с заданным текстом
void ShowVideoMessage(string sMsg, string sTitle='', int nErr=0, string sDescr='') {
if (nErr==1) sMsg = '<c:#e22>'+Trim(sMsg);
TStrings INFO = TStringList.Create();
INFO.Values['Title' ] = sTitle;
INFO.Values['Info' ] = sMsg;
INFO.Values['Descr' ] = sDescr;
PodcastItem[mpiVideoMessage] = INFO.Text;
INFO.Free();
VideoPreview();
}
///////////////////////////////////////////////////////////////////////////////
// Получение ссылки на Youtube ------------------------------------------------
void GetLink_Youtube31(string sLink) {
string sData, sVideoID='', sMaxHeight='', sAudio='', sSubtitlesLanguage='ru',
sSubtitlesUrl, sFile, sVal, sMsg, sConfig, sHeaders;
TJsonObject JSON; TRegExpr RegEx;
sHeaders = 'Referer: '+sLink+#13#10+
'User-Agent: Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/46.0.2490.86 Safari/537.36'+#13#10+
'Origin: http://www.youtube.com'+#13#10;
HmsRegExMatch('--maxheight=(\\d+)' , mpPodcastParameters, sMaxHeight);
HmsRegExMatch('--sublanguage=(\\w{2})', mpPodcastParameters, sSubtitlesLanguage);
bool bSubtitles = (Pos('--subtitles' , mpPodcastParameters)>0);
bool bAdaptive = (Pos('--adaptive' , mpPodcastParameters)>0);
bool bNotDE = (Pos('notde=1' , sLink)>0);
if (!HmsRegExMatch('[\\?&]v=([^&]+)' , sLink, sVideoID))
if (!HmsRegExMatch('youtu.be/([^&]+)' , sLink, sVideoID))
HmsRegExMatch('/(?:embed|v)/([^\\?]+)', sLink, sVideoID);
if (sVideoID=='') { HmsLogMessage(2, 'Невозможно получить Video ID в ссылке Youtube'); return; }
sLink = 'http://www.youtube.com/watch?v='+sVideoID+'&hl=ru&persist_hl=1&has_verified=1';
sData = HmsDownloadURL(sLink, sHeaders, true);
sData = HmsRemoveLineBreaks(sData);
if (!HmsRegExMatch('player.config\\s*?=\\s*?({.*?});', sData, sConfig)) {
// Если в загруженной странице нет нужной информации, пробуем немного по-другому
sLink = 'http://hms.lostcut.net/youtube/g.php?v='+sVideoID;
if (sMaxHeight!='' ) sLink += '&max_height='+sMaxHeight;
if (Trim(mpPodcastMediaFormats )!='') sLink += '&media_formats='+mpPodcastMediaFormats;
if (bAdaptive ) sLink += '&adaptive=1';
sData = HmsUtf8Decode(HmsDownloadUrl(sLink));
if (HmsRegExMatch('"reason":"(.*?)"' , sData, sMsg)) {
HmsLogMessage(2 , sMsg);
//VideoMessage(sMsg);
return;
} else {
sData = HmsJsonDecode(sData);
HmsRegExMatch('"url":"(.*?)"', sData, MediaResourceLink);
return;
}
}
String hlsUrl, ttsUrl, flp, jsUrl, dashMpdLink, streamMap, playerId, algorithm;
String sType, itag, sig, alg, s;
String UrlBase = "";
int i, n, w, num, height, priority, minPriority = 90, selHeight, maxHeight = 1080;
bool is3D;
TryStrToInt(sMaxHeight, maxHeight);
JSON = TJsonObject.Create();
try {
JSON.LoadFromString(sConfig);
hlsUrl = HmsExpandLink(JSON.S['args\\hlsvp' ], UrlBase);
ttsUrl = HmsExpandLink(JSON.S['args\\ttsurl'], UrlBase);
flp = HmsExpandLink(JSON.S['url' ], UrlBase);
jsUrl = HmsExpandLink(JSON.S['assets\\js' ], UrlBase);
streamMap = JSON.S['args\\url_encoded_fmt_stream_map'];
if (bAdaptive && JSON.B['args\\adaptive_fmts'])
streamMap = JSON.S['args\\adaptive_fmts'];
if ((streamMap=='') && (hlsUrl=='')) {
sMsg = "Невозможно найти данные для воспроизведения на странице видео.";
if (HmsRegExMatch('(<h\\d[^>]+class="message".*?</h\\d>)', sData, sMsg)) sMsg = HmsUtf8Decode(HmsHtmlToText(sMsg));
HmsLogMessage(2, sMsg);
//VideoMessage(sMsg);
return;
}
} finally { JSON.Free; }
if (Copy(jsUrl, 1, 2)=='//') jsUrl = 'http:'+Trim(jsUrl);
HmsRegExMatch('/player-([\\w_-]+)/', jsUrl, playerId);
algorithm = HmsDownloadURL('https://hms.lostcut.net/youtube/getalgo.php?jsurl='+HmsHttpEncode(jsUrl));
if (hlsUrl!='') {
MediaResourceLink = ' '+hlsUrl;
sData = HmsDownloadUrl(sLink, sHeaders, true);
RegEx = TRegExpr.Create('BANDWIDTH=(\\d+).*?RESOLUTION=(\\d+)x(\\d+).*?(http[^#]*)', PCRE_SINGLELINE);
try {
if (RegEx.Search(sData)) do {
sLink = '' + RegEx.Match(4);
height = StrToIntDef(RegEx.Match(3), 0);
if (mpPodcastMediaFormats!='') {
priority = HmsMediaFormatPriority(height, mpPodcastMediaFormats);
if ((priority>=0) && (priority>minPriority)) {
MediaResourceLink = sLink; minPriority = priority;
}
} else if ((height > selHeight) && (height <= maxHeight)) {
MediaResourceLink = sLink; selHeight = height;
}
} while (RegEx.SearchAgain());
} finally { RegEx.Free(); }
} else if (streamMap!='') {
i=1; while (i<=Length(streamMap)) {
sData = Trim(ExtractStr(streamMap, ',', i));
sType = HmsHttpDecode(ExtractParam(sData, 'type', '', '&'));
itag = ExtractParam(sData, 'itag' , '', '&');
is3D = ExtractParam(sData, 'stereo3d', '', '&') == '1';
sLink = '';
if (Pos('url=', sData)>0) {
sLink = ' ' + HmsHttpDecode(ExtractParam(sData, 'url', '', '&'));
if (Pos('&signature=', sLink)==0) {
sig = HmsHttpDecode(ExtractParam(sData, 'sig', '', '&'));
if (sig=='') {
sig = HmsHttpDecode(ExtractParam(sData, 's', '', '&'));
for (w=1; w<=WordCount(algorithm, ' '); w++) {
alg = ExtractWord(w, algorithm, ' ');
if (Length(alg)<1) continue;
if (Length(alg)>1) TryStrToInt(Copy(alg, 2, 4), num);
if (alg[1]=='r') {s=''; for(n=Length(sig); n>0; n--) s+=sig[n]; sig = s; } // Reverse
if (alg[1]=='s') {sig = Copy(sig, num+1, Length(sig)); } // Clone
if (alg[1]=='w') {n = (num-Trunc(num/Length(sig)))+1; Swap(sig[1], sig[n]);} // Swap
}
}
if (sig!='') sLink += '&signature=' + sig;
}
}
if (itag in ([139,140,141,171,172])) { sAudio = sLink; continue; }
if (sLink!='') {
height = 0; //http://www.genyoutube.net/formats-resolution-youtube-videos.html
if (itag in ([13,17,160 ])) height = 144;
else if (itag in ([5,36,92,132,133,242 ])) height = 240;
else if (itag in ([6 ])) height = 270;
else if (itag in ([18,34,43,82,100,93,134,243 ])) height = 360;
else if (itag in ([35,44,83,101,94,135,244,43 ])) height = 480;
else if (itag in ([22,45,84,102,95,136,298,247])) height = 720;
else if (itag in ([37,46,85,96,137,248,299 ])) height = 1080;
else if (itag in ([264,271 ])) height = 1440;
else if (itag in ([266,138 ])) height = 2160;
else if (itag in ([272 ])) height = 2304;
else if (itag in ([38 ])) height = 3072;
else continue;
if (mpPodcastMediaFormats!='') {
priority = HmsMediaFormatPriority(height, mpPodcastMediaFormats);
if ((priority>=0) || (priority<minPriority)) {
MediaResourceLink = sLink; minPriority = priority; selHeight = height;
}
} else if ((height>selHeight) && (height<= maxHeight)) {
MediaResourceLink = sLink; selHeight = height;
}
}
}
if (bAdaptive && (sAudio!='')) MediaResourceLink = '-i "'+Trim(MediaResourceLink)+'" -i "'+Trim(sAudio)+'"';
}
// Если есть субтитры и в дополнительных параметрах указано их показывать - загружаем
if (bSubtitles && (ttsUrl!='')) {
sFile = HmsSubtitlesDirectory+'\\Youtube\\'+PodcastItem.ItemID+'.'+sSubtitlesLanguage+'.srt';
sLink = ttsUrl+'&fmt=srt&lang=';
if (!HmsDownloadURLToFile(sLink+sSubtitlesLanguage, sFile, 'Accept-Encoding: gzip, deflate')) {
HmsDownloadURLToFile(sLink+'en' , sFile, 'Accept-Encoding: gzip, deflate');
}
PodcastItem[mpiSubtitleLanguage] = sFile;
}
}
///////////////////////////////////////////////////////////////////////////////
// Формирование видео с картинкой с информацией о фильме
bool VideoPreview() {
string sVal, sFileImage, sPoster, sTitle, sDescr, sCateg, sInfo, sLink, sData;
int xMargin=7, yMargin=10, nSeconds=10, n; string sCacheDir;
float nH=cfgTranscodingScreenHeight, nW=cfgTranscodingScreenWidth;
// Проверяем и, если указаны в параметрах подкаста, выставляем значения смещения от краёв
if (HmsRegExMatch('--xmargin=(\\d+)', mpPodcastParameters, sVal)) xMargin=StrToInt(sVal);
if (HmsRegExMatch('--ymargin=(\\d+)', mpPodcastParameters, sVal)) yMargin=StrToInt(sVal);
sCacheDir = IncludeTrailingBackslash(HmsTempDirectory);
if (Trim(PodcastItem[mpiVideoMessage])=='') return; // Если нет инфы - выходим быстро!
TStrings INFO = TStringList.Create(); // Создаём объект TStrings
INFO.Text = PodcastItem[1001001]; // И загружаем туда информацию
sPoster = INFO.Values['Poster']; // Постер
sTitle = INFO.Values['Title' ]; // Самая верхняя надпись - Название
sCateg = INFO.Values['Genre' ]; // Жанр
sInfo = INFO.Values['Info' ]; // Блок информации
sDescr = INFO.Values['Descr' ]; // Описание
if (sTitle=='') sTitle = ' ';
ForceDirectories(sCacheDir);
sFileImage = ExtractShortPathName(sCacheDir)+'videopreview_'; // Файл-заготовка для сохранения картинки
sDescr = Copy(sDescr, 1, 3000); // Если блок описания получился слишком большой - обрезаем
INFO.Text = ""; // Очищаем объект TStrings для формирования параметров запроса
INFO.Values['prfx' ] = gsPreviewPrefix; // Префикс кеша сформированных картинок на сервере
INFO.Values['title'] = sTitle; // Блок - Название
INFO.Values['info' ] = sInfo; // Блок - Информация
INFO.Values['categ'] = sCateg; // Блок - Жанр/категории
INFO.Values['descr'] = sDescr; // Блок - Описание фильма
INFO.Values['mlinfo'] = '20'; // Максимальное число срок блока Info
INFO.Values['w' ] = IntToStr(Round(nW)); // Ширина кадра
INFO.Values['h' ] = IntToStr(Round(nH)); // Высота кадра
INFO.Values['xm'] = IntToStr(xMargin); // Отступ от краёв слева/справа
INFO.Values['ym'] = IntToStr(yMargin); // Отступ от краёв сверху/снизу
INFO.Values['bg'] = 'http://www.pageresource.com/wallpapers/wallpaper/noir-blue-dark_3512158.jpg'; // Катринка фона (кэшируется на сервере)
INFO.Values['fx'] = '3'; // Номер эффекта для фона: 0-нет, 1-Blur, 2-more Blur, 3-motion Blur, 4-radial Blur
INFO.Values['fztitle'] = IntToStr(Round(nH/14)); // Размер шрифта блока названия (тут относительно высоты кадра)
INFO.Values['fzinfo' ] = IntToStr(Round(nH/22)); // Размер шрифта блока информации
INFO.Values['fzcateg'] = IntToStr(Round(nH/26)); // Размер шрифта блока жанра/категории
INFO.Values['fzdescr'] = IntToStr(Round(nH/18)); // Размер шрифта блока описания
// Если текста описания больше чем нужно - немного уменьшаем шрифт блока
if (Length(sDescr)>890) INFO.Values['fzdescr'] = IntToStr(Round(nH/20));
// Если есть постер, задаём его параметры отображения (где, каким размером)
if (sPoster!='') {
INFO.Values['wpic' ] = IntToStr(Round(nW/4)); // Ширина постера (1/4 ширины кадра)
INFO.Values['xpic' ] = '10'; // x-координата постера
INFO.Values['ypic' ] = '10'; // y-координата постера
if (mpFilePath=='InfoUpdate') {
INFO.Values['wpic' ] = IntToStr(Round(nW/6)); // Ширина постера (1/6 ширины кадра)
INFO.Values['xpic' ] = IntToStr(Round(nW/2 - nW/12)); // центрируем
}
INFO.Values['urlpic'] = sPoster; // Адрес изображения постера
}
sData = ''; // Из установленных параметров формируем строку POST запроса
for (n=0; n<INFO.Count; n++) sData += '&'+Trim(INFO.Names[n])+'='+HmsHttpEncode(INFO.Values[INFO.Names[n]]);
INFO.Free(); // Освобождаем объект из памяти, теперь он нам не нужен
// Делаем POST запрос не сервер формирования картинки с информацией
sLink = HmsSendRequestEx('wonky.lostcut.net', '/videopreview.php?p='+gsPreviewPrefix, 'POST',
'application/x-www-form-urlencoded', '', sData, 80, 0, '', true);
// В ответе должна быть ссылка на сформированную картинку
if (LeftCopy(sLink, 4)!='http') {HmsLogMessage(2, 'Ошибка получения файла информации videopreview.'); return;}
// Сохраняем сформированную картинку с информацией в файл на диске
HmsDownloadURLToFile(sLink, sFileImage);
// Копируем и нумеруем файл картики столько раз, сколько секунд мы будем её показывать
for (n=1; n<=nSeconds; n++) CopyFile(sFileImage, sFileImage+Format('%.3d.jpg', [n]), false);
// Для некоторых телевизоров (Samsung) видео без звука отказывается проигрывать, поэтому скачиваем звук тишины
char sFileMP3 = ExtractShortPathName(HmsTempDirectory)+'\\silent.mp3';
try {
if (!FileExists(sFileMP3)) HmsDownloadURLToFile('http://wonky.lostcut.net/mp3/silent.mp3', sFileMP3);
sFileMP3 = '-i "'+sFileMP3+'"';
} except { sFileMP3=''; }
// Формируем из файлов пронумерованных картинок и звукового команду для формирования видео
MediaResourceLink = Format('%s -f image2 -r 1 -i "%s" -c:v libx264 -pix_fmt yuv420p ', [sFileMP3, sFileImage+'%03d.jpg']);
}
///////////////////////////////////////////////////////////////////////////////
// Вывод вместо видео заданного сообщения
bool VideoMessage(char sCaption, char sMessage, int nTime=30) {
char sFileImage = HmsTempDirectory+'\\videomessage.jpg'; char sCmd;
sCaption = HmsHttpEncode(ReplaceStr(sCaption, '\n', '|'));
sMessage = HmsHttpEncode(ReplaceStr(sMessage, '\n', '|'));
HmsDownloadURLToFile('http://wonky.lostcut.net/videomessage.php?testpic=1&caption='+sCaption+'&msg='+sMessage, sFileImage);
char sFileMP3 = HmsTempDirectory+'\\silent.mp3';
try {
if (!FileExists(sFileMP3)) HmsDownloadURLToFile('http://wonky.lostcut.net/mp3/silent.mp3', sFileMP3);
sFileMP3 = '-i "'+sFileMP3+'"';
} except {
sFileMP3 = '';
}
sCmd = Format('%s -loop 1 -f image2 -i "%s" -t %d -r 25 ', [ExtractShortPathName(sFileMP3), ExtractShortPathName(sFileImage), 7]);
MediaResourceLink = sCmd;
}
///////////////////////////////////////////////////////////////////////////////
// Вывод видео сообщения с информацией о фильме
void ShowVideoInfo() {
string sInfo; THmsScriptMediaItem Parent = PodcastItem.ItemParent;
sInfo = '';
if (Trim(Parent[mpiCountry ])!='') sInfo += 'Страна: ' +Parent[mpiCountry ]+"|";
if (Trim(Parent[mpiTranslate])!='') sInfo += 'Перевод: ' +Parent[mpiTranslate]+"|";
if (Trim(Parent[mpiQuality ])!='') sInfo += 'Качество: '+Parent[mpiQuality ]+"|";
if (Trim(Parent[mpiDirector ])!='') sInfo += 'Режиссер: '+Parent[mpiDirector ]+"|";
if (Trim(Parent[mpiActor ])!='') sInfo += 'В ролях: ' +Parent[mpiActor ]+"|";
sInfo = Copy(sInfo, 1, Length(sInfo)-1); // Обрезаем последний символ "|"
TStrings INFO = TStringList.Create();
INFO.Values['Poster'] = Parent[mpiThumbnail];
INFO.Values['Title' ] = Parent[mpiTitle];
INFO.Values['Genre' ] = Parent[mpiGenre];
INFO.Values['Info' ] = sInfo;
INFO.Values['Descr' ] = ReplaceStr(Parent[mpiComment], "\n", "|");
PodcastItem[mpiVideoMessage] = INFO.Text;
INFO.Free();
VideoPreview();
}
///////////////////////////////////////////////////////////////////////////////
/// Создание ссылок на файл(ы) по переданной ссылке (шаблону) -------------
void CreateVideoLink(THmsScriptMediaItem Folder, string sName, string sLink, bool bSeparateInFolders=false) {
string sCut, sQualArray, sQual, sFile; int i, nCount; // Объявляем переменные
// Проверяем, есть ли в переданной ссылке шаблон с массивом существующего качества "[720,480,360]"
if (HmsRegExMatch('\\[(.*?)\\]', sLink, sQualArray)) {
sCut = '['+sQualArray+']'; // Та часть, которая будет заменятся на индификатор качества
nCount = WordCount (sQualArray, ','); // Количество елементов, разделённых запятой
for (i=1; i<=nCount; i++) {
sQual = ExtractWord(i, sQualArray, ','); // Получаем очередной индификатор качества
if (sQual=='') continue; // Может быть пропущен, если не указан
sFile = ReplaceStr(sLink, sCut, sQual); // Формируем ссылку на файл, заменяя шаблон на индификатор качества
if (bSeparateInFolders) { // Если был передан флаг "Группировать файлы качества по разным папкам",
CreateMediaItem(Folder, sName, sFile, sQual); // то передаём индификатор качества как имя группы, где будет создана ссылка
} else {
if (sName=='') HmsRegExMatch('.*/(.*)', sLink, sName); // Получаем имя файла из ссылки (всё что идёт после последнего слеша)
sName = ReplaceStr(sName, sCut, ''); // Убираем перечисление качества из имени
sName = ReplaceStr(sName, '_', ''); // А также подчекривания (лишние)
CreateMediaItem(Folder, sQual+' '+sName, sFile); // Добавляем индификатор качества к началу имени и создаём ссылку
}
}
// Проверяем, есть ли в переданной ссылке просто запятые, т.е. перечисление ссылок
} else if (Pos(',', sLink)>0) {
for (i=1; i<=WordCount(sLink, ','); i++) {
sQual = '';
sFile = ExtractWord(i, sLink, ',');
sName = ExtractFileName(sFile);
HmsRegExMatch('.*/(.*)', sName, sName);
if (HmsRegExMatch2('^(.*)_(\\d+)\\.', sName, sName, sQual)) {
sQual = '['+Trim(sQual)+']';
}
if (bSeparateInFolders) { // Если был передан флаг "Группировать файлы качества по разным папкам",
CreateMediaItem(Folder, sName, sFile, sQual); // то передаём индификатор качества как имя группы, где будет создана ссылка
} else {
CreateMediaItem(Folder, sQual+' '+sName, sFile);
}
}
} else {
// Если шаблона выбора качества в ссылке нет, то просто создаём ссылку
if (sName=='') HmsRegExMatch('.*/(.*)', sLink, sName); // Если имя пустое, получаем имя файла из ссылки (всё что идёт после последнего слеша)
CreateMediaItem(Folder, sName, sLink);
}
}
///////////////////////////////////////////////////////////////////////////////
// Создание серий из плейлиста
void CreateSeriesFromPlaylist(THmsScriptMediaItem Folder, string sLink, string sName='') {
string sData, s1, s2, s3; int i; TJsonObject JSON, PLITEM; TJsonArray PLAYLIST; // Объявляем переменные
// Если передано имя плейлиста, то создаём папку, в которой будем создавать элементы
if (Trim(sName)!='') Folder = Folder.AddFolder(sName);
// Если в переменной sLink сожержится знак '{', то там не ссылка, а сами данные Json
if (Pos('{', sLink)>0) {
sData = sLink;
} else {
sData = HmsDownloadURL(sLink, "Referer: "+mpFilePath, true); // Загружаем плейлист
sData = HmsUtf8Decode(sData);
}
JSON = TJsonObject.Create(); // Создаём объект для работы с Json
try {
JSON.LoadFromString(sData); // Загружаем json данные в объект
PLAYLIST = JSON.A['playlist']; // Пытаемся получить array с именем 'playlist'
if (PLAYLIST==nil) PLAYLIST = JSON.AsArray; // Если массив 'playlist' получить не получилось, то представляем все наши данные как массив
if (PLAYLIST!=nil) { // Если получили массив, то запускаем обход всех элементов в цикле
for (i=0; i<PLAYLIST.Length; i++) {
PLITEM = PLAYLIST[i]; // Получаем текущий элемент массива
sName = PLITEM.S['comment']; // Название - значение поля comment
sLink = PLITEM.S['file' ]; // Получаем значение ссылки на файл
sName = ReplaceStr(ReplaceStr(HmsHtmlToText(sName), "\n", ' '), "\r", '');
// Форматируем числовое представление серий в названии
// Если в названии есть число, то будет в s1 - то, что стояло перед ним, s2 - само число, s3 - то, что было после числа
if (HmsRegExMatch3('^(.*?)(\\d+)(.*)$', sName, s1, s2, s3))
sName = Trim(Format('%s %.2d %s', [s1, StrToInt(s2), s3])); // Форматируем имя - делаем число двухцифровое (01, 02...)
if (LeftCopy(sLink, 4)=='oid=') sLink = 'http://vk.com/video_ext.php?'+Trim(sLink);
// Проверяем, если это вложенный плейлист - запускаем создание элементов из этого плейлиста рекурсивно
if (PLITEM.B['playlist'])
CreateSeriesFromPlaylist(Folder, PLITEM.S['playlist'], sName);
else
CreateVideoLink(Folder, sName, sLink, true); // Иначе просто создаём ссылки на видео
}
} // end if (PLAYLIST!=nil)
} finally { JSON.Free; } // Какие бы ошибки не случились, освобождаем объект из памяти
}
///////////////////////////////////////////////////////////////////////////////
// Javascript Eval (Danger! Может быть исполнен вредоностный код с сайта) -----
char jsEval(char sData) {
Variant objScript, objJS; char sResult = '';
try {objScript = CreateOleObject('MSScriptControl.ScriptControl');} except {};
if (VarType(objScript) != varDispatch) {
HmsLogMessage(2, 'Не могу создать ActiveXObject MSScriptControl.ScriptControl');
return '';
}
objScript.Language = 'JavaScript';
try {sResult = objScript.Eval(sData);} except {};
return sResult;
}
///////////////////////////////////////////////////////////////////////////////
// Создание папок сезонов
void CreateSeasons(string sHtml) {
string sData, sLink, sName, sTime, sImg, sVal, s1, s2, s3, sSeason;
THmsScriptMediaItem Item; TRegExpr RegEx; int n;
HmsRegExMatch('<seasons>(.*?)</seasons>', sHtml, sData);
RegEx = TRegExpr.Create('(<a.*?</a>)', PCRE_SINGLELINE);
n = 0;
try {
if (RegEx.Search(sHtml)) do {
sLink=''; sName='';
HmsRegExMatch('(<a.*?</a>)' , RegEx.Match, sName);
HmsRegExMatch('<a[^>]+href="(.*?)"', RegEx.Match, sLink);
if (Trim(sLink)=="") continue;
n++;
sName = ReplaceStr(HmsHtmlToText(sName), "/", "-");
sLink = HmsExpandLink(sLink, gsUrlBase);
// Форматируем номера сезонов в двуцифровой формат
if (HmsRegExMatch3('^(.*?)(\\d+)(.*)', sName, s1, s2, s3))
sName = Trim(Format('%s %.2d %s', [s1, StrToInt(s2), s3]));
sLink += '&season='+IntToStr(n);
CreateFolder(PodcastItem, sName, sLink); // Создание папки сезона
} while (RegEx.SearchAgain);
} finally { RegEx.Free(); }
}
///////////////////////////////////////////////////////////////////////////////
string NormVal(string sVal) {
string sName = HmsHtmlToText(sVal);
sName = ReplaceStr(sName, '|', '');
return Trim(sName);
}
///////////////////////////////////////////////////////////////////////////////
// Создание ссылок видео
void CreateLinks() {
string sHtml, sData, sLink, sName, sTime, sImg, sVal, sSeason, sID;
THmsScriptMediaItem Item; TRegExpr RegEx;
sSeason = '';
HmsRegExMatch('season=(\\d+)', mpFilePath, sSeason);
sHtml = HmsDownloadURL(mpFilePath, 'Referer: '+mpFilePath, true);
sHtml = HmsUtf8Decode(sHtml);
sHtml = HmsRemoveLineBreaks(sHtml);
// =========================================================================
// Сбор информации о фильме
if (HmsRegExMatch('<br />Год:(.+?)<br />', sHtml, sVal)) PodcastItem[mpiYear] = sVal;
if (HmsRegExMatch('Продолжительность:.*?(\\d{2}:\\d{2}:\\d{2})', sHtml, sVal)) gsTime = sVal+'.000';
if (HmsRegExMatch('Продолжительность:.*?(\\d+)\\s*мин', sHtml, sVal)) gsTime = HmsTimeFormat(StrToInt(sVal)*60)+'.000';
if (HmsRegExMatch('<br />Жанр:(.+?)<br />' , sHtml, sVal)) PodcastItem[mpiGenre ] = NormVal(sVal);
if (HmsRegExMatch('<br />Продолжительность:(.+?)<br />' , sHtml, sVal)) PodcastItem[mpiTimeLength ] = NormVal(sVal);
if (HmsRegExMatch('<br />Страна:(.+?)<br />' , sHtml, sVal)) PodcastItem[mpiCountry ] = NormVal(sVal);
if (HmsRegExMatch('<br />Выпущено:(.+?)<br />' , sHtml, sVal)) PodcastItem[mpiAlbum ] = NormVal(sVal);
if (HmsRegExMatch('<br />Продюссер:(.+?)<br />' , sHtml, sVal)) PodcastItem[mpiProducer ] = NormVal(sVal);
if (HmsRegExMatch('<br />Перевод:(.+?)<br />' , sHtml, sVal)) PodcastItem[mpiTranslate] = NormVal(sVal);
if (HmsRegExMatch('<br />Качество:(.+?)<br />', sHtml, sVal)) PodcastItem[mpiQuality ] = NormVal(sVal);
if (HmsRegExMatch('<br />Режиссер:(.+?)<br />', sHtml, sVal)) PodcastItem[mpiDirector ] = NormVal(sVal);
if (HmsRegExMatch('<br />В ролях:(.*?)</div>' , sHtml, sVal)) PodcastItem[mpiActor ] = NormVal(sVal);
if (HmsRegExMatch('<div class="tezt">(.*?)<br /><br />' , sHtml, sVal)) PodcastItem[mpiMood ] = NormVal(sVal);
if (HmsRegExMatch('<br />imdb:(.+?) | Кинопоиск:' , sHtml, sVal)) PodcastItem[mpiIMDBInfo ] = NormVal(sVal);
if (HmsRegExMatch('Кинопоиск:(.+?) | Бюджет:' , sHtml, sVal)) PodcastItem[mpiAuthor ] = NormVal(sVal);
if (HmsRegExMatch('Бюджет:(.+?)<br />' , sHtml, sVal)) PodcastItem[mpiConductor ] = NormVal(sVal);
if (HmsRegExMatch('(<div class="tezt">.*?)<br /><br />', sHtml, sVal)) PodcastItem[mpiComment] = NormVal(sVal);
if (HmsRegExMatch('Оригинальное название:(.+?)<br />', sHtml, sVal)) mpTitle = NormVal(sVal);
HmsRegExMatch('itemprop="thumbnail" content="(.*?)"', sHtml, mpThumbnail);
PodcastItem[mpiTimeLength] = gsTime;
PodcastItem[mpiThumbnail ] = mpThumbnail;
HmsRegExMatch('^(.*?)/', mpTitle, mpTitle);
// =========================================================================
HmsRegExMatch("Base64.decode\\('(.*?)'", sHtml, sVal);
sData = HmsRemoveLineBreaks(HmsUtf8Decode(HmsBase64Decode(sVal)));
// Если на странице есть перечисление сезонов и в данный момент мы не в конкретном
if ((sSeason=='') && HmsRegExMatch('<Все сезоны сериала>', sHtml, sLink)) {
// Создаём список сезонов
CreateSeasons(sHtml);
} else if (HmsRegExMatch('flashvars[^>]+file=(.*?)"/>', sHtml, sLink)) {
// Создаём ссылку на конкретный фильм
sLink = HmsExpandLink(sLink, gsUrlBase);
CreateVideoLink(PodcastItem, mpTitle, sLink);
} else if (HmsRegExMatch('flashvars[^>]+file=(.*?)" />', sHtml, sLink)) {
// Создаём ссылку на конкретный фильм
sLink = HmsExpandLink(sLink, gsUrlBase);
CreateVideoLink(PodcastItem, mpTitle, sLink);
} else if (HmsRegExMatch('flashvars[^>]+;pl=(.*?)" />', sHtml, sLink)) {
// Создаём ссылки на серии из плейлиста
sLink = HmsExpandLink(sLink, gsUrlBase);
sData = HmsUtf8Decode(HmsDownloadURL(sLink, 'Referer: '+mpFilePath, true));
HmsRegExMatch('(\\{.*\\})', sData, sData);
if ((LeftCopy(sData, 1)!='[') && (Pos('playlist', sData)<1)) {
sData = '[' + Trim(sData) + ']';
}
CreateSeriesFromPlaylist(PodcastItem, sData);
} else if (HmsRegExMatch('vkArr=(\\[.*?\\]);', sHtml, sVal)) {
// Создаём ссылки на серии из плейлиста в переменной vkArr
CreateSeriesFromPlaylist(PodcastItem, sVal);
} else {
CreateErrorItem('Опять изменения на сайте,надоели.');
}
// Если установлен ключ отображения информационных ссылок - добавляем их
if (Pos('--addinfoitems', mpPodcastParameters)>0) {
if (Trim(PodcastItem[mpiYear ])!='') CreateInfoItem('Год выхода', PodcastItem[mpiYear ]);
if (Trim(PodcastItem[mpiGenre ])!='') CreateInfoItem('Жанр' , PodcastItem[mpiGenre ]);
if (Trim(PodcastItem[mpiCountry ])!='') CreateInfoItem('Страна' , PodcastItem[mpiCountry ]);
if (Trim(PodcastItem[mpiTranslate ])!='') CreateInfoItem('Перевод' , PodcastItem[mpiTranslate ]);
if (Trim(PodcastItem[mpiQuality ])!='') CreateInfoItem('Качество' , PodcastItem[mpiQuality ]);
if (Trim(PodcastItem[mpiDirector ])!='') CreateInfoItem('Режиссер' , PodcastItem[mpiDirector ]);
if (Trim(PodcastItem[mpiActor ])!='') CreateInfoItem('В ролях' , PodcastItem[mpiActor ]);
if (Trim(PodcastItem[mpiIMDBInfo ])!='') CreateInfoItem('IMDB' , PodcastItem[mpiIMDBInfo ]);
if (Trim(PodcastItem[mpiAuthor ])!='') CreateInfoItem('Кинопоиск' , PodcastItem[mpiAuthor ]);
if (Trim(PodcastItem[mpiConductor ])!='') CreateInfoItem('Бюджет' , PodcastItem[mpiConductor ]);
if (Trim(PodcastItem[mpiTimeLength])!='') CreateInfoItem('Время' , PodcastItem[mpiTimeLength]);
if (Trim(PodcastItem[mpiProducer ])!='') CreateInfoItem('Продюссер' , PodcastItem[mpiProducer ]);
if (Trim(PodcastItem[mpiAlbum ])!='') CreateInfoItem('Выпущено' , PodcastItem[mpiAlbum ]);
if (Trim(PodcastItem[mpiMood ])!='') CreateInfoItem('Описание' , PodcastItem[mpiMood ]);
}
}
///////////////////////////////////////////////////////////////////////////////
// Получение ссылки на медиаресурс в переменную MediaResourceLink
void GetLink() {
if (LeftCopy(mpFilePath, 4)=='Info') ShowVideoInfo();
else if (LeftCopy(mpFilePath, 3)=='Err' ) VideoMessage(gsPodcastName, mpTitle);
else if (HmsRegExMatch('youtube', mpFilePath, '')) GetLink_YouTube31(mpFilePath);
else MediaResourceLink = mpFilePath;
}
///////////////////////////////////////////////////////////////////////////////
// Г Л А В Н А Я П Р О Ц Е Д У Р А //
{
// Проверяем, при каком событии было вызвано выполнение скрипта (не папка ли это)
if (PodcastItem.IsFolder) {
PodcastItem.DeleteChildItems();
CreateLinks(); // Это зашли в папку подкаста (фильма) - создаём ссылки
} else {
GetLink(); // Это запустили фильм - получаем ссылку на медиа-поток
// Если в MediaResourceLink пусто, значит получить ссылку не получилось - выводим видео об ошибке
MediaResourceLink = '-headers "User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/71.0.3578.98 Safari/537.36 OPR/58.0.3135.79 (Edition Campaign 34)" -i "'+mpFilePath+'"';
}
}
551
C++Script
530
string gsUrlBase = 'https://kino-live1.live'; // База для относительных ссылок
int gnTotalItems = 0; // Счётчик созданных элементов
TDateTime gStart = Now; // Время начала запуска скрипта
int gnMaxPages=10, gnMaxInGroup=100; bool gbYearInTitle=false; char gsGroupMode='';
// Регулярные выражения для поиска на странице блоков с информацией о видео
string
gsPatternBlock = '<h1>(.*?)</div>' , // Искомые блоки
gsCutPage = '<fromCut>(.*?)<toCut>' , // Обрезка загруженной страницы
gsPatternTitle = '(<a.*?</a>)' , // Название
gsPatternLink = '<a href="(.*?)"' , // Ссылка
gsPatternImg = '<img src="(.*?)"' , // Картинка
gsPatternYear = 'shortinfo.*?>(\\d{4})<' , // Год
gsPatternAudio = '' , // Озвучка / Перевод
gsPatternPages = '.*/page/\\d+/">(\\d+)' , // Регулярное выражение для поиска максимального номера страницы для дозагрузки
gsPagesParams = 'page/<PN>/' , // Параметр с номером страницы, который добавляется к ссылке
;
///////////////////////////////////////////////////////////////////////////////
// Создание папки или подкаста
THmsScriptMediaItem CreateFolder(THmsScriptMediaItem ParentFolder, string sName, string sLink, string sImg='') {
THmsScriptMediaItem Item = ParentFolder.AddFolder(sLink); // Создаём папку с указанной ссылкой
Item[mpiTitle ] = sName; // Присваиваем наименование
Item[mpiThumbnail ] = sImg; // Картинка
Item[mpiCreateDate] = DateTimeToStr(IncTime(gStart, 0, -gnTotalItems, 0, 0)); // Для обратной сортировки по дате создания
gnTotalItems++; // Увеличиваем счетчик созданных элементов
return Item; // Возвращаем созданный объект
}
///////////////////////////////////////////////////////////////////////////////
// Получение имени группировки по имени видео (первая буква, "A..Z" или "#")
string GetGroupName(string sName) {
string sGrp = '#';
if (HmsRegExMatch('([A-ZА-Я0-9])', sName, sGrp, 1, PCRE_CASELESS)) sGrp = UpperCase(sGrp);
if (HmsRegExMatch('[A-Z]', sGrp, sGrp)) sGrp = 'A..Z';
if (HmsRegExMatch('[0-9]', sGrp, sGrp)) sGrp = '#';
return sGrp;
}
///////////////////////////////////////////////////////////////////////////////
// Загрузка страниц и парсинг
void LoadAndParse() {
string sHtml, sData, sName, sLink, sImg, sYear, sPage, sVal, sPost, sServ; // Объявляем переменные
THmsScriptMediaItem Item, Folder = FolderItem; TRegExpr RegEx;
int i, n, nPages=0, iCnt=0, nGrp=0; char sGrp=""; bool bGroup=false;
if (HmsRegExMatch('--maxingroup=(\\d+)', mpPodcastParameters, sVal)) gnMaxInGroup = StrToInt(sVal);
if (HmsRegExMatch('--maxpages=(\\d+)' , mpPodcastParameters, sVal)) gnMaxPages = StrToInt(sVal);
HmsRegExMatch('--group=(\\w+)', mpPodcastParameters, gsGroupMode);
gbYearInTitle = (Pos('--yearintitle', mpPodcastParameters)>0);
if (LeftCopy(mpFilePath, 4) != "http") {
// Если нет ссылки - делаем поиск названия
if (Length(mpTitle)<4) mpTitle += " :::"; // Фишка обхода ограничения на минимальную длину в 4 символа (двоеточие при самом поиске не учитывается)
HmsRegExMatch('//(.*)', gsUrlBase, sServ); // получаем доменное имя из gsUrlBase в sServ
sPost = 'do=search&subaction=search&search_start=1&full_search=0&result_from=1&story='+HmsPercentEncode(HmsUtf8Encode(mpTitle));
sHtml = HmsSendRequestEx(sServ, '/index.php?do=search', 'POST',
'application/x-www-form-urlencoded; Charset=UTF-8',
gsUrlBase+'/\r\nAccept-Encoding: gzip, deflate\r\nOrigin: '+gsUrlBase,
sPost, 80, 0, '', true);
gnMaxPages = 1;
} else {
// Иначе просто, загружаем страницу по ссылке
sHtml = HmsDownloadURL(mpFilePath, 'Referer: '+gsUrlBase, true);
}
sHtml = HmsUtf8Decode(sHtml); // Декодируем страницу из UTF-8
sHtml = HmsRemoveLineBreaks(sHtml); // Удаляем переносы строк, для облегчения работы с регулярными выражениями
// Если указан шаблон поиска максимального номера страницы - применяем
if ((gsPatternPages!='') && HmsRegExMatch(gsPatternPages, sHtml, sVal)) nPages = StrToIntDef(sVal, 0);
// Вырезаем только нужный участок текста HTML, где будем искать блоки.
// Вместо <fromCut> и <toCut> вставляем начало и конец участка HTML, между которыми
// будем искать блоки текста с сылкой, наименованием и проч.
HmsRegExMatch(gsCutPage, sHtml, sHtml); // ищем в sHtml, результат кладём обратно в sHtml
// =========================================================================
// Дозагрузка страниц
if ((gnMaxPages!=0) && (nPages>gnMaxPages)) nPages = gnMaxPages;
for (i=2; i<=nPages; i++) {
HmsSetProgress(Trunc(i*100/nPages));
HmsShowProgress(Format('%s: Загрузка страницы %d из %d', [mpTitle, i, nPages]));
sLink = mpFilePath + ReplaceStr(gsPagesParams, '<PN>', IntToStr(i));
sPage = HmsDownloadURL(sLink, 'Referer: '+gsUrlBase, true);
sPage = HmsUtf8Decode(sPage);
if (gsCutPage!='') HmsRegExMatch(gsCutPage, sPage, sPage);
sHtml += sPage;
if (HmsCancelPressed) break;
}
HmsHideProgress();
// =========================================================================
// Создаём объект для поиска блоков текста по регулярному выражению,
// в которых есть информация: ссылка, наименование, ссылка на картинку и проч.
// Обычно, определяем начало и конец блока и вставляем их вместо <section> и </section>
RegEx = TRegExpr.Create(gsPatternBlock, PCRE_SINGLELINE);
try {
// Определяем, если блоков в загруженном более чем gnMaxInGroup, включаем группировку
i=0; if (RegEx.Search(sHtml)) do i++; while (RegEx.SearchAgain());
bGroup = (i > gnMaxInGroup);
// Главный цикл поиска блоков
if (RegEx.Search(sHtml)) do {
sLink=''; sImg=''; sYear=''; sName='';
HmsRegExMatch(gsPatternTitle, RegEx.Match, sName);
HmsRegExMatch(gsPatternLink , RegEx.Match, sLink);
HmsRegExMatch(gsPatternImg , RegEx.Match, sImg );
HmsRegExMatch(gsPatternYear , RegEx.Match, sYear);
if (Trim(sLink)=="") continue;
sName = ReplaceStr(HmsHtmlToText(sName), "/", "-");
sLink = HmsExpandLink(sLink, gsUrlBase);
if (sImg!='') sImg = HmsExpandLink(sImg, gsUrlBase);
// Если в ссылках встречаются русские символы - делаем их безопасными
if (HmsRegExMatch('^.*?([а-яА-Я].*)', sImg, sVal)) sImg = ReplaceStr(sImg, sVal, HmsPercentEncode(HmsUtf8Encode(sVal)));
// Если указано добавлять год вназвание и в названии его нет, добавляем
if (gbYearInTitle && (sYear!='') && (Pos(sYear, sName)<1)) sName += ' ('+sYear+')';
// Контроль группировки (создаём папку с именем группы)
if (gsGroupMode=='alph') {
Folder = FolderItem.AddFolder(GetGroupName(sName));
Folder[mpiFolderSortOrder] = "mpTitle";
} else if (gsGroupMode=='year') {
Folder = FolderItem.AddFolder(sYear);
Folder[mpiFolderSortOrder] = "mpTitle";
Folder[mpiYear ] = sYear;
} else if (bGroup) {
iCnt++; if (iCnt>=gnMaxInGroup) { nGrp++; iCnt=0; }
Folder = FolderItem.AddFolder(Format('%.2d', [nGrp]));
}
CreateFolder(Folder, sName, sLink, sImg); // Создание ссылки (папки с фильмом)
} while (RegEx.SearchAgain);
} finally { RegEx.Free(); }
if (gsGroupMode=='alph') FolderItem.Sort('mpTitle');
else if (gsGroupMode=='year') FolderItem.Sort('-mpYear');
HmsLogMessage(1, mpTitle+': создано элементов - '+IntToStr(gnTotalItems));
}
///////////////////////////////////////////////////////////////////////////////
// Г Л А В Н А Я П Р О Ц Е Д У Р А //
{
FolderItem.DeleteChildItems(); // Удаляем созданные ранее элементы в текущей папке
LoadAndParse(); // Запускаем загрузку страниц и создание папок видео
}
531
C++Script
571
char gsUrlBase="https://kino-live1.live"; int gnTotalItems=0; TDateTime gTimeStart=Now;
/////////////////////// Создание структуры подкаста /////////////////////////
///////////////////////////////////////////////////////////////////////////////
// Функция создания динамической папки с указанным скриптом
THmsScriptMediaItem CreateDynamicItem(THmsScriptMediaItem prntItem, char sTitle, char sLink, char &sScript='') {
THmsScriptMediaItem Folder = prntItem.AddFolder(sLink, false, 32);
Folder[mpiTitle ] = sTitle;
Folder[mpiCreateDate] = VarToStr(IncTime(Now,0,-prntItem.ChildCount,0,0));
Folder[200] = 5; // mpiFolderType
Folder[500] = sScript; // mpiDynamicScript
Folder[501] = 'C++Script'; // mpiDynamicSyntaxType
Folder[mpiFolderSortOrder] = -mpiCreateDate;
return Folder;
}
///////////////////////////////////////////////////////////////////////////////
// Замена в тексте загруженного скрипта значения текстовой переменной
void ReplaceVarValue(char &sText, char sVarName, char sNewVal) {
char sVal, sVal2;
if (HmsRegExMatch2("("+sVarName+"\\s*?=.*?';)", sText, sVal, sVal2)) {
HmsRegExMatch(sVarName+"\\s*?=\\s*?'(.*)'", sVal, sVal2);
sText = ReplaceStr(sText, sVal, ReplaceStr(sVal , sVal2, sNewVal));
}
}
///////////////////////////////////////////////////////////////////////////////
// Создание папки ПОИСК (с загрузкой скрипта с форума homemediaserver.ru)
void CreateSearchFolder(THmsScriptMediaItem prntItem, char sTitle) {
char sScript='', sLink, sHtml, sRE, sVal; THmsScriptMediaItem Folder;
// Да да, загружаем скрипт с сайта форума HMS
sHtml = HmsUtf8Decode(HmsDownloadURL('http://homemediaserver.ru/forum/viewtopic.php?f=15&t=2793&p=17395#p17395', '', true));
HmsRegExMatch('BeginDynamicSearchScript\\*/(.*?)/\\*EndDynamicSearchScript', sHtml, sScript, 1, PCRE_SINGLELINE);
sScript = HmsHtmlToText(sScript, 1251);
sScript = ReplaceStr(sScript, #160, ' ');
// И меняем значения переменных на свои
ReplaceVarValue(sScript, 'gsSuggestQuery' , 'https://kino-live1.live');
ReplaceVarValue(sScript, 'gsSuggestRegExpr', '<span class="searchheading">(.*?)</span>');
ReplaceVarValue(sScript, 'gsSuggestMethod' , 'POST');
sScript = ReplaceStr(sScript, 'gnSuggestNoUTFEnc = 0', 'gnSuggestNoUTFEnc = 1');
Folder = prntItem.AddFolder(sTitle, true);
Folder[mpiCreateDate ] = VarToStr(IncTime(gTimeStart,0,-gnTotalItems,0,0));
Folder[mpiFolderSortOrder] = "-mpCreateDate";
gnTotalItems++;
CreateDynamicItem(Folder, '"Набрать текст"', '-SearchCommands', sScript);
}
///////////////////////////////////////////////////////////////////////////////
// Создание подкаста или папки
THmsScriptMediaItem CreateItem(THmsScriptMediaItem Parent, char sTitle='', char sLink='') {
THmsScriptMediaItem Item; bool bForceFolder = false;
if (sLink=='') { sLink = sTitle; bForceFolder = true; }
else sLink = HmsExpandLink(sLink, gsUrlBase);
Item = Parent.AddFolder(sLink, bForceFolder);
Item[mpiTitle ] = sTitle;
Item[mpiCreateDate] = VarToStr(IncTime(gTimeStart,0,-gnTotalItems,0,0));
Item[mpiFolderSortOrder] = -mpiCreateDate;
gnTotalItems++;
return Item;
}
///////////////////////////////////////////////////////////////////////////////
// --------------------- M A I N P R O C E D U R E -------------------------
{
THmsScriptMediaItem Folder, Item;
FolderItem.DeleteChildItems();
CreateSearchFolder (FolderItem, '01. Поиск');
Folder = CreateItem(FolderItem, '02. Категории');
CreateItem(Folder, 'Боевики' , "/boevyki-onlajn/");
CreateItem(Folder, 'Комедии' , "/komedyy-onlajn/");
CreateItem(Folder, 'Семейные' , "/semeinoe-kino/");
CreateItem(Folder, 'Фантастика' , "/fantastyka-onlajn/");
CreateItem(Folder, 'Приключения' , "/pryklyuchenyya-online/");
CreateItem(Folder, 'Исторические', "/istorycheskye-online/");
CreateItem(Folder, 'Мелодрама' , "/melodramy-onlajn/");
CreateItem(Folder, 'Детективы' , "/detektivyi-onlajn/");
CreateItem(Folder, 'Триллеры' , "/triller-online/");
CreateItem(Folder, 'Криминал' , "/kriminal/");
CreateItem(Folder, 'Про войну' , "/pro-voinu/");
CreateItem(Folder, 'Фэнтези' , "/fentezi-online/");
CreateItem(Folder, 'Драма' , "/dramyi-online/");
CreateItem(Folder, 'Про спорт' , "/pro-sport-onlajn/");
CreateItem(Folder, 'Ужасы' , "/uzhasy-onlajn/");
CreateItem(Folder, 'Аниме' , "/anime/");
Folder[mpiPodcastParameters] = '--group=alph';
Folder = CreateItem(FolderItem, '03. Сериалы');
CreateItem(Folder, 'Русские сериалы' , "/seryalyi-onlajn/russkie-serialy/");
CreateItem(Folder, 'Зарубежные сериалы' , "/seryalyi-onlajn/zarubezhnye-serialy/");
Folder[mpiPodcastParameters] = '--group=alph';
Folder = CreateItem(FolderItem, '04. Трейлеры' , '/trailer/');
Folder[mpiPodcastParameters] = '--group=alph';
Folder = CreateItem(FolderItem, '05. Эротика' , '/erotika-online//');
Folder[mpiPodcastParameters] = '--group=alph';
Folder = CreateItem(FolderItem, '06. Мультфильмы' , '/multiki-onlajn/');
Folder[mpiPodcastParameters] = '--group=alph';
Folder = CreateItem(FolderItem, '07. Мультсериалы' , '/multseryaly-onlain/');
Folder[mpiPodcastParameters] = '--group=alph';
Folder = CreateItem(FolderItem, '08. Телешоу' , '/teleshou-onlain/');
Folder[mpiPodcastParameters] = '--group=alph';
Folder = CreateItem(FolderItem, '09. Клипы и концерты', '/clips/');
Folder[mpiPodcastParameters] = '--group=alph';
Folder = CreateItem(FolderItem, '10. Квн' , '/kvn-online/');
Folder[mpiPodcastParameters] = '--group=alph';
Folder = CreateItem(FolderItem, '11. Документальные' , '/dokumentalnyie-onlajn/');
Folder[mpiPodcastParameters] = '--group=alph';
Folder = CreateItem(FolderItem, '12. Камеди клаб' , '/kamedy-klab-online/');
Folder[mpiPodcastParameters] = '--group=alph';
Folder = CreateItem(FolderItem, '13. Для детей' , '/filmy-dlia-detei/');
Folder[mpiPodcastParameters] = '--group=alph';
Folder = CreateItem(FolderItem, '14. HD качество' , '/hd/');
Folder[mpiPodcastParameters] = '--group=alph';
Folder = CreateItem(FolderItem, '15. TV Онлайн');
CreateItem(Folder, 'Общетематические' , "/tv-online/obshchetematicheskie/");
CreateItem(Folder, 'Кино' , "/tv-online/kino/");
CreateItem(Folder, 'Детские' , "/tv-online/detskie/");
CreateItem(Folder, 'Музыкальные' , "/tv-online/muzyka/");
CreateItem(Folder, 'Спортивные' , "/tv-online/sporttv/");
CreateItem(Folder, 'Познавательные' , "/tv-online/poznavatelnye/");
HmsLogMessage(1, mpTitle+': Создано ссылок - '+IntToStr(gnTotalItems));
}
572
C++Script
-
51
b33570ae81c569650d37be7f6cdf05e0
01. Поиск
a7559d80-fdb3-4221-91b1-c0b5c81ae64e
515
2
512
2
532
1
700
2
553
2
42
3
35
43542,4993055556
215
-mpCreateDate
93
43542,4993120486
701
-1
702
-1
517
578-720,722-1080,482-576,402-480,322-400,202-320,0-200
518
0
530
string gsUrlBase = 'https://kino-live1.live'; // База для относительных ссылок
int gnTotalItems = 0; // Счётчик созданных элементов
TDateTime gStart = Now; // Время начала запуска скрипта
int gnMaxPages=10, gnMaxInGroup=100; bool gbYearInTitle=false; char gsGroupMode='';
// Регулярные выражения для поиска на странице блоков с информацией о видео
string
gsPatternBlock = '"more"(.*?)</div></div>' , // Искомые блоки
gsCutPage = '<fromCut>(.*?)<toCut>' , // Обрезка загруженной страницы
gsPatternTitle = '<h1>(.*?)</h1>' , // Название
gsPatternLink = '<a href="(.*?)"' , // Ссылка
gsPatternImg = '<img src="(.*?)"' , // Картинка
gsPatternYear = 'shortinfo.*?>(\\d{4})<' , // Год
gsPatternAudio = '' , // Озвучка / Перевод
gsPatternPages = '.*/page/\\d+/">(\\d+)' , // Регулярное выражение для поиска максимального номера страницы для дозагрузки
gsPagesParams = 'page/<PN>/' , // Параметр с номером страницы, который добавляется к ссылке
;
///////////////////////////////////////////////////////////////////////////////
// Создание папки или подкаста
THmsScriptMediaItem CreateFolder(THmsScriptMediaItem ParentFolder, string sName, string sLink, string sImg='') {
THmsScriptMediaItem Item = ParentFolder.AddFolder(sLink); // Создаём папку с указанной ссылкой
Item[mpiTitle ] = sName; // Присваиваем наименование
Item[mpiThumbnail ] = sImg; // Картинка
Item[mpiCreateDate] = DateTimeToStr(IncTime(gStart, 0, -gnTotalItems, 0, 0)); // Для обратной сортировки по дате создания
gnTotalItems++; // Увеличиваем счетчик созданных элементов
return Item; // Возвращаем созданный объект
}
///////////////////////////////////////////////////////////////////////////////
// Получение имени группировки по имени видео (первая буква, "A..Z" или "#")
string GetGroupName(string sName) {
string sGrp = '#';
if (HmsRegExMatch('([A-ZА-Я0-9])', sName, sGrp, 1, PCRE_CASELESS)) sGrp = UpperCase(sGrp);
if (HmsRegExMatch('[A-Z]', sGrp, sGrp)) sGrp = 'A..Z';
if (HmsRegExMatch('[0-9]', sGrp, sGrp)) sGrp = '#';
return sGrp;
}
///////////////////////////////////////////////////////////////////////////////
// Загрузка страниц и парсинг
void LoadAndParse() {
string sHtml, sData, sName, sLink, sImg, sYear, sPage, sVal, sPost, sServ; // Объявляем переменные
THmsScriptMediaItem Item, Folder = FolderItem; TRegExpr RegEx;
int i, n, nPages=0, iCnt=0, nGrp=0; char sGrp=""; bool bGroup=false;
if (HmsRegExMatch('--maxingroup=(\\d+)', mpPodcastParameters, sVal)) gnMaxInGroup = StrToInt(sVal);
if (HmsRegExMatch('--maxpages=(\\d+)' , mpPodcastParameters, sVal)) gnMaxPages = StrToInt(sVal);
HmsRegExMatch('--group=(\\w+)', mpPodcastParameters, gsGroupMode);
gbYearInTitle = (Pos('--yearintitle', mpPodcastParameters)>0);
if (LeftCopy(mpFilePath, 4) != "http") {
// Если нет ссылки - делаем поиск названия
if (Length(mpTitle)<4) mpTitle += " :::"; // Фишка обхода ограничения на минимальную длину в 4 символа (двоеточие при самом поиске не учитывается)
HmsRegExMatch('//(.*)', gsUrlBase, sServ); // получаем доменное имя из gsUrlBase в sServ
sPost = 'do=search&subaction=search&search_start=1&full_search=0&result_from=1&story='+HmsPercentDecode(HmsUtf8Decode(mpTitle));
sHtml = HmsSendRequestEx(sServ, '/index.php?do=search', 'POST',
'application/x-www-form-urlencoded; Charset=UTF-8',
gsUrlBase+'/\r\nAccept-Encoding: gzip, deflate\r\nOrigin: '+gsUrlBase,
sPost, 80, 0, '', true);
gnMaxPages = 1;
} else {
// Иначе просто, загружаем страницу по ссылке
sHtml = HmsDownloadURL(mpFilePath, 'Referer: '+gsUrlBase, true);
}
sHtml = HmsUtf8Decode(sHtml); // Декодируем страницу из UTF-8
sHtml = HmsRemoveLineBreaks(sHtml); // Удаляем переносы строк, для облегчения работы с регулярными выражениями
// Если указан шаблон поиска максимального номера страницы - применяем
if ((gsPatternPages!='') && HmsRegExMatch(gsPatternPages, sHtml, sVal)) nPages = StrToIntDef(sVal, 0);
// Вырезаем только нужный участок текста HTML, где будем искать блоки.
// Вместо <fromCut> и <toCut> вставляем начало и конец участка HTML, между которыми
// будем искать блоки текста с сылкой, наименованием и проч.
HmsRegExMatch(gsCutPage, sHtml, sHtml); // ищем в sHtml, результат кладём обратно в sHtml
// =========================================================================
// Дозагрузка страниц
if ((gnMaxPages!=0) && (nPages>gnMaxPages)) nPages = gnMaxPages;
for (i=2; i<=nPages; i++) {
HmsSetProgress(Trunc(i*100/nPages));
HmsShowProgress(Format('%s: Загрузка страницы %d из %d', [mpTitle, i, nPages]));
sLink = mpFilePath + ReplaceStr(gsPagesParams, '<PN>', IntToStr(i));
sPage = HmsDownloadURL(sLink, 'Referer: '+gsUrlBase, true);
sPage = HmsUtf8Decode(sPage);
if (gsCutPage!='') HmsRegExMatch(gsCutPage, sPage, sPage);
sHtml += sPage;
if (HmsCancelPressed) break;
}
HmsHideProgress();
// =========================================================================
// Создаём объект для поиска блоков текста по регулярному выражению,
// в которых есть информация: ссылка, наименование, ссылка на картинку и проч.
// Обычно, определяем начало и конец блока и вставляем их вместо <section> и </section>
RegEx = TRegExpr.Create(gsPatternBlock, PCRE_SINGLELINE);
try {
// Определяем, если блоков в загруженном более чем gnMaxInGroup, включаем группировку
i=0; if (RegEx.Search(sHtml)) do i++; while (RegEx.SearchAgain());
bGroup = (i > gnMaxInGroup);
// Главный цикл поиска блоков
if (RegEx.Search(sHtml)) do {
sLink=''; sImg=''; sYear=''; sName='';
HmsRegExMatch(gsPatternTitle, RegEx.Match, sName);
HmsRegExMatch(gsPatternLink , RegEx.Match, sLink);
HmsRegExMatch(gsPatternImg , RegEx.Match, sImg );
HmsRegExMatch(gsPatternYear , RegEx.Match, sYear);
if (Trim(sLink)=="") continue;
sName = ReplaceStr(HmsHtmlToText(sName), "/", "-");
sLink = HmsExpandLink(sLink, gsUrlBase);
if (sImg!='') sImg = HmsExpandLink(sImg, gsUrlBase);
// Если в ссылках встречаются русские символы - делаем их безопасными
if (HmsRegExMatch('^.*?([а-яА-Я].*)', sImg, sVal)) sImg = ReplaceStr(sImg, sVal, HmsPercentEncode(HmsUtf8Encode(sVal)));
// Если указано добавлять год вназвание и в названии его нет, добавляем
if (gbYearInTitle && (sYear!='') && (Pos(sYear, sName)<1)) sName += ' ('+sYear+')';
// Контроль группировки (создаём папку с именем группы)
if (gsGroupMode=='alph') {
Folder = FolderItem.AddFolder(GetGroupName(sName));
Folder[mpiFolderSortOrder] = "mpTitle";
} else if (gsGroupMode=='year') {
Folder = FolderItem.AddFolder(sYear);
Folder[mpiFolderSortOrder] = "mpTitle";
Folder[mpiYear ] = sYear;
} else if (bGroup) {
iCnt++; if (iCnt>=gnMaxInGroup) { nGrp++; iCnt=0; }
Folder = FolderItem.AddFolder(Format('%.2d', [nGrp]));
}
CreateFolder(Folder, sName, sLink, sImg); // Создание ссылки (папки с фильмом)
} while (RegEx.SearchAgain);
} finally { RegEx.Free(); }
if (gsGroupMode=='alph') FolderItem.Sort('mpTitle');
else if (gsGroupMode=='year') FolderItem.Sort('-mpYear');
HmsLogMessage(1, mpTitle+': создано элементов - '+IntToStr(gnTotalItems));
}
///////////////////////////////////////////////////////////////////////////////
// Г Л А В Н А Я П Р О Ц Е Д У Р А //
{
FolderItem.DeleteChildItems(); // Удаляем созданные ранее элементы в текущей папке
LoadAndParse(); // Запускаем загрузку страниц и создание папок видео
}
531
C++Script
522
0
570
0
245
b33570ae81c569650d37be7f6cdf05e0
-
32
419642e8905c5ebcfd67d83b5386612d
-SearchCommands
b33570ae81c569650d37be7f6cdf05e0
515
2
512
2
532
2
700
2
553
2
42
3
4
"Набрать текст"
35
43542,4986111111
200
5
501
C++Script
215
-35
93
43542,4993120486
-
51
93700c5cef36be022003fa5a2c8da675
02. Категории
a7559d80-fdb3-4221-91b1-c0b5c81ae64e
515
2
512
2
532
2
700
2
553
2
42
3
35
43542,4986111111
215
-35
527
--group=alph
93
43542,4993120486
-
53
ef8dea15a3fe86d925c728274c1ca0e2
https://kino-live1.live/boevyki-onlajn/
93700c5cef36be022003fa5a2c8da675
515
2
512
2
532
2
700
2
553
2
42
3
4
Боевики
35
43542,4979166667
215
-35
93
43542,4993120486
525
43542,5020494329
-
53
788a0a9b762c3b75fcc9e2a499bd1312
https://kino-live1.live/komedyy-onlajn/
93700c5cef36be022003fa5a2c8da675
515
2
512
2
532
2
700
2
553
2
42
3
4
Комедии
35
43542,4972222222
215
-35
93
43542,4993120486
-
53
ec01ef31dc3fab38e479b0892f1aaa5d
https://kino-live1.live/semeinoe-kino/
93700c5cef36be022003fa5a2c8da675
515
2
512
2
532
2
700
2
553
2
42
3
4
Семейные
35
43542,4965277778
215
-35
93
43542,4993120486
-
53
966df5fcb2cf3815bfcadcf51f7e2254
https://kino-live1.live/fantastyka-onlajn/
93700c5cef36be022003fa5a2c8da675
515
2
512
2
532
2
700
2
553
2
42
3
4
Фантастика
35
43542,4958333333
215
-35
93
43542,4993120486
-
53
2a7599252c77c708b2ac8a79e41292a1
https://kino-live1.live/pryklyuchenyya-online/
93700c5cef36be022003fa5a2c8da675
515
2
512
2
532
2
700
2
553
2
42
3
4
Приключения
35
43542,4951388889
215
-35
93
43542,4993120486
-
53
556ad747db09c821944b4ef2f9528429
https://kino-live1.live/istorycheskye-online/
93700c5cef36be022003fa5a2c8da675
515
2
512
2
532
2
700
2
553
2
42
3
4
Исторические
35
43542,4944444444
215
-35
93
43542,4993120486
-
53
521dd1dde8460a3591bb5df8f048f159
https://kino-live1.live/melodramy-onlajn/
93700c5cef36be022003fa5a2c8da675
515
2
512
2
532
2
700
2
553
2
42
3
4
Мелодрама
35
43542,49375
215
-35
93
43542,4993120486
-
53
091bfdb2e834c7d0bb81038c0d37c098
https://kino-live1.live/detektivyi-onlajn/
93700c5cef36be022003fa5a2c8da675
515
2
512
2
532
2
700
2
553
2
42
3
4
Детективы
35
43542,4930555556
215
-35
93
43542,4993120486
-
53
f4c2cf5426ca6913cafc821c441cd8ff
https://kino-live1.live/triller-online/
93700c5cef36be022003fa5a2c8da675
515
2
512
2
532
2
700
2
553
2
42
3
4
Триллеры
35
43542,4923611111
215
-35
93
43542,4993120486
-
53
c1de663f8f4b47f05aa06d2f43147ffb
https://kino-live1.live/kriminal/
93700c5cef36be022003fa5a2c8da675
515
2
512
2
532
2
700
2
553
2
42
3
4
Криминал
35
43542,4916666667
215
-35
93
43542,4993120486
-
53
85cf61f7ee9c1e87bc3a5b63497ccb4a
https://kino-live1.live/pro-voinu/
93700c5cef36be022003fa5a2c8da675
515
2
512
2
532
2
700
2
553
2
42
3
4
Про войну
35
43542,4909722222
215
-35
93
43542,4993120486
-
53
c1834b412dbf578e8c5b4dc2741759d3
https://kino-live1.live/fentezi-online/
93700c5cef36be022003fa5a2c8da675
515
2
512
2
532
2
700
2
553
2
42
3
4
Фэнтези
35
43542,4902777778
215
-35
93
43542,4993120486
-
53
16e84c61f4a50b0fe301c3fc3525423f
https://kino-live1.live/dramyi-online/
93700c5cef36be022003fa5a2c8da675
515
2
512
2
532
2
700
2
553
2
42
3
4
Драма
35
43542,4895833333
215
-35
93
43542,4993120486
-
53
71b2f28260d07aa2ee25f8cdbd20c492
https://kino-live1.live/pro-sport-onlajn/
93700c5cef36be022003fa5a2c8da675
515
2
512
2
532
2
700
2
553
2
42
3
4
Про спорт
35
43542,4888888889
215
-35
93
43542,4993120486
-
53
e2d479b8f7b29ce8627d16940bfb9075
https://kino-live1.live/uzhasy-onlajn/
93700c5cef36be022003fa5a2c8da675
515
2
512
2
532
2
700
2
553
2
42
3
4
Ужасы
35
43542,4881944444
215
-35
93
43542,4993120486
-
53
6424281ca5759c3819cf1ec3c25750ec
https://kino-live1.live/anime/
93700c5cef36be022003fa5a2c8da675
515
2
512
2
532
2
700
2
553
2
42
3
4
Аниме
35
43542,4875
215
-35
93
43542,4993120486
-
51
95743b9600f6ccbab40d3019e10680d2
03. Сериалы
a7559d80-fdb3-4221-91b1-c0b5c81ae64e
515
2
512
2
532
2
700
2
553
2
42
3
35
43542,4868055556
215
-35
527
--group=alph
93
43542,4993120486
-
53
310f5138cdecf400467626889f5337c8
https://kino-live1.live/seryalyi-onlajn/russkie-serialy/
95743b9600f6ccbab40d3019e10680d2
515
2
512
2
532
2
700
2
553
2
42
3
4
Русские сериалы
35
43542,4861111111
215
-35
93
43542,4993120486
-
53
355a97aece48da6a9889f64d4d55aff3
https://kino-live1.live/seryalyi-onlajn/zarubezhnye-serialy/
95743b9600f6ccbab40d3019e10680d2
515
2
512
2
532
2
700
2
553
2
42
3
4
Зарубежные сериалы
35
43542,4854166667
215
-35
93
43542,4993120486
-
53
d331cd533c8f20c7439f38b2c620a8b8
https://kino-live1.live/trailer/
a7559d80-fdb3-4221-91b1-c0b5c81ae64e
515
2
512
2
532
2
700
2
553
2
42
3
4
04. Трейлеры
35
43542,4847222222
215
-35
527
--group=alph
93
43542,4993120486
-
53
b47da4228941a6adef9e99c9477affd7
https://kino-live1.live/erotika-online//
a7559d80-fdb3-4221-91b1-c0b5c81ae64e
515
2
512
2
532
2
700
2
553
2
42
3
4
05. Эротика
35
43542,4840277778
215
-35
527
--group=alph
93
43542,4993120486
-
53
15fe3b39544f900c794f2988a9d6242e
https://kino-live1.live/multiki-onlajn/
a7559d80-fdb3-4221-91b1-c0b5c81ae64e
515
2
512
2
532
2
700
2
553
2
42
3
4
06. Мультфильмы
35
43542,4833333333
215
-35
527
--group=alph
93
43542,4993120486
-
53
4039b1aa0179a8f397fa0ad39814f923
https://kino-live1.live/multseryaly-onlain/
a7559d80-fdb3-4221-91b1-c0b5c81ae64e
515
2
512
2
532
2
700
2
553
2
42
3
4
07. Мультсериалы
35
43542,4826388889
215
-35
527
--group=alph
93
43542,4993120486
-
53
102da32febc6be341dfef65da3446c72
https://kino-live1.live/teleshou-onlain/
a7559d80-fdb3-4221-91b1-c0b5c81ae64e
515
2
512
2
532
2
700
2
553
2
42
3
4
08. Телешоу
35
43542,4819444444
215
-35
527
--group=alph
93
43542,4993120486
-
53
5b3a6b77b7d6d1bff3f3a4bc6be0859b
https://kino-live1.live/clips/
a7559d80-fdb3-4221-91b1-c0b5c81ae64e
515
2
512
2
532
2
700
2
553
2
42
3
4
09. Клипы и концерты
35
43542,48125
215
-35
527
--group=alph
93
43542,4993120486
-
53
12b6ca81eee4dac4badefa600d577d7f
https://kino-live1.live/kvn-online/
a7559d80-fdb3-4221-91b1-c0b5c81ae64e
515
2
512
2
532
2
700
2
553
2
42
3
4
10. Квн
35
43542,4805555556
215
-35
527
--group=alph
93
43542,4993120486
-
53
08aa7073646461dc7867b93fac2eb867
https://kino-live1.live/dokumentalnyie-onlajn/
a7559d80-fdb3-4221-91b1-c0b5c81ae64e
515
2
512
2
532
2
700
2
553
2
42
3
4
11. Документальные
35
43542,4798611111
215
-35
527
--group=alph
93
43542,4993120486
-
53
577d13f2698b7c183cab9223dca72933
https://kino-live1.live/kamedy-klab-online/
a7559d80-fdb3-4221-91b1-c0b5c81ae64e
515
2
512
2
532
2
700
2
553
2
42
3
4
12. Камеди клаб
35
43542,4791666667
215
-35
527
--group=alph
93
43542,4993120486
-
53
aff8f1a0f6f72476b5a14df2a6985c6c
https://kino-live1.live/filmy-dlia-detei/
a7559d80-fdb3-4221-91b1-c0b5c81ae64e
515
2
512
2
532
2
700
2
553
2
42
3
4
13. Для детей
35
43542,4784722222
215
-35
527
--group=alph
93
43542,4993120486
-
53
676bbf51ee1b95c8f6142e72c815701f
https://kino-live1.live/hd/
a7559d80-fdb3-4221-91b1-c0b5c81ae64e
515
2
512
2
532
2
700
2
553
2
42
3
4
14. HD качество
35
43542,4777777778
215
-35
527
--group=alph
93
43542,4993120486
-
51
3a117261a5b26f3174d27f8d8be08898
15. TV Онлайн
a7559d80-fdb3-4221-91b1-c0b5c81ae64e
515
2
512
2
532
2
700
2
553
2
42
3
35
43542,4770833333
215
-35
93
43542,4993120486
-
53
7ee891d04e42a347ddbf2fab966526ca
https://kino-live1.live/tv-online/obshchetematicheskie/
3a117261a5b26f3174d27f8d8be08898
515
2
512
2
532
2
700
2
553
2
42
3
4
Общетематические
35
43542,4763888889
215
-35
93
43542,4993120486
-
53
3c64285461896146ece8e72b6ac3573a
https://kino-live1.live/tv-online/kino/
3a117261a5b26f3174d27f8d8be08898
515
2
512
2
532
2
700
2
553
2
42
3
4
Кино
35
43542,4756944444
215
-35
93
43542,4993120486
-
53
bfdef53165672136387cee438b0f465a
https://kino-live1.live/tv-online/detskie/
3a117261a5b26f3174d27f8d8be08898
515
2
512
2
532
2
700
2
553
2
42
3
4
Детские
35
43542,475
215
-35
93
43542,4993120486
-
53
4a68bd94b69e17252fa1c36aa52479c6
https://kino-live1.live/tv-online/muzyka/
3a117261a5b26f3174d27f8d8be08898
515
2
512
2
532
2
700
2
553
2
42
3
4
Музыкальные
35
43542,4743055556
215
-35
93
43542,4993120486
-
53
7d385046755df14445ecbf9a65e9f780
https://kino-live1.live/tv-online/sporttv/
3a117261a5b26f3174d27f8d8be08898
515
2
512
2
532
2
700
2
553
2
42
3
4
Спортивные
35
43542,4736111111
215
-35
93
43542,4993120486
-
53
1e2183eec65c42748113ec325f0026db
https://kino-live1.live/tv-online/poznavatelnye/
3a117261a5b26f3174d27f8d8be08898
515
2
512
2
532
2
700
2
553
2
42
3
4
Познавательные
35
43542,4729166667
215
-35
93
43542,4993120486