1 Тема от Fck_This

  • Ввод логина и пароля (на примере почтового ящика)
  • Fck_This
  • генерал-полковник
  • Неактивен
  • Откуда: Минск, Беларусь
  • Зарегистрирован: 13.07.2016
  • Сообщений: 648
  • Поблагодарили: 97

Тема: Ввод логина и пароля (на примере почтового ящика)

Всем доброго времени суток. Очень лень было запоминать пароль и вписывать логин+пароль на входе в почтовый ящик, поэтому решено было сделать автовход. Столкнулся с такой проблемой: при направлении строки браузеру, не осуществлялся вход. Как оказалось функция

Спасибо можно перевести на WebMoney-кошелёк R378231864568 или на Яндекс-деньги 410015093172871

2 Ответ от Fck_This

  • Ввод логина и пароля (на примере почтового ящика)
  • Fck_This
  • генерал-полковник
  • Неактивен
  • Откуда: Минск, Беларусь
  • Зарегистрирован: 13.07.2016
  • Сообщений: 648
  • Поблагодарили: 97

Re: Ввод логина и пароля (на примере почтового ящика)

Как оказалось функция "SendKeys" отправляет все строчные символы. Обнаружил данный нюанс случайно (добавив "+пароль" к строке логина и получив "Пароль"). Поэтому, если регистр важен - проставляем перед каждым символом верхнего регистра символ "+"
т.е. если нужно получить "ПаРоЛь"
вводим "+па+ро+ль".

Sub RunEmail()
'Указываем путь к своему браузеру
'Настроить открытие окна можно на своё усмотрение. Сейчас открывается новое полноценное окно
Shell PathName:="C:\Programsl\Mozilla Firefox\firefox.exe", WindowStyle:=vbMaximizedFocus
'Время ожидания индвивидуально для отдельного компьютера
        Application.Wait Time:=Now + TimeValue("0:00:04")
'На примере рамблера (вводим свой почтовый клиент) - проверял на корпоративной почте
        SendKeys String:=LCase("https://mail.rambler.ru/?utm_content=mail&utm_medium=topline&utm_source=head&utm_campaign=self_promo"), Wait:=True
        SendKeys String:="{ENTER}", Wait:=True
        Application.Wait Time:=Now + TimeValue("0:00:03")
'Если необходимо - придётся послать несколько строк "SendKeys String:="{TAB}", Wait:=True", чтобы попасть в нужное поле для ввода, хотя обычно не требуется
'Вводим логин
        SendKeys String:=LCase("Наш логин"), Wait:=True
        Application.Wait Time:=Now + TimeValue("0:00:01")
        SendKeys String:="{TAB}", Wait:=True
'Вводим пароль (пароль - "НашПароль"
        SendKeys String:=LCase("+Наш+Пароль"), Wait:=True
        Application.Wait Time:=Now + TimeValue("0:00:01")
        SendKeys String:="{ENTER}", Wait:=True
        Application.Wait Time:=Now + TimeValue("0:00:03")
End Sub

Разумеется ввода капчи нам не избежать (если таковая проверка имеется). В этом случае лучше удалить строку " SendKeys String:="{ENTER}", Wait:=True", ввести капчу и вручную нажать "Войти".
Может кому пригодится.

Спасибо можно перевести на WebMoney-кошелёк R378231864568 или на Яндекс-деньги 410015093172871

3 Ответ от yshindin

  • yshindin
  • генерал-полковник
  • Неактивен
  • Откуда: Москва
  • Зарегистрирован: 12.05.2012
  • Сообщений: 447
  • Поблагодарили: 171

Re: Ввод логина и пароля (на примере почтового ящика)

Fck_This пишет:

. . .
Очень лень было запоминать пароль и вписывать логин+пароль на входе в почтовый ящик, поэтому решено было сделать автовход.
. . .

Попробуйте любой менеджер паролей: Roboform, LastPass и т.д. Roboform до 10 аккаунтов бесплатен.

Сайтyshindin

4 Ответ от Fck_This

  • Ввод логина и пароля (на примере почтового ящика)
  • Fck_This
  • генерал-полковник
  • Неактивен
  • Откуда: Минск, Беларусь
  • Зарегистрирован: 13.07.2016
  • Сообщений: 648
  • Поблагодарили: 97

Re: Ввод логина и пароля (на примере почтового ящика)

yshindin пишет:
Fck_This пишет:

. . .
Очень лень было запоминать пароль и вписывать логин+пароль на входе в почтовый ящик, поэтому решено было сделать автовход.
. . .

Попробуйте любой менеджер паролей: Roboform, LastPass и т.д. Roboform до 10 аккаунтов бесплатен.

Спасибо, конечно, но таким образом я мог просто автозаполнение в браузере поставил.

Спасибо можно перевести на WebMoney-кошелёк R378231864568 или на Яндекс-деньги 410015093172871