Что нового

[Сеть, интернет] Проблема выбора значений из раскрывающихся списков в IE

vladimir_dfx

Новичок
Сообщения
6
Репутация
0
Приветствую форумчане, если не затруднит, помогите новичку победить выпадающие списки в IE! как их прочесть допер, а как заставить поменяться значения, не могу, читал похожую ветку, тоже не особо помогло. С инпут боксами проще намного освоился. Что посоветуете? :stars:

Код:
#include <StaticConstants.au3>
#include <IE.au3>

GAS()

Func GAS()
	$CURR = 'test'
	Local $LC = '00000000000000' 
	Local $WT1 = 'Передать показания счетчиков - Internet Explorer'
	Local $FIO = 'Тест'
	Local $DATE = @MDAY & '.' & @MON & '.' & @YEAR
	Local $t = '00000'
	$oIE = _IECreate("https://www.rostovregiongaz.ru/abonenty/peredat-pokazaniya-schetchikov/")
	_IELoadWait($oIE)
	WinActivate($WT1)

;~ =================================наименование участка / список

$oSpans = _IETagNameGetCollection ($oIE, "span")
For $oSpan in $oSpans
MsgBox(0,0,_IEPropertyGet($oSpan, "innerText"))

;~ Удалось прочесть скрытое!!!

	WinActivate($WT1)
	$oBs = _IETagNameGetCollection($oIE, 'input')
	For $oB In $oBs
		If $oB.name = 'form_text_12' Then
			_IEFormElementSetValue($oB, $FIO)
			ExitLoop
		EndIf
	Next
	Sleep($t)
	WinWaitClose($WT1)
EndFunc   ;==>GAS
 

InnI

AutoIT Гуру
Сообщения
4 456
Репутация
1 207
Код:
$oSpans = _IETagNameGetCollection ($oIE, "span")
For $oSpan in $oSpans
  If _IEPropertyGet($oSpan, "innerText") = "Таганрогский" Then
    _IEAction($oSpan, "click")
    ExitLoop
  EndIf
Next
For $oSpan in $oSpans
  If _IEPropertyGet($oSpan, "innerText") = "Куйбышевский пункт" Then
    _IEAction($oSpan, "click")
    ExitLoop
  EndIf
Next
 
Автор
V

vladimir_dfx

Новичок
Сообщения
6
Репутация
0
InnI Как же долго я мучился с этим, огромное Вам человеческое спасибо :beer:
 
Верх