Что нового

Какой то нестандартный выпадающий список

SlavaS

Знающий
Сообщения
35
Репутация
5
Добрый день, подскажите пожалуйста, ни как не получается выбрать "Территориальные орган" из select.
Код:
#Include <ComboConstants.au3>
#Include <GUIConstantsEx.au3>
#Include <WindowsConstants.au3>
#Include <IE.au3>

Global $oIE, $oSelect

$Form = GUICreate("Form1", 245, 74, 192, 124)
$Combo = GUICtrlCreateCombo("", 4, 8, 237, 25, BitOR($CBS_DROPDOWNLIST, $WS_VSCROLL))
$Btn = GUICtrlCreateButton("Закрыть", 28, 40, 189, 25)

GUISetState(@SW_SHOW)

loadIE()

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE, $Btn
			_IEQuit($oIE)
			Exit
		Case $Combo
			ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : GUICtrlRead($combo) = ' & GUICtrlRead($Combo) & @CRLF & '>Error code: ' & @Error & @CRLF) ;### Debug Console
			_IEFormElementOptionSelect($oSelect, GUICtrlRead($Combo), 1, "byText")
	EndSwitch
WEnd

Func loadIE()
	$oIE = _IECreate("http://www.fssprus.ru/iss/ip/", 0, 1)
	_IELoadWait($oIE)
	$oForm = _IEFormGetObjByName($oIE, "ip_form")
	$oSelect = _IEFormElementGetObjByName($oForm, "is[region_id][0]")

	For $iSelect In $oSelect
		GUICtrlSetData($Combo, $iSelect.text & '|')
	Next
	GUICtrlSendMsg($Combo, $CB_SETCURSEL, 20, 0)
EndFunc   ;==>loadIE
 
Верх