Что нового

Поиск текста в коде страницы по ключевым словам

Script17

Новичок
Сообщения
7
Репутация
0
Здравствуйте помогите пожалуйста решить задачу, задача открыть скриптом ссылку в дефолтном браузере, найти на странице текст по двум ключевым словам например "яблоко" и "апельсин", если искомый текст найден то скрипт отключается. Если искомого текста нет то скрипт запускает установку *.exe файла, который находиться на диске C:\
 

InnI

AutoIT Гуру
Сообщения
4,912
Репутация
1,429
Script17
Как вариант (без открытия браузера)
Код:
$Text = BinaryToString(InetRead("http://www.ya.ru", 1), 4)
If StringInStr($Text, "Студия") And StringInStr($Text, "Артемия") Then
  MsgBox(0, "", "Слова найдены - выход")
  Exit
Else
  MsgBox(0, "", "Одно или оба слова не найдены - запуск файла")
  Run("c:\program.exe")
EndIf
 

alex33

Скриптер
Сообщения
1,457
Репутация
186
Вот мой вариант через IE:
Код:
#include <IE.au3>
Local $oIE, $sHtml, $sUrl = "http://autoit-script.ru/index.php/topic,17200.0.html"; URL
$oIE = _IECreate($sUrl)
_IELoadWait($oIE)
$sHtml = _IEBodyReadHTML($oIE)
;~ If StringRegExp($sHtml, "(?si)(яблоко|апельсин)") > 0 Then
If StringInStr($sHtml, "яблоко") > 0 Or StringInStr($sHtml, "апельсин") > 0 Then
	;Exit
Else
	Run("C:\setup.exe")
EndIf

_IEQuit($oIE)
 
Автор
S

Script17

Новичок
Сообщения
7
Репутация
0
alex33 сказал(а):
Вот мой вариант через IE

Большое спасибо за ответы даже не ожидал, что так быстро поможете! Ваш вариант мне подошел больше! :IL_AutoIt_1:
Прошу прощения не учел когда задавал вопрос как закрыть IE если искомые слова НЕ найдены?
 

alex33

Скриптер
Сообщения
1,457
Репутация
186
Script17 сказал(а):
Прошу прощения не учел когда задавал вопрос как закрыть IE если искомые слова НЕ найдены?
Посмотри на последнюю строку моего кода...
 
Автор
S

Script17

Новичок
Сообщения
7
Репутация
0
alex33 сказал(а):
Посмотри на последнюю строку моего кода...
Не закрывает. Значит какие то проблеммы с моей стороны.

update: проблема решена! Дело было в том что IE не пользуюсь и при запуске он выдавал окно с предложением сделать его браузером по умолчанию, которое не давало выполниться скрипту.
 

alex33

Скриптер
Сообщения
1,457
Репутация
186
Script17 [?]
IE не пользуюсь и при запуске он выдавал окно с предложением сделать его браузером по умолчанию

А вот чтобы не выдавал открой Свойства обозревателя:
 
Автор
S

Script17

Новичок
Сообщения
7
Репутация
0
И последний вопрос как изменить путь в вашем коде к setup.exe на переменную %APPDATA%?
Код:
Run("C:\setup.exe")

Код:
Run("%APPDATA%\setup.exe")

Не запускаеться :scratch:
 

alex33

Скриптер
Сообщения
1,457
Репутация
186
Script17 сказал(а):
И последний вопрос как изменить путь в вашем коде к setup.exe на переменную %APPDATA%?
Код:
Run("C:\setup.exe")

Код:
Run("%APPDATA%\setup.exe")

Не запускаеться :scratch:
В AutoIt есть макросы которые начинаются со знака @. Вот этим макросом мы и воспользуемся...
Код:
Run(@AppDataDir & "\setup.exe")
 
Верх