Что нового

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

id.balandin

Новичок
Сообщения
30
Репутация
0
Код:
#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

Новичок
Сообщения
28
Репутация
0
так заполняет

Код:
#include <IE.au3>

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

_IEFormElementSetValue($oform, "000000000")
 
Автор
id.balandin

id.balandin

Новичок
Сообщения
30
Репутация
0
Я разобрался. Вот что мне нужно было:
Код:
#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

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

id.balandin

Новичок
Сообщения
30
Репутация
0
неее))) Мне сбербанк не нужен. Простые юр. лица. без филиалов.
 

Garrett

Модератор
Локальный модератор
Сообщения
3,999
Репутация
967
Код:
#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)
 
Верх