VBScript: Работа с сайтом VK.com [Часть 03. Код скрипта после необъяснимых манипуляций].

Скрипт получился такой (оставляем только одну строку с "h2=", где упоминается любимый браузер, например, или версия ОС):

'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.1; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/80.0.3987.132 Safari/537.36"

h2 = "Mozilla/5.0 (Windows NT 10.0; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/53.0.2785.101 Safari/537.36 OPR/40.0.2308.62"

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

q = .ResponseBody

End With

With Createobject("Adodb.Stream")

.Type = 1

.Open

.Write q

.SaveToFile u&".htm", 2

End With

MsgBox ": The End. :":Wscript.Quit