Создание формы для ввода url в скрипте vbs :: Прикладное программирование

Доброго дня всем !
Понадобилось переделать один скрипт, но в vbs я практически чайник, поэтому прошу помощи у знающих людей.
Есть скрипт по переименованию каналов в тв плейлистах m3u. В нём для каждого нового плейлиста необходимо вручную вписывать адрес. Начало кода:

Код:

Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP")
'в строке ниже, между кавычек, введите ссылку на самообновляемый плейлист
oXMLHTTP.Open "GET", "http://", 0
oXMLHTTP.Send
Set oADOStream = CreateObject("ADODB.Stream")
oADOStream.Mode = 3
oADOStream.Type = 1
oADOStream.Open
oADOStream.Write oXMLHTTP.responseBody
'путь сохранения (не забудьте создать папку на диске! скрипт НЕ ПИШЕТ в корень диска и не создает папку сам!)
'по умолчанию вы должны создать папку с названием tv на диске C
oADOStream.SaveToFile "C:\tv\tv.m3u", 2

Const ForReading = 1
Const ForWriting = 2

Дабы не открывать скрипт каждый раз для вставки url, хотел добавить форму, так думаю удобнее будет.
По примерам написал следующий код:

Код:

Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP")
oXMLHTTP.Open "GET", "inputbox (" & Chr(34) & "Введите адрес плейлиста" & Chr(34) & ", " & Chr(34) & "" & Chr(34) & ", " & Chr(34) & "http://" & Chr(34) & ")", 0
oXMLHTTP.Send
Set oADOStream = CreateObject("ADODB.Stream")
oADOStream.Mode = 3
oADOStream.Type = 1
oADOStream.Open
oADOStream.Write oXMLHTTP.responseBody
'путь сохранения (не забудьте создать папку на диске! скрипт НЕ ПИШЕТ в корень диска и не создает папку сам!)
'по умолчанию вы должны создать папку с названием tv на диске C
oADOStream.SaveToFile "C:\tv\tv.m3u", 2

Const ForReading = 1
Const ForWriting = 2

Но работать он не хочет, жалуется, что указанный протокол неизвестен.

Как правильно вставить нужную мне форму, подскажите, пожалуйста ?
Заранее благодарен за любые подсказки.

Модерирует : ShIvADeSt
Версия для печати • Подписаться • Добавить в закладки