Что нового

Регистрация майл почт.. проблема в выборе значения

alex.n201

Новичок
Сообщения
25
Репутация
1
Приветсвую :smile:

Нужно со списка предложенных адресов выбрать любой
Bezimyanni_2924792_22827882.png


Код:
Код:
#include <IE.au3>
#include <Array.au3>
HotKeySet('{Esc}', '_Exit'); остановка скрипта кнопкой Esc

$oIE = _IECreate("https://e.mail.ru/signup?from=main_noc&rf=0001")

$Name = $oIE.document.getElementsByClassName("inPut").item(0)
$Family = $oIE.document.getElementsByClassName("inPut").item(1)
$Email = $oIE.document.getElementsByClassName("inPut").item(3)

$Name.value='Алиса' ; пишем имя
$Family.value='Тра-та-та' ; пишем фамилию

_IEAction ($Email, "focus") ;фокус на Email

Dim $aLink[0] ; массив предлагаемых адресов
For $i=0 To 30
	$oLinks = _IELinkGetCollection($oIE)
		For $oLink In $oLinks
			If $oLink.parentNode.classname="item" Then
			_ArrayAdd($aLink, $oLink.innerText)
			EndIf
		Next
	If UBound($aLink)=0 Then
		Sleep(50)
	Else
		$prE = $aLink[Random(0, UBound($aLink), 1)]
		$prE =StringSplit($prE, "@")
		ExitLoop
	EndIf
Next

$Email.value=$prE[1] ; вставляем email предложенный

Func _Exit()
    Exit
EndFunc   ;==>_Exit


Пишет "выбраный email занят", там при клюке вызывается js

Пытаюсь кликнуть:
Код:
_IELinkClickByText ($oIE, $prE[1]) ; не работает

$a = $oIE.document.getElementsByClassName('item').item(Random(1, UBound($aLink), 1)).getElementsByTagName('a').item(0) ; здесь случайный предложенный email
_IEAction ($a, "click") ; не работает


Подскажите пожалуйста как решить проблему
 
Автор
A

alex.n201

Новичок
Сообщения
25
Репутация
1
Ох уж эта невнимательность :smile:
Вопрос решил
 
Верх