Поиск заданного текста в коде формы с периодическим её обновлением.

Ответить
Аватара пользователя
BAORope

Поиск заданного текста в коде формы с периодическим её обновлением.

Сообщение BAORope »

Здравствуйте!

Прошу помощи в написании скрипта для AutoIt цель, которого искать заданный текст внутри кода странички, которая генерируется и изменяется.

Искать постоянно, с заданной периодичностью обращения к форме после её обновления.

Заранее прошу прощения, т.к. последний раз программировал почти 10 лет назад и могу тупить в нюансах.

Из темы
[решено] Поиск слова в исходном коде html страницы??????
смог унести только часть первоначального кода, т.к. под конец он настолько разросся,ввиду специфики, что мне его не воспринять к сожалению







PHP код:

Код: Выделить всё

#include 

#include 

#include 



_IEErrorHandlerRegister()



$oIE = _IECreateEmbedded()

$hForm = GUICreate("Программа поиска в правильном месте правильнынго слова", 1140, 580, _

        (@DesktopWidth - 640) / 2, (@DesktopHeight - 580) / 2, _

        $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS + $WS_CLIPCHILDREN)

$GUIActiveX = GUICtrlCreateObj($oIE, 5, 5, 1130, 520)

$GUI_Button_Test = GUICtrlCreateButton("Перейти на нужную страничку", 55, 530, 150, 30)

$GUI_Button_Check = GUICtrlCreateButton("Искать в коде слово каждые 5 секунд: ", 245, 530, 150, 30)

GUICtrlSetState(-1, $GUI_DISABLE)



GUICtrlSetState(-1, $GUI_DISABLE)

GUISetState()



_IENavigate($oIE, "http://ya.ru/")



While 1

    $msg = GUIGetMsg()

    Select

        Case $msg = $GUI_EVENT_CLOSE

            Exit

        Case $msg = $GUI_Button_Test

            _IENavigate($oIE, "http://ya.ru/")

            GUICtrlSetState($GUI_Button_Check, $GUI_ENABLE)

        Case $msg = $GUI_Button_Check            

            $sText = _IEBodyReadText($oIE)

            If StringInStr($sText, "СРОЧНАЯ НОВОСТЬ")  0 Then

                MsgBox(266256, "Ошибка!", "Вы не нашли нифига, страничка обновиться с повторной отправкой данных для формы и поиск пройдёт заново ЧЕРЕЗ 5 СЕКУНД")

            Else

                If MsgBox(266308, "Успех!", "Вы успешно нашли что искали!" & @CRLF & @CRLF & _

                        "Здорово было бы просто ГРОМКИЙ СИГНАЛ об обнаружении в коде страничке искомого текстового элемента") = 6 Then Run("notepad")

            EndIf

            GUICtrlSetState($GUI_Button_Test, $GUI_ENABLE)

    EndSelect

WEnd 








Помогите пожалуйста добавить:

1. Поле из которого брать образец для поиска в коде

2. Сделать цикл в 10 секунд обновления странички с повторной отправкой данных формы, т.е. как бы автоматическое нажатие "Далее", когда выскакивает "Подтвердите повторную отправку формы"

3. Проиграть определённый файл звуковой долгий-громкий, если искомый код будет найден





Буду Вам очень признателен за помощь!



P.S.

Страничка в которой требуется искать текс в коде заканчивается на cgi-bin/tcgi1.exe[/i]
Ответить

Вернуться в «AutoIt»