Russian Users MikroTik | Форум пользователей MikroTik

Код: Выделить всё

=IMPORTHTML("https://freevpn.me/accounts/"; "list"; "4")

Код: Выделить всё

function getData() {
  var ss = SpreadsheetApp.getActiveSpreadsheet();
  var sheet = ss.getSheetByName('Лист1');
  var range = sheet.getRange("B5");
  var result = range.getValues();
  Logger.log(result);
  return result;
}

function doGet() {
  var data = getData();
  if(!data) {
    data = '';
  }
  return ContentService.createTextOutput(
    JSON.stringify({'result': data})).setMimeType(ContentService.MimeType.JSON);
}

Код: Выделить всё

:local filepas "disk1/tempfile.txt"

# First request. Moved Temporarily 302. Fetch output to disk1/tempfile.txt
:local jobid [:execute script={/tool fetch url="https://script.google.com/macros/s/AKf546SGI5675479hrU7689789oiDJw/exec" output=user as-value} file=$filepas]

# Waiting for the end of the task, checking every 5 seconds
:while ([:len [/system script job find .id=$jobid ]] > 0) do={ delay 5s }

# Parsing disk1/tempfile.txt, retrieving url redirection
:local fetchOut [/file get $filepas contents]
:local startURL [:find $fetchOut "http" -1]
:local endURL [:find $fetchOut "\"> " startURL]
:local moveURL [:pick $fetchOut $startURL $endURL]
:global pass ([/tool fetch url=$moveURL output=user as-value]->"data")

# Parsing password
:global pass (:put [:pick $pass ([:find $pass "Password"]+11) [:find $pass "\"]"]])

/file remove $filepas