play_real_url_from_(hindcine_tv).vbs

'Открыть фильм в новой вкладке браузера с сайта hindcine.tv
'Копируем ссылку у понравившегося фильма на сайте, загружаем в скрипт и получаем реальный url
Set IE = CreateObject("InternetExplorer.Application")
IE.Navigate InputBox("Enter the download address:","Enter URL","https://hindcine.tv/4522/kanthaswamy-2009/")
While IE.Busy Or (IE.ReadyState <> 4)
Wend
Wscript.Sleep cos(CreateObject("WScript.Shell").run("http://"&Split(Split(Split(Split(IE.Document.body.innerHtml,", file:")(1),"poster:")(0),"//")(1),Chr(34))(0)))
IE.Quit:Set IE = Nothing