1

Тема: VBS: загрузка текстового файла с HTTP не работает в цикле

Здраствуйте дорогие форумчане и все кто смотрит эту тему. Вот код, который скачивает текстовой документ с url, но "один раз".

file = "c:\temp\test.txt"
url = "http://test.txt"
set fso = createobject("scripting.filesystemobject")
Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP")
do while not i = 2
 oXMLHTTP.Open "GET", url, False
 oXMLHTTP.Send
 fso.CreateTextFile file, True
 Set f = fso.OpenTextFile(file, 2, True)
 f.WriteLine oXMLHTTP.Responsetext
 f.close
 wscript.sleep 1000
loop

Меняю данные в текстовом файле (который скачиваеться), а file не изменяеться. Пробовал удалять файл перед скачкой, но не помогает.
Также пробовал циклить его в отельном скрипте чтото вроде

WsHShell.Run "script.vbs"

но это не удобно и иногда вылетают ошибки типа ввод за пределами ....
Хотелось бы, чтобы он работал внутри цикла без отдельных скриптов.

За любую помощь огромное спасибо!

2

Re: VBS: загрузка текстового файла с HTTP не работает в цикле

Как-то давно я сталкивался с подобной проблемой, и уверен дело даже не конкретно в цикле. По-моему это связано с кэшом в системе...

Стремление - залог успеха

3

Re: VBS: загрузка текстового файла с HTTP не работает в цикле

Вот похожая проблема Зачем здесь нужен условный GET

( 2 * b ) || ! ( 2 * b )

4

Re: VBS: загрузка текстового файла с HTTP не работает в цикле

Доглядел и исправил «Скачака …» на «загрузка…» в заголовке. А то — прямая дорога в «Цитаты…» .

5

Re: VBS: загрузка текстового файла с HTTP не работает в цикле

Это что за бред ?

fso.CreateTextFile file, True
Set f = fso.OpenTextFile(file, 2, True)
Я конечно далек от мысли... (с)

6

Re: VBS: загрузка текстового файла с HTTP не работает в цикле

Еще похожая тема: VBS: MSXML2.XMLHTTP. Ну, и, когда-то приводимая ссылка коллегой Xameleon: 6.1 Проблема с кешированием в Microsoft Internet Explorer.