Автоматическая авторизация на сайте в личном кабинете

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Автоматическая авторизация на сайте в личном кабинете (Макросы/Sub)

TorvaldGot

Дата: Четверг, 24.01.2019, 08:38 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 4

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Добрый день! Помогите пожалуйста нубу в таком вопросе:
"Есть файл эксель в нем в одном столбце А расположено множество логинов, во втором столбце В расположено множество паролей(пароли и логины между собой соответственно совпадают). Необходимо путем VBA средств выйти на сайт в личный кабинет и залогинистя под учетной записью, которая находится в 1 строке (А1 - логин, В1 - пароль), потом выйти из личного кабинета и так далее, зайти на этом же сайте под логином и паролем из второй строки, и т.д. В интернете нашел вот такой вот способ решения задачи. Возможно данный код может как нибудь возможно реализовать методом цикла. Помогите его доработать пожалуйста! Заранее всем откликнувшимся огромная благодарность!
[vba]

Код

Private Sub Начать_Click()


Dim objShellApp As Object

Set objShellApp = CreateObject("Shell.Application")
objShellApp.ShellExecute "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe", "https://mysyte.ru/desktop/", "", "", 3

Application.Wait Time:=Now + TimeValue("0:00:20")
SendKeys "{TAB}"
Application.Wait Time:=Now + TimeValue("0:00:02")
SendKeys "11111"
Application.Wait Time:=Now + TimeValue("0:00:02")
SendKeys "{TAB}"
Application.Wait Time:=Now + TimeValue("0:00:02")
SendKeys "aaaaa"
Application.Wait Time:=Now + TimeValue("0:00:02")
SendKeys "{TAB}"
Application.Wait Time:=Now + TimeValue("0:00:02")
SendKeys "{ENTER}"
Application.Wait Time:=Now + TimeValue("0:00:20")
SendKeys "{TAB}"
Application.Wait Time:=Now + TimeValue("0:00:02")
SendKeys "{ENTER}"
Application.Wait Time:=Now + TimeValue("0:00:02")
SendKeys "{TAB}"
Application.Wait Time:=Now + TimeValue("0:00:02")
SendKeys "{TAB}"
Application.Wait Time:=Now + TimeValue("0:00:02")
SendKeys "{TAB}"
Application.Wait Time:=Now + TimeValue("0:00:02")
SendKeys "{TAB}"
Application.Wait Time:=Now + TimeValue("0:00:02")
SendKeys "{TAB}"
Application.Wait Time:=Now + TimeValue("0:00:02")
SendKeys "{TAB}"
Application.Wait Time:=Now + TimeValue("0:00:02")
SendKeys "{TAB}"
Application.Wait Time:=Now + TimeValue("0:00:02")
SendKeys "{TAB}"
Application.Wait Time:=Now + TimeValue("0:00:02")
SendKeys "{ENTER}"
Application.Wait Time:=Now + TimeValue("0:00:02")
MsgBox "Операция выполнена!"


End Sub

[/vba]

PS. Это не взлом! Просто у нас в организации идиотская политика рейтингов. Нужно показывать активность пользования личными кабинетами на нашем официальном сайте. Каждый день сидим с сотрудниками и заходим в личные кабинеты и выходим как бы это смешно не звучало. Вот хотелось бы автоматизировать данный процесс. А почему в эксель? Все потому что в файле эксель уже лежат логины и пароли к личным кабинетам, которые мы сами же и создавали.

Код

Ответить

СообщениеДобрый день! Помогите пожалуйста нубу в таком вопросе:
"Есть файл эксель в нем в одном столбце А расположено множество логинов, во втором столбце В расположено множество паролей(пароли и логины между собой соответственно совпадают). Необходимо путем VBA средств выйти на сайт в личный кабинет и залогинистя под учетной записью, которая находится в 1 строке (А1 - логин, В1 - пароль), потом выйти из личного кабинета и так далее, зайти на этом же сайте под логином и паролем из второй строки, и т.д. В интернете нашел вот такой вот способ решения задачи. Возможно данный код может как нибудь возможно реализовать методом цикла. Помогите его доработать пожалуйста! Заранее всем откликнувшимся огромная благодарность!
[vba]

Код