Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Компьютеры » Программы » Basilisk

Модерирует : gyra, Maz

 Версия для печати • ПодписатьсяДобавить в закладки
На первую страницук этому сообщениюк последнему сообщению

Открыть новую тему     Написать ответ в эту тему

Alexyz21



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Код:
local find,len,lower,match = string.find,string.len,string.lower,string.match
local function GetAnswer(url) return io.popen('curl.exe -s "'..url..'"','rb'):read("*all") end -- get page content
local function Magnet(url) -- string processor  
  if url and type(url)=='string' then
    local urll=lower(url)
    local chksum=match(urll,':btih:(%x+)') or match(urll,'^(%x+)$')
    if chksum and chksum:len()==40 then -- send magnet to uTorrent
      local link='magnet:?xt=urn:btih:'..chksum
      local appPath=win.GetEnv("APPDATA")..'\\uTorrent\\uTorrent.exe'
      win.ShellExecute(nil,nil,'"'..appPath..'"','"'..link..'"',nil,0)
    else -- send magnet to GreyLink
      chksum=match(urll,':tiger:([%d%l]+)')
      if chksum and len(chksum)==39 then
        local appPath=win.GetEnv("PROGRAMFILES")..'\\DC++\\GreyLink.exe'
        win.ShellExecute(nil,nil,'"'..appPath..'"','/magnet "'..arg[1]..'"',nil,0)
      end
    end
  end
end
 
local url=arg[1]
if url and (type(url)=='string') then
  if     find(url,'^%d+$') then url='https://rutracker.org/forum/viewtopic.php?t='..url -- rutracker.org
  elseif find(lower(url),'^https?://newstudio%.tv/') then url=url..'a' -- newstudio.tv 404 patch
  end
  if find(lower(url),'^https?:') then Magnet(match(lower(GetAnswer(url)),'magnet:%?xt=ur[:%l]+:%l+:%x+')) else Magnet(url) end
end

Всего записей: 3484 | Зарегистр. 16-06-2007 | Отправлено: 10:27 13-03-2022 | Исправлено: Alexyz21, 11:55 13-03-2022
Открыть новую тему     Написать ответ в эту тему

На первую страницук этому сообщениюк последнему сообщению

Компьютерный форум Ru.Board » Компьютеры » Программы » Basilisk


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2024

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru