Поиск текста на сайте IE

BERGAMOD · 20 Фев 2015

Люди добрые!! помогите пожалуйста уже не знаю где искать на форуме..
Нужно найти 3/4 текста на сайте и выполнять действие.

1 действие работает

Код:

#include <IE.au3>
$oIE = _IECreate ("сайт")
_IELoadWait($oIE,1000)
$oLinks =  _IELinkGetCollection($oIE)
Local $isFind = false
For $oLink in $oLinks
        If _IEPropertyGet($oLink,'innertext')== "Поиск в интернете" Then
            $isFind = True
            MsgBox (0,'Авторизация', 'Текст вижу')
        ExitLoop
        EndIf
Next
If Not $isFind Then
        MsgBox (0,'Авторизация', 'Текст не вижу')
EndIf

Нужно если попадается "Вы сможете проголосовать через" то выходит из аккаунта (Кнопка не активная сделал по мышке

Код:

WinMove("The Abyss", " ", 290, 0, 1090, 900)
MouseMove(1250, 67, 0)
MouseClick("left", 1250, 70, 1, 0)
MouseClick("left", 1140, 170, 1, 0)

Вот нашел что то похожие

Код:

#include <IE.au3>
$oIE = _IECreate(сайт')
_IELoadWait ($oIE)
$sText = _IEBodyReadText($oIE)

Select
    Case StringInStr($sText, 'Авторизация')
        MsgBox(0, 'Заголовок', 'Есть Текст 1')
        ; клик по ссылке
        _IELinkClickByText($oIE, '')

    Case StringInStr($sText, 'Вы сможете проголосовать через')
        MsgBox(0, 'Заголовок', 'Есть Текст 2')
        ; клик по ссылке

		Case StringInStr($sText, 'Текст3')
        MsgBox(0, 'Заголовок', 'Есть Текст 3')
        ; клик по ссылке

EndSelect

но не получается добавить. если нет такого текста то выпалить действие

Код:

MsgBox(64, 'Info', 'Нет такого текста') Then
WinMove("Abг", " ", 290, 0, 1090, 900)
MouseMove(1250, 67, 0)
MouseClick("left", 1250, 70, 1, 0)
MouseClick("left", 1140, 170, 1, 0)
Sleep (3000)
WinClose("Abr")

edyapd · 20 Фев 2015

Создайте блок Case Else и вставьте туда код. Будет выполняться если не выполнилось не одно из предыдущих условий.

BERGAMOD · 24 Фев 2015

edyapd сказал(а):
Создайте блок Case Else и вставьте туда код. Будет выполняться если не выполнилось не одно из предыдущих условий.

Попробовал, работает толко на один текст

Код:

Select

    Case StringInStr($sText, 'Авторизация')
;~      MsgBox(0, 'Заголовок', 'Есть Текст 1')
        $oIE =_IECreate ("https://mmotop.ru/users/sign_in")
		_IELoadWait ($oIE)
        _IELinkClickByText($oIE, '')
		WinMove("Авторизация", " ", 290, 0, 1090, 900)
		Sleep (2000)
        MouseMove(700, 610, 0)
        MouseClick("left", 700, 610, 1, 0)
        Send(IniRead("!Autologin.ini", GUICtrlRead($List1), "Login", "None"))
        Send("{Tab}")
        Send(IniRead("!Autologin.ini", GUICtrlRead($List1), "Password", "None"))
        Send("{Tab 2}")
        Sleep (3000)
        Send("{Enter}")
        Sleep (3000)
		$IE = _IECreate("http://la2.mmotop.ru/servers/4543/votes/new?world_id=8822")
        _IELoadWait ($IE)
		WinMove("The Abyss", " ", 290, 0, 1090, 900)
        Sleep (2000)
        Send("{F5}")
        Sleep (2000)
 Case Else
;~ 	 MsgBox(64, '', 'Нет такого текста')
	 WinMove("The Abyss", " ", 290, 0, 1090, 900)
MouseMove(1250, 67, 0)
MouseClick("left", 1250, 70, 1, 0)
MouseClick("left", 1140, 170, 1, 0)
Sleep (3000)
WinClose("The Abyss")
EndSelect

мне нужно что бы еще это работало

Код:

Select
    Case StringInStr($sText, 'Вы сможете проголосовать через')
        MsgBox(0, 'Заголовок', 'Есть Текст 2')
        ; клик по ссылке

		Case StringInStr($sText, 'Текст3')
        MsgBox(0, 'Заголовок', 'Есть Текст 3')
        ; клик по ссылке
EndSelect

edyapd · 24 Фев 2015

Так а зачем вы эти условия убрали? Должно быть примерно так.

Код:

Select
	Case ;Первое условие
	; Код
	Case ;Второе условие
	; Код
	Case ;Третье условие
	; Код
	Case Else ;Если не выполнилось не одно из условий
	; Код
EndSelect

Как только какое то Case выполняется код выходит из структуры Select
Или я чего-то недопонимаю.

BERGAMOD · 5 Мар 2015

Код:

Select
    Case ;Первое условие
    ; Код
    Case ;Второе условие
    ; Код
    Case ;Третье условие
    ; Код
    Case Else ;Если не выполнилось не одно из условий
    ; Код
EndSelect

Так это я побывал :stars: Мне надо что бы если на сайте находил текст то выполнял действия.

Пример:

1) Case StringInStr($sText, 'Авторизация') Нашел этот текст и выполнил действие входа.
2) Case StringInStr($sText, 'Вы сможете проголосовать через') Нашел этот текст и выполнил действие выхода.

Код:

Select

    Case StringInStr($sText, 'Авторизация')
;~      MsgBox(0, 'Авторизация', 'Есть Текст 1')
        $oIE =_IECreate ("https://mmotop.ru/users/sign_in")
		_IELoadWait ($oIE)
        _IELinkClickByText($oIE, '')
		WinMove("Авторизация", " ", 290, 0, 1090, 900)
		Sleep (2000)
        MouseMove(700, 610, 0)
        MouseClick("left", 700, 610, 1, 0)
        Send(IniRead("!Autologin.ini", GUICtrlRead($List1), "Login", "None"))
        Send("{Tab}")
        Send(IniRead("!Autologin.ini", GUICtrlRead($List1), "Password", "None"))
        Send("{Tab 2}")
        Sleep (3000)
        Send("{Enter}")
        Sleep (3000)
		$IE = _IECreate("http://la2.mmotop.ru/servers/4543/votes/new?world_id=8822")
        _IELoadWait ($IE)
;~ 		WinMove("сайт", " ", 290, 0, 1090, 900)
;~         Sleep (2000)
;~         Send("{F5}")
;~         Sleep (2000)
	Case StringInStr($sText, 'Вы сможете проголосовать через')
    MsgBox(0, 'Вы сможете проголосовать через', 'Есть Текст 2')
	$IE = _IECreate("http://la2.mmotop.ru/servers/4543/votes/new?world_id=8822")
        _IELoadWait ($IE)
Case Else
;~ MsgBox(64, '', 'Нет такого текста')
WinMove("сайт", " ", 290, 0, 1090, 900)
MouseMove(1250, 67, 0)
MouseClick("left", 1250, 70, 1, 0)
MouseClick("left", 1140, 170, 1, 0)
Sleep (3000)
WinClose("сайт")
EndSelect
Endif

Первое действие делает, а второе уже нет :(

edyapd · 5 Мар 2015

Так вы весь код вставьте ещё между

Код:

While 1

WEnd

BERGAMOD · 5 Мар 2015

edyapd сказал(а):
Так вы весь код вставьте ещё между

Код:

While 1 WEnd

Да есть там это, я же часть скрипта показываю, там где проблема.

edyapd · 5 Мар 2015

Код:

$IE = _IECreate("http://la2.mmotop.ru/servers/4543/votes/new?world_id=8822")
        _IELoadWait ($IE)  ;Лишнее. _IECreate и так ожидает окончание загрузки

Автор темы	Похожие темы	Форум	Ответы	Дата
M	Поиск и выделение текста в RichEdit	Стол заказов	0	25 Июн 2021
A	Поиск и копирование текста из файла PDF	Общие вопросы по AutoIt	0	28 Окт 2020
S	Автоматизация Поиск текста на странице браузера (Google chrome) через UIAutomate.au3, определение окна через тайтл	Общие вопросы по AutoIt	2	12 Май 2020
V	Поиск текста на сайте	Общие вопросы по AutoIt	4	1 Фев 2016
	Перенесено: Поиск текста на сайте IE	Общие вопросы по AutoIt	0	20 Фев 2015

Поиск

Поиск

Поиск текста на сайте IE

BERGAMOD

Новичок

edyapd

Осваивающий

BERGAMOD

Новичок

edyapd

Осваивающий

BERGAMOD

Новичок

edyapd

Осваивающий

BERGAMOD

Новичок

edyapd

Осваивающий