2

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

1 ответ 1

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 находится здесь

4
  • Простите, а что является ответом от сервера?(там весь файл или что-то другое) 27 авг 2012 в 19:17
  • Исправил немного. o.responseText - ответ сервера.
    – igumnov
    27 авг 2012 в 19:23
  • А почему эта процедура не хочет повторяться несколько раз в цикле? 27 авг 2012 в 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 27 авг 2012 в 21:20

Ваш ответ

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

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