Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Автоматическая авторизация на сайте в личном кабинете - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Автоматическая авторизация на сайте в личном кабинете (Макросы/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]
Код
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. Это не взлом! Просто у нас в организации идиотская политика рейтингов. Нужно показывать активность пользования личными кабинетами на нашем официальном сайте. Каждый день сидим с сотрудниками и заходим в личные кабинеты и выходим как бы это смешно не звучало. Вот хотелось бы автоматизировать данный процесс. А почему в эксель? Все потому что в файле эксель уже лежат логины и пароли к личным кабинетам, которые мы сами же и создавали.

Автор - TorvaldGot
Дата добавления - 24.01.2019 в 08:38
boa Дата: Четверг, 24.01.2019, 16:51 | Сообщение № 2
Группа: Проверенные
Ранг: Обитатель
Сообщений: 407
Репутация: 115 ±
Замечаний: 0% ±

2013, 365
TorvaldGot,
Наверное, как-то так,
если что - подправите под свои нужды




Сообщение отредактировал boa - Четверг, 24.01.2019, 16:52
 
Ответить
СообщениеTorvaldGot,
Наверное, как-то так,
если что - подправите под свои нужды

Автор - boa
Дата добавления - 24.01.2019 в 16:51
bmv98rus Дата: Четверг, 24.01.2019, 20:08 | Сообщение № 3
Группа: Проверенные
Ранг: Участник клуба
Сообщений: 2524
Репутация: 436 ±
Замечаний: 0% ±

Excel 2013/2016
На всякий случай кросс


Замечательный Временно просто медведь , процентов на 20.
 
Ответить
СообщениеНа всякий случай кросс

Автор - bmv98rus
Дата добавления - 24.01.2019 в 20:08
TorvaldGot Дата: Пятница, 25.01.2019, 11:31 | Сообщение № 4
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Огромное спасибо! Все работает так как надо!
 
Ответить
СообщениеОгромное спасибо! Все работает так как надо!

Автор - TorvaldGot
Дата добавления - 25.01.2019 в 11:31
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Автоматическая авторизация на сайте в личном кабинете (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2019 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!