[решено] Поиск слова в исходном коде html страницы??????

kaster · Конфигурация компьютера

klsorat2010, это не ссылка а раскрывающийся блок текста в котором код. вот такой

Код:

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <IE.au3>

_IEErrorHandlerRegister()

$oIE = _IECreateEmbedded()
$hForm = GUICreate("Супер-пупер программа", 640, 580, _
        (@DesktopWidth - 640) / 2, (@DesktopHeight - 580) / 2, _
        $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS + $WS_CLIPCHILDREN)
$GUIActiveX = GUICtrlCreateObj($oIE, 5, 5, 630, 520)
$GUI_Button_Test = GUICtrlCreateButton("Пройти тест", 55, 530, 150, 30)
$GUI_Button_Check = GUICtrlCreateButton("Проверить результат", 245, 530, 150, 30)
GUICtrlSetState(-1, $GUI_DISABLE)
$GUI_Button_Home = GUICtrlCreateButton("Домой", 435, 530, 150, 30)
GUICtrlSetState(-1, $GUI_DISABLE)
GUISetState()

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

While 1
    $msg = GUIGetMsg()
    Select
        Case $msg = $GUI_EVENT_CLOSE
            Exit
        Case $msg = $GUI_Button_Test
            _IENavigate($oIE, "http://forum.oszone.net/")
            GUICtrlSetState($GUI_Button_Check, $GUI_ENABLE)
        Case $msg = $GUI_Button_Check
            GUICtrlSetState($GUI_Button_Check, $GUI_DISABLE)
            GUICtrlSetState($GUI_Button_Test, $GUI_DISABLE)
            $sText = _IEBodyReadText($oIE)
            If StringInStr($sText, "Забыли пароль") <> 0 Then
                MsgBox(266256, "Ошибка!", "Вы или не зарегистрированы, или забыли войти")
            Else
                If MsgBox(266308, "Успех!", "Вы успешно вошли в форум!" & @CRLF & @CRLF & _
                        "Открыть блокнот?") = 6 Then Run("notepad")
            EndIf
            GUICtrlSetState($GUI_Button_Home, $GUI_ENABLE)
        Case $msg = $GUI_Button_Home
            GUICtrlSetState($GUI_Button_Home, $GUI_DISABLE)
            _IENavigate($oIE, "http://www.mail.ru/")
            GUICtrlSetState($GUI_Button_Test, $GUI_ENABLE)
    EndSelect
WEnd