#include <IE.au3>
#include <GUIConstantsEx.au3>
#include <ButtonConstants.au3>
Global $sIniPath = @ScriptDir & "\config.ini"
Global $iRadio1, $iRadio2, $iInput1, $iButton1, $iButton2, $msg, $hGUI
Global $flag = True
$hGUI = GUICreate("настройка")
GUICtrlCreateGroup("Установка параметров", 10, 10, 230, 66)
$iRadio1 = GUICtrlCreateRadio("Закрыть браузер", 20, 25, -1, 20)
If IniRead($sIniPath, "script", "radioChecked", 2) = 1 Then GUICtrlSetState($iRadio1, $GUI_CHECKED)
$iRadio2 = GUICtrlCreateRadio("Выдать сообщение", 20, 45, -1, 20)
If IniRead($sIniPath, "script", "radioChecked", 2) = 2 Then GUICtrlSetState($iRadio2, $GUI_CHECKED)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateLabel("Ключевые слова через запятую", 10, 100, 130, 30)
$iInput1 = GUICtrlCreateInput("", 10, 140, 330, 30)
GUICtrlSetData(-1, IniRead($sIniPath, "script", "keywords", ""))
$iButton1 = GUICtrlCreateButton("Запустить", 50, 250, 70, 30)
GUICtrlSetState($iButton1, $GUI_DEFBUTTON)
$iButton2 = GUICtrlCreateButton("Остановить", 140, 250, 70, 30)
GUICtrlSetState($iButton2, $GUI_DISABLE)
GUISetState()
While 1
$msg = GUIGetMsg()
Switch $msg
Case $GUI_EVENT_CLOSE
ExitLoop
Case $iButton1
If BitAND(GUICtrlRead($iRadio1), $GUI_CHECKED) = $GUI_CHECKED Then
$flag = False
IniWrite($sIniPath, "script", "radioChecked", 1)
ElseIf BitAND(GUICtrlRead($iRadio2), $GUI_CHECKED) = $GUI_CHECKED Then
$flag = True
IniWrite($sIniPath, "script", "radioChecked", 2)
Else
MsgBox(0, "Выберите действие", "Необходимо выбрать действие при обноружении ключевых слов", 0, $hGUI)
ContinueLoop
EndIf
If StringLen(GUICtrlRead($iInput1)) < 3 Then
MsgBox(0, "Введите ключевые слова для поиска", "Вы не ввели ключевые слова", 0, $hGUI)
GUICtrlSetState($iInput1, $GUI_FOCUS)
ContinueLoop
EndIf
IniWrite($sIniPath, "script", "keywords", GUICtrlRead($iInput1))
AdlibRegister("_example", 1000)
GUICtrlSetState($iButton2, $GUI_ENABLE)
GUICtrlSetState($iButton2, $GUI_FOCUS)
GUICtrlSetState($iInput1, $GUI_DISABLE)
GUICtrlSetState($iButton1, $GUI_DISABLE)
GUICtrlSetState($iRadio1, $GUI_DISABLE)
GUICtrlSetState($iRadio2, $GUI_DISABLE)
Case $iButton2
AdlibUnRegister("_example")
GUICtrlSetState($iInput1, $GUI_ENABLE)
GUICtrlSetState($iButton1, $GUI_ENABLE)
GUICtrlSetState($iButton1, $GUI_FOCUS)
GUICtrlSetState($iButton2, $GUI_DISABLE)
GUICtrlSetState($iRadio1, $GUI_ENABLE)
GUICtrlSetState($iRadio2, $GUI_ENABLE)
EndSwitch
WEnd
Func _example()
Local $sText, $aKeywords
Local $i, $oIE
$aKeywords = StringSplit(GUICtrlRead($iInput1), ",")
If Not IsArray($aKeywords) Then Return
For $k = 1 To $aKeywords[0]
$sText = StringStripWS($aKeywords[$k], 1 + 2)
$i = 1
While 1
$oIE = _IEAttach("", "instance", $i)
If @error = $_IEStatus_NoMatch Then ExitLoop
If StringInStr(_IEBodyReadHTML($oIE), $sText) > 0 Then
If $flag Then
MsgBox(0, "Текст найден", "На странице найден заданный текст", 0, $hGUI)
Else
_IEQuit($oIE)
EndIf
EndIf
$i += 1
WEnd
Next
EndFunc ;==>_example