2

Возможно ли на VBScript получить текст с веб страницы или из txt файла в сети? Если не сложно, то приведите код, пожалуйста. (сам файл VBS на запускается на компьютере)

glarionenko
  • 181

1 Answers1

3

Чтобы получить данные от HTTP сервера туда нужно отправить GET запрос. Это можно сделать множеством способов, например так:

Dim o
Set o = CreateObject("MSXML2.XMLHTTP")
o.open "GET", "http://www.example.com", False
o.send

Теперь внутри o.responseText содержится ответ сервера имеющий тип данных String. Делайте с ним что хотите(парсите, сохраняйте как файл, перепосылайте в другое место). Православная документация по MSXML2.XMLHTTP находится здесь

igumnov
  • 7,806
  • Простите, а что является ответом от сервера?(там весь файл или что-то другое) – glarionenko Aug 27 '12 at 19:17
  • Исправил немного. o.responseText - ответ сервера. – igumnov Aug 27 '12 at 19:23
  • А почему эта процедура не хочет повторяться несколько раз в цикле? – glarionenko Aug 27 '12 at 21:19
  • Dim o Dim x Dim b

    Do Set o = CreateObject("MSXML2.XMLHTTP") o.open "GET", "http://.../message.txt", False o.send b = o.responseText If x <> b Then MsgBox(o.responseText) x = b End If WScript.Sleep 1000 Loop WScript.Quit

     – glarionenko Aug 27 '12 at 21:20