Что нового

Выбрать значение из выпадающего списока на сайте

Tiberium6

Новичок
Сообщения
51
Репутация
0
На сайте вводится адрес, и появляется выпадающий список, нужно выбрать первый из них, никак не могу выбрать.
чуть ниже список как эти элементы выглядят


HTML:
<div class="input__suggest__element " data-reactid=".1.0.0.0.0.6.0.$0">Ростовская обл., г. Шахты, пр. Победа Революции, дом 130, литера А</div>
<div class="input__suggest__element " data-reactid=".1.0.0.0.0.6.0.$1">Ростовская обл., г. Шахты, пр. Победа Революции, дом 130, литера Б</div>

Можно ли по data-reactid=".1.0.0.0.0.6.0.$0 выбрать?
Код:
#include <IE.au3>

$oIE = _IECreate("https://www.pochta.ru/post-index")


$addr = "Ростовская обл., г. Шахты, пр. Победа Революции, дом 130, литера"

_IEAction($oIE, "visible")

$oForm = _IEFormGetObjByName($oIE, "main-content")

$oInputFile = _IEFormElementGetObjByName($oForm, "new-password")
Local $hIE = _IEPropertyGet($oIE, "hwnd")
Sleep (4000)
AutoItSetOption ( "SendKeyDelay",50)

ControlSend($hIE, "", "[CLASS:Internet Explorer_Server; INSTANCE:1]", $addr)
_IEAction($oIE, "visible")
Sleep (1000)




$oElements = _IETagNameGetCollection($oIE, 'div')
For $oElement In $oElements
    If _IEPropertyGet($oElement, "class") = "input__suggest__element" Then
        if $oElement.getAttribute("data-reactid") = ".1.0.0.0.0.6.0.$0" Then
            MsgBox (0,"",$oElements)
        _IEAction($oElement, 'click')
        MsgBox(0, "", $oElement.getAttribute("data-reactid"))
        EndIf
    EndIf
Next
 

hedji

Продвинутый
Сообщения
409
Репутация
94
Код:
#include <IE.au3>

$oIE = _IECreate("https://www.pochta.ru/post-index")

$addr = "Ростовская обл., г. Шахты, пр. Победа Революции, дом 130, литера"

_IEAction($oIE, "visible")

$oForm = _IEFormGetObjByName($oIE, "main-content")

$oInputFile = _IEFormElementGetObjByName($oForm, "new-password")
Local $hIE = _IEPropertyGet($oIE, "hwnd")
Sleep (2000)
AutoItSetOption ( "SendKeyDelay",50)

ControlSend($hIE, "", "[CLASS:Internet Explorer_Server; INSTANCE:1]", $addr)
_IEAction($oIE, "visible")
Sleep (1000)


$count=""

$oElements = _IETagNameGetCollection($oIE, 'div')
For $oElement In $oElements
    If _IEPropertyGet($oElement, "class") = "input__suggest__element" Then
        if $oElement.getAttribute("data-reactid") = ".1.0.0.0.0.6.0.$0" Then
            $iScreenX = _IEPropertyGet($oElement, "screenx")
            $iScreenY = _IEPropertyGet($oElement, "screeny")
            $iWidth = _IEPropertyGet($oElement, "width")
            $iHeight = _IEPropertyGet($oElement, "height")
            $iMousespeed = 3
            $oMouseCords = MouseMove($iScreenX + $iWidth / 2, $iScreenY + $iHeight / 2, $iMousespeed)
            MouseClick($MOUSE_CLICK_LEFT)
            ExitLoop
        EndIf
    EndIf
Next
 
Автор
T

Tiberium6

Новичок
Сообщения
51
Репутация
0
Код:
#include <IE.au3>

$oIE = _IECreate("https://www.pochta.ru/post-index")

$addr = "Ростовская обл., г. Шахты, пр. Победа Революции, дом 130, литера"

_IEAction($oIE, "visible")

$oForm = _IEFormGetObjByName($oIE, "main-content")

$oInputFile = _IEFormElementGetObjByName($oForm, "new-password")
Local $hIE = _IEPropertyGet($oIE, "hwnd")
Sleep (2000)
AutoItSetOption ( "SendKeyDelay",50)

ControlSend($hIE, "", "[CLASS:Internet Explorer_Server; INSTANCE:1]", $addr)
_IEAction($oIE, "visible")
Sleep (1000)


$count=""

$oElements = _IETagNameGetCollection($oIE, 'div')
For $oElement In $oElements
    If _IEPropertyGet($oElement, "class") = "input__suggest__element" Then
        if $oElement.getAttribute("data-reactid") = ".1.0.0.0.0.6.0.$0" Then
            $iScreenX = _IEPropertyGet($oElement, "screenx")
            $iScreenY = _IEPropertyGet($oElement, "screeny")
            $iWidth = _IEPropertyGet($oElement, "width")
            $iHeight = _IEPropertyGet($oElement, "height")
            $iMousespeed = 3
            $oMouseCords = MouseMove($iScreenX + $iWidth / 2, $iScreenY + $iHeight / 2, $iMousespeed)
            MouseClick($MOUSE_CLICK_LEFT)
            ExitLoop
        EndIf
    EndIf
Next
Спасибо, а без курсора и без взаимодействия клавиш никак не получится?
 
Верх