[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