[Автоматизация] Не получается вставлять текст в поле для поиска

[id.balandin]

#include <IE.au3>

Local $oIE = _IECreate("http://212.104.73.202/ul/")
Local $oForm = _IEFormGetObjByName($oIE, "p_text")
Local $oQuery = _IEFormElementGetObjByName($oForm, "p_text")

_IEFormElementSetValue($oQuery, "000000000")
_IEFormSubmit($oForm)

_IEFormGetObjBy

Подскажите что делаю не так?

 

[iwak]

так заполняет

#include <IE.au3>

$oIE = _IECreate("http://212.104.73.202/ul/")
$oForm = _IEGetObjByName($oIE, "p_text")

_IEFormElementSetValue($oform, "000000000")

 

[id.balandin]

Я разобрался. Вот что мне нужно было:

#include <MsgBoxConstants.au3>
#include <IE.au3>
;#include "WinHttp.au3"
#include "Array.au3"
    Local $sAnswer = InputBox("Узнай ОКПО", "Введи ИНН", "", "", _
	- 1, -1, 0, 0)
$oIE = _IECreate("http://212.104.73.202/ul/")
;MsgBox($MB_SYSTEMMODAL, "", $sAnswer)
$oForm = _IEFormGetCollection ($oIE, 0)
$oInput =_IEGetObjByName($oIE,"p_text")
_IEFormElementSetValue ($oInput, $sAnswer)
_IEFormSubmit ($oForm)

Правда теперь хочу Код ОКПО вытащить со страницы и отправить в MessageBox или окно из которого я смогу скопировать этот номер. Пока не додумался...
???

 

[oesoes]

ОПКО может быть несколько для разных филиалов, например для "Сбербанка", нужно просматривать всю таблицу в массиве. Функция: _IETableWriteToArray()

 

[id.balandin]

неее))) Мне сбербанк не нужен. Простые юр. лица. без филиалов.

 

[Garrett]

#include <MsgBoxConstants.au3>
#include <Array.au3>
#include <IE.au3>
;#include "WinHttp.au3"
#include "Array.au3"
    Local $sAnswer = InputBox("Узнай ОКПО", "Введи ИНН", "6664067028", "", _
    - 1, -1, 0, 0)
$oIE = _IECreate("http://212.104.73.202/ul/")
;MsgBox($MB_SYSTEMMODAL, "", $sAnswer)
$oForm = _IEFormGetCollection ($oIE, 0)
$oInput =_IEGetObjByName($oIE,"p_text")
_IEFormElementSetValue ($oInput, $sAnswer)
_IEFormSubmit ($oForm)

Local $oTable = _IETableGetCollection($oIE, 1)
Local $aTableData = _IETableWriteToArray($oTable, True)
_ArrayDisplay($aTableData)
ConsoleWrite(StringFormat('%s: %s\r\n',$aTableData[4][0],$aTableData[4][1]))
_IEQuit($oIE)