[Iska]

and331, выкарыстоўвайце наступную методыку: adodb.stream savetofile - Пошук у Google → SaveToFile Method → SaveOptionsEnum.

З прычыны чаго Вы прыйдзеце да наступнага коду:

Код:

Const  adSaveCreateOverWrite = 2
…
b.savetofile "Куды", adSaveCreateOverWrite
…

[and331]

Iska, не працює, помилка, відсутні дані потрібні для виконання цієї операції.

[Iska]

and331, прывядзіце поўны код, уключаючы спасылку «"Що"».

[and331]

Це повний код
Це що білоруська мова, я українець, та до чого тут та ссилка Що
Ось тільки вона змінюється то якщо не працюватиме скажи.

[Iska]

Це повний код »

Не полный.

Це що білоруська мова, »

Ага.

я українець »

А я — нет. И язык конференции — русский. Будете продолжать пытать украинским — я буду Вас пытать белорусским. Или, например, урду. Или суахили.

та до чого тут та ссилка Що »

Чтобы можно было воспроизвести Вашу ошибку. Именно для этого нужна конкретизация ссылки, на которой Вы получили указанную ошибку. Ибо у меня — работает:

читать дальше »

Код:

Option Explicit

Const adModeReadWrite = 3
Const adTypeBinary = 1
Const adSaveCreateOverWrite = 2


Dim strUrl
Dim objXmlHttpRequest
Dim objStream


strUrl = "http://forum.oszone.net/thread-266463.html"

Set objXmlHttpRequest = WScript.CreateObject("MSXml2.XmlHttp")

With objXmlHttpRequest
	.Open "GET", strUrl, False
	.Send
End With

Set objStream = WScript.CreateObject("ADODB.Stream")

With objStream
	.Mode = adModeReadWrite
	.Type = adTypeBinary
	
	.Open
	.Write objXmlHttpRequest.responseBody
	.SaveToFile "c:\MyFile.html", adSaveCreateOverWrite
End With

Set objStream         = Nothing
Set objXmlHttpRequest = Nothing

WScript.Quit 0

[and331]

Спасибо помогло.
Я так и понял что белорусский язык в ответ на украинский, ну а допустим я не понимаю руссий или кто-то другой, что ему делать, Це дискримінація Української мови

[Iska]

Я так и понял что белорусский язык в ответ на украинский, »

Угу .

ну а допустим я не понимаю руссий или кто-то другой, что ему делать, »

Или страдать, или изучать. Третьего не дано. Тот же MSDN и TechNet до недавнего времени были сплошь на американском английском (да и сейчас там не намного больше русского стало) — то же самое. И общаясь на каком-либо «забугорном» форуме, находишься ровно в том же положении.

Це дискримінація Української мови »

Неа . Просто так сложилось.