0

Цикл do работает, но o.responseText каждый раз один и тот же. Как каждый раз обновлять содержание o.responseText?

Dim o
    Dim x
    Dim b

Do
Set o = CreateObject("MSXML2.XMLHTTP")
o.open "GET",

"http://.../message.txt",

False
o.send
b = o.responseText
MsgBox(o.responseText)
x = o.responseText
Set o = Nothing ' пытался очистить объект, но не выходит
WScript.Sleep 120000
Loop
WScript.Quit

1 ответ 1

0

Инициализируйте объект прямо в цикле:

Dim x
Dim b

Do
    Dim o = CreateObject("MSXML2.XMLHTTP")
    o.open "GET",

    "http://.../message.txt",

    False
    o.send
    b = o.responseText
    MsgBox(o.responseText)
    x = o.responseText
    WScript.Sleep 120000
Loop

WScript.Quit

  • А в вашем случае, лучше инициализировать все переменные там.
3
  • Я не оч понимаю, но кажется что он ответ от сервера кэширует или что ещё, протсо каждый раз в цикле выводит одно и то же. Хотя содержание на сервере меняется 28 авг 2012 в 19:40
  • @Georgiy Larionenko, попробуйте использовать мой код, если он не заработает, тогда посмотрим что ещё можно сделать. 28 авг 2012 в 20:18
  • Не заработал, но я уже нашел выход(добавил к ссылке рандомную переменную - каждый раз получается "новая ссылка").. Спасибо за помощь 29 авг 2012 в 10:12

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge that you have read and understand our privacy policy and code of conduct.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.