viks.tv

///////////////////////////////////////////////////////////////////////////////
// Javascript Eval
string jsEval(string sData) {
  Variant objScript, objJS; string 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;
}

///////////////////////////////////////////////////////////////////////////////
// Получение ссылки с http://viks.tv
void GetLink_vikstv(string sLink) {
  string sHtml, sData, scriptBlock;
  
  sHtml = HmsDownloadURL(sLink);
  
  // Ищем в загруженном html запакованную функцию в eval
  if (HmsRegExMatch('(eval\\(function\\(w,i,s,e\\).*?\'\\)\\);)', sHtml, scriptBlock)) {
    // Распаковываем, пока распаковывается (всегда последний eval, если их несколько)
    while (HmsRegExMatch('.*eval(\\(.*\\));', scriptBlock, scriptBlock)) {
      scriptBlock = jsEval(scriptBlock);
    }
    // На выходе в scriptBlock - распакованный js код
  }
  
  // Получаем ссылку
  HmsRegExMatch('[\'"](http://.*?)[\'"]', scriptBlock, MediaResourceLink);
  // Даём понять программе, чтобы он это не воспринимал как прямую ссылку на поток (HLS не может так)
  if (Pos('m3u8', MediaResourceLink)>0) MediaResourceLink = ' '+Trim(MediaResourceLink);
  // А ещё прикол в C++Script такой, что если слева и справа есть одна и та же переменная со сложением,
  // то он может интерпретировать это как Переменная+=..., поэтому приходится обворачивать в Trim()...
  
}

///////////////////////////////////////////////////////////////////////////////
//                     Г Л А В Н А Я   П Р О Ц Е Д У Р А                     //
{
  GetLink_vikstv('http://viks.tv/448-setanta-sport.html');
}