VBScript: Работа с сайтом VK.com [Часть 04. Итоговый на данном этапе скрипт].

Публикую готовый код скрипта на этапе 4.

• 'https://zen.yandex.ru/id/5e6e13e66be9d72182b9ebf5
• On Error Resume Next
• w = vbCrLf
• h = Chr(34)
• t = "Host"
• d = "vk.com"
• h1 = "User-Agent"
• h2 = "Mozilla/5.0 (Windows NT 6.3; WOW64; rv:36.0) Gecko/20100101 Firefox/36.0"
• url = "https://vk.com/video-146954363_456239568?list=e28287d47241c04b6b"
• url = Split(InputBox("Введите адрес видео","Enter URL",url),"?")(0)
• u = Split(url,"/")(3)
• With CreateObject("Msxml2.XMLHttp.6.0")
• .Open "GET", url&"?", False
• .SetRequestHeader t, d
• .SetRequestHeader h1, h2
• .Send
• .Open "GET", url&"?", False
• .SetRequestHeader t, d
• .SetRequestHeader h1, h2
• .Send
• g = .ResponseText
• End With
• g = Split(Join(Filter(Split(Replace(g,Chr(13),""),Chr(10)),"hls"),w),","&h)
• CreateObject("Scripting.FileSystemObject").CreateTextFile(u&".txt",True).Write( Join(g,w&h) ).Close
• MsgBox ": The End. :":Wscript.Quit