Сорян если тема уже есть. Не могу найти соответствующий ответ.
Есть файл csv в котором есть список email адресов и через запятую пароль от ящика.
Задача в следующем:
Программа читает первую строчку в csv? берет email и пароль и вносит эти данные в mail.ru и заходит автоматически. Я делаю определенные манипуляции в почте, и выхожу. Как только выхожу с этого ящика, то прога сразу же заходит на следующий ящик.. и так до конца файла.
Есть код, но он чето не срабатывает... :
Есть файл csv в котором есть список email адресов и через запятую пароль от ящика.
Задача в следующем:
Программа читает первую строчку в csv? берет email и пароль и вносит эти данные в mail.ru и заходит автоматически. Я делаю определенные манипуляции в почте, и выхожу. Как только выхожу с этого ящика, то прога сразу же заходит на следующий ящик.. и так до конца файла.
Есть код, но он чето не срабатывает... :
Код:
#include <IE.au3>
Local $hFile, $sEMail
$hFile = FileOpen(@ScriptDir & '\email.txt')
While 1
$sEMail = FileReadLine($hFile)
If @error Then ExitLoop
$sLogin = '$sEMail'
$sUrl = 'http://mail.ru/'
WEnd
FileClose($hFile)
$oIE = _IECreate($sUrl)
$oForm = _IEFormGetObjByName($oIE, "auth")
$oLogin = _IEFormElementGetObjByName($oForm, "login")
$oPassword = _IEFormElementGetObjByName($oForm, "password")
_IEFormElementSetValue($oLogin, $sLogin)
_IEFormElementSetValue($oPassword, $sPass)
$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