Что нового

[Сеть, интернет] Ie выбор из выпадающего списка

Other767

Новичок
Сообщения
3
Репутация
0
Кто подскажет как сделать что выбрало 2 по списку? Отсидел пол ночи так и не получилось))
Код страницы-
Код:
</div><div class="block_center">

<b>Выбор</b> 

<select name="color">
<option value="0">зеленый</option> 
<option value="1">красный</option> 
</select>
Как заставить ie нажать на выбор и выбрать красный?:smile:
 

madmasles

Модератор
Глобальный модератор
Сообщения
7,790
Репутация
2,322
Other767,
Код:
_IEFormElementOptionSelect()
 
Автор
O

Other767

Новичок
Сообщения
3
Репутация
0
И как это примерно будет выглядеть?:smile: Просто пока совсем 0 в этом) Еще долго думал но не получается придумать, как нажать на строку текста командой _IELinkClickByText ($oIE, "форум[ххх]") ххх постоянно меняется относительно количеству людей на форуме:smile:
 

madmasles

Модератор
Глобальный модератор
Сообщения
7,790
Репутация
2,322
Other767,
Код:
#include <IE.au3>

Opt('MustDeclareVars', 1)

Local $a_Select[4][2] = [[3],['byValue', '1'],['byText', 'зеленый'],['byIndex', 1]]
Local $sUrl = @ScriptDir & '\1.html', $oIE, $oObj

Do
	$oIE = _IECreate($sUrl)
	If @error Then ExitLoop
	$oObj = _IEGetObjByName($oIE, 'color')
	If @error Then ExitLoop
	For $i = 1 To $a_Select[0][0]
		MsgBox(64, 'Info', 'Func _IEFormElementOptionSelect options:' & @LF & '$s_string = ' & $a_Select[$i][1] & _
				', $s_mode = ' & $a_Select[$i][0])
		_IEFormElementOptionSelect($oObj, $a_Select[$i][1], 1, $a_Select[$i][0])
		If @error Then ExitLoop 2
	Next
Until 1
If @error Then
	MsgBox(16, 'Error', 'Error')
Else
	MsgBox(64, 'Info', 'OK')
EndIf
1.html:
Код:
<html>
<head>
<title>_IEFormElementOptionSelect</title>
</head>
<body>
<div class="block_center">

<b>Выбор</b> 

<select name="color">
<option value="0">зеленый</option> 
<option value="1">красный</option> 
</select>
</div>
</body>
</html>

Other767 [?]
как нажать на строку текста
Предупреждение За нарушение общих правил (пункт В.4):
Не лепите несколько вопросов разной тематики в один пост. По типу "Ребят, а ещё такой вопрос...". Каждый вопрос в свою тему.


С уважением, ваш Глобальный модератор.
 

alex33

Скриптер
Сообщения
1,457
Репутация
186
Other767 сказал(а):
И как это примерно будет выглядеть?:smile:
Код:
#include <IE.au3>
$oIE = _IECreate("http://example.com/url_page")
; ...
$oSelect = _IEFormElementGetObjByName($oIE, "color")
_IEFormElementOptionSelect($oSelect, "1", 1, "byValue"); красный
 

madmasles

Модератор
Глобальный модератор
Сообщения
7,790
Репутация
2,322
Other767,
[info border=#0000ff float=left]На форуме принято помечать тему решенной после получения ответа на свой вопрос!
Вверху или внизу темы нажмите на ссылку такого вида:
package_old.gif
Тема не решена
[/info]
 
Верх