Что нового

Помогите переделать скрипт поиска текста на странице

SHoCK13666

Новичок
Сообщения
108
Репутация
0
Вот есть скрипт:
Код:
While 1
        $sText = _IEBodyReadText($oIE)
        Select
            Case StringInStr($sText, 'Привет')
                Sleep(3000)
            Case Else
                ExitLoop
        EndSelect
    WEnd
MsgBox(0, "ок", "ок")

Он действует так: ищет на странице в ие слово "привет". Если оно есть, то ищет снова и так далее... Как только не находит этого слова, то показывает окошко.

Помогите переделать этот скрипт наоборот. То есть скрипт должен искать слово "привет" на странице. Если НЕ нашёл, то через 5 секунд ищет ещё раз, если не нашёл, то ещё раз и т.д... Как только нашёл, то показал окно msgbox
 

Shinoby

Новичок
Сообщения
81
Репутация
2
Вроде достаточно поставить Not перед проверкой строки в строке.
Но вопрос в другом: зачем это надо? Ведь это будет вечный цикл - на странице текст не появится.
 

InnI

AutoIT Гуру
Сообщения
4,947
Репутация
1,443
SHoCK13666
Запустите скрипт, введите в строке поиска слово "Привет" - появится окно "ОК"
Код:
#include <IE.au3>
$oIE = _IECreate("ya.ru")
While Not StringInStr(_IEBodyReadText($oIE), "Привет")
  Sleep(5000)
WEnd
MsgBox(0, "ок", "ок")
 
Верх