1 Тема от Asterixx

  • Asterixx
  • Гость

Тема: VBS: Поиск текста на странице

Доброго времени суток.
Подскажите как решить следующую задачу.
Есть страница http://192.168.200.47/1/index12.php
на неё периодически появляется набор символов, нужен VBS скрипт, который бы с интервалом 1 раз в минуту смотрел, на страничку и в случае появления нужной последовательности символов (например 125756) выводил окно поверх всех окон с полным содержимым строки в которой найдены указанные символы.
Я в скриптостроении не силен, но если ткнете в несколько скриптов аналогичного направления попробую ченить собрать
Спасибо.

2 Ответ от abasov

  • abasov
  • Разработчик
  • Неактивен

Re: VBS: Поиск текста на странице

добавить в планировщик с минутным интервалом примерно такой код:

source ="123456"

Set srvXmlHttp = CreateObject("Msxml2.ServerXMLHTTP")
srvXmlHttp.Open "GET", "http://192.168.200.47/1/index12.php", False
srvXmlHttp.send

set fso = CreateObject("Scripting.FileSystemObject")
tmpFile = "_tmp.txt"
fso.CreateTextFile tmpFile, True
Set f = fso.OpenTextFile(tmpFile, 2, True)
f.WriteLine(srvXmlHttp.responseText)

set handle = fso.OpenTextFile(tmpFile)
     content = handle.ReadLine
     do until handle.atEndofStream
        if InStr(content, source) > 0 Then
               WScript.Echo content
           End if
        content = handle.ReadLine
      Loop      
      handle.close

Asterixx зачем все это?