Приветсвую
Нужно со списка предложенных адресов выбрать любой
Код:
Пишет "выбраный email занят", там при клюке вызывается js
Пытаюсь кликнуть:
Подскажите пожалуйста как решить проблему
Нужно со списка предложенных адресов выбрать любой
Код:
Код:
#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") ; не работает
Подскажите пожалуйста как решить проблему