Цитата binwatch@vk:
|
Можно ли создать такой скрипт, чтобы адрес сайта в данном коде можно было прописывать из диалогового окна bat ? или vbs? »
|
Можно.
читать дальше »
Код:
strURL = Trim(InputBox("Input URL:"))
If Len(strURL) <> 0 Then
Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP")
'подключение
oXMLHTTP.Open "GET", strURL, 0
'получение файла
oXMLHTTP.Send Set oADOStream = CreateObject("ADODB.Stream")
oADOStream.Mode = 3 'разрешение на чтение и запись
oADOStream.Type = 1 'тип данных - Binary
oADOStream.Open oADOStream.Write oXMLHTTP.responseBody
'сохранение (с перезаписью файла при необходимости)
oADOStream.SaveToFile "C:\Users\Admin\Desktop\1.html", 2
'сохранение файла в прописанной папке
End If
А можно и указывать параметром скрипта. Откуда будут браться адреса страниц — буквально?
