; *******************************************************
; Пример 1 - Открывает браузер с примером "form", получает ссылку на форму, получает ссылку
;				на элемент выбора. Цикл 10 раз выбирает опции по параметру byValue, byText и byIndex
;				Примечание: Возможно вам придётся прокрутить страницу вниз, чтобы видеть изменения
; *******************************************************

#include <IE.au3>
$oIE = _IE_Example("form")
$oForm = _IEFormGetObjByName($oIE, "ExampleForm")
$oSelect = _IEFormElementGetObjByName($oForm, "selectExample")
For $i = 1 To 10
	_IEFormElementOptionSelect($oSelect, "Freepage", 1, "byText")
	Sleep(1000)
	_IEFormElementOptionSelect($oSelect, "midipage.html", 1, "byValue")
	Sleep(1000)
	_IEFormElementOptionSelect($oSelect, 0, 1, "byIndex")
	Sleep(1000)
Next

; *******************************************************
; Пример 2 - Открывает браузер с примером "form", получает ссылку на форму, получает ссылку
;				на элемент множественного выбора. Цикл 5 раз выбирает и отменяет выбор
;				опции по параметру byValue, byText и byIndex.
;				Примечание: Возможно вам придётся прокрутить страницу вниз, чтобы видеть изменения
; *******************************************************

#include <IE.au3>
$oIE = _IE_Example("form")
$oForm = _IEFormGetObjByName($oIE, "ExampleForm")
$oSelect = _IEFormElementGetObjByName($oForm, "multipleSelectExample")
For $i = 1 To 5
	_IEFormElementOptionSelect($oSelect, "Carlos", 1, "byText")
	Sleep(1000)
	_IEFormElementOptionSelect($oSelect, "Name2", 1, "byValue")
	Sleep(1000)
	_IEFormElementOptionSelect($oSelect, 5, 1, "byIndex")
	Sleep(1000)
	_IEFormElementOptionSelect($oSelect, "Carlos", 0, "byText")
	Sleep(1000)
	_IEFormElementOptionSelect($oSelect, "Name2", 0, "byValue")
	Sleep(1000)
	_IEFormElementOptionSelect($oSelect, 5, 0, "byIndex")
	Sleep(1000)
Next

; *******************************************************
; Пример 3 - Открывает браузер с примером "form", получает ссылку на форму, получает ссылку
;				на элемент выбора, проверяет, выбрана ли опция "Freepage" и сообщает о результате
;				Повторяет для опции с индексом 0 и для опции со значением value='midipage.html'
;				Примечание: Возможно вам придётся прокрутить страницу вниз, чтобы видеть изменения
; *******************************************************

#include <IE.au3>
$oIE = _IE_Example("form")
$oForm = _IEFormGetObjByName($oIE, "ExampleForm")
$oSelect = _IEFormElementGetObjByName($oForm, "selectExample")
If _IEFormElementOptionSelect($oSelect, "Freepage", -1, "byText") Then
	MsgBox(4096, "Выбрана ли опция?", "Опция Freepage выбрана")
Else
	MsgBox(4096, "Выбрана ли опция?", "Опция Freepage не выбрана")
EndIf
If _IEFormElementOptionSelect($oSelect, 0, -1, "byIndex") Then
	MsgBox(4096, "Выбрана ли опция?", "Первая опция (индекс 0) выбрана")
Else
	MsgBox(4096, "Выбрана ли опция?", "Первая опция (индекс 0) не выбрана")
EndIf
If _IEFormElementOptionSelect($oSelect, "midipage.html", -1, "byValue") Then
	MsgBox(4096, "Выбрана ли опция?", "Опция со значением 'midipage.html' выбрана")
Else
	MsgBox(4096, "Выбрана ли опция?", "Опция со значением 'midipage.html' не выбрана")
EndIf