Здравствуйте, использую библиотеку UDF: http://autoit-script.ru/index.php?topic=16780.0 и пример из поста http://autoit-script.ru/threads/avtorizacija-na-sajtax.4982/page-6#post-131262
для авторизации на mail.ru, все прекрасно, но, хотел бы Вас попросить помочь с реализацией следующей задачи, а именно:
есть список mail pass(мои/клиента), т.к их достаточно много(несколько десятков фирм старых, но туда еще поступают письма), решили сгребсти все в 1 ящик поставив сендинг входящих на основной ящик, руками очень долго)
сам скрипт
после успешной авторизации, необходимо перейти(в той же вкладке в https://e.mail.ru/settings/filters?action=edit&fwd=1&afterReload=1) в поле "Пересылать все письма на адрес" вставить нужный адрес, нажать сохранить - ввести текущий пароль sPassword и вновь нажать "подтвердить"
так же из другого примера
для авторизации на mail.ru, все прекрасно, но, хотел бы Вас попросить помочь с реализацией следующей задачи, а именно:
есть список mail pass(мои/клиента), т.к их достаточно много(несколько десятков фирм старых, но туда еще поступают письма), решили сгребсти все в 1 ящик поставив сендинг входящих на основной ящик, руками очень долго)
сам скрипт
Код:
#include <UIAutomate.au3> ; Ссылка на UDF: http://autoit-script.ru/index.php?topic=16780.0
Local $sLogin = 'myoldmail' ; Имя пользователя
Local $sPassword = 'pass' ; Пароль
Local $sRememberMe = False ; Запомнить меня
Local $sURl = 'https://mail.ru'
; Запуск Chrome с параметром --force-renderer-accessibility (При отсутствии этого параметра доступ к элементам страницы будет запрещён)
Run(@ProgramFilesDir & '\Google\Chrome\Application\chrome.exe --force-renderer-accessibility --incognito ' & $sURl)
$hWnd = WinWaitActive('[REGEXPCLASS:Chrome;TITLE:Mail.ru]', '', 6)
If Not $hWnd Then Exit MsgBox(4096 + 16, 'Сообщение', 'Окно не найдено, завершаем работу скрипта')
_Authorize_Alfadirect($hWnd, $sLogin, $sPassword, $sRememberMe)
MsgBox(4096, '', '@error = ' & @error)
Func _Authorize_Alfadirect($hWnd, $sLogin, $sPassword, $sRememberMe = False)
Local $oLogin, $oRememberMe, $oLogInButton, $oParent = _UIA_GetElementFromHandle($hWnd)
If Not IsObj($oParent) Then Return SetError(1, 0, 0)
$oLogin = _UIA_WaitControlTypeElement($oParent, $UIA_EditControlTypeId, 'Имя Ящика', Default, False, 10)
If Not IsObj($oLogin) Then Return SetError(2, 0, 0)
;If $sRememberMe Then
;$oRememberMe = _UIA_GetControlTypeElement($oParent, $UIA_CheckBoxControlTypeId, 'Запомнить меня')
;If Not IsObj($oRememberMe) Then Return SetError(3, 0, 0)
;_UIA_ElementMouseClick($oRememberMe)
;EndIf
$oLogInButton = _UIA_GetControlTypeElement($oParent, $UIA_ButtonControlTypeId, 'Войти')
If Not IsObj($oLogInButton) Then Return SetError(4, 0, 0)
BlockInput(1)
_UIA_ElementSetFocus($oLogin)
Send('{TAB}' & '{TAB}' & '{TAB}' & $sLogin & '{TAB}' & '{TAB}' & $sPassword)
BlockInput(0)
Return _UIA_ElementMouseClick($oLogInButton)
EndFunc ;==>_Authorize_Alfadirect
после успешной авторизации, необходимо перейти(в той же вкладке в https://e.mail.ru/settings/filters?action=edit&fwd=1&afterReload=1) в поле "Пересылать все письма на адрес" вставить нужный адрес, нажать сохранить - ввести текущий пароль sPassword и вновь нажать "подтвердить"
так же из другого примера
Код:
#include <IE.au3>
$aFile = FileReadToArray(@ScriptDir & '\email.txt') ; Читаем построчно файл в массив
$oIE = _IECreate('mail.ru')
For $sLine In $aFile ; Проходим по каждой строке
$aData = StringSplit($sLine, ':', 2) ; Разбиваем строку на логин и пароль
$oForm = _IEFormGetObjByName($oIE, "auth")
$oLogin = _IEFormElementGetObjByName($oForm, "login") ; Элемент для ввода почты
$oPassword = _IEFormElementGetObjByName($oForm, "password") ; Элемент для ввода пароля
_IEFormElementSetValue($oLogin, $aData[0]) ; Записываем почту
_IEFormElementSetValue($oPassword, $aData[1]) ; И пароль
$oLinks = _IETagNameGetCollection($oIE, "input")
For $oLink in $oLinks
$sLinkText = _IEPropertyGet($oLink, "outerhtml")
If StringInStr($sLinkText, '"Войти"') Then
_IEAction($oLink, "focus")
_IEAction($oLink, "click")
ExitLoop
EndIf
Next
MsgBox(4096, "", $aData[0] & @CRLF & $aData[1])
$oExitButton = _IEGetObjById($oIE, 'PH_logoutLink') ; Выходим из почты
$oExitButton.focus()
$oExitButton.click()
Sleep(100)
;_IELoadWait($oIE)
Next
Последнее редактирование модератором: