Форум программистов, компьютерный форум, киберфорум
VBA
Форум программистов и сисадминов Киберфорум > Форум программистов > Basic > VBA
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 5.00/6: Рейтинг темы: голосов - 6, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 25.09.2015
Сообщений: 51

Авторизироваться на сайте методом VBA

22.01.2019, 16:04. Показов 1340. Ответов 6
Метки нет (Все метки)
Студворк — интернет-сервис помощи студентам
Добрый день уважаемые гуру! Необходима Ваша помощь по такой проблеме. Есть файл ecxel в нем находятся данные (логины и пароли) от личных кабинетов с сайта. По нажатию на кнопку начинается процесс входа и выхода из личного кабинета.
На просторах бескрайнего интернета нашел такой вот код :

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41

Private Sub Начать_Click()
Dim objShellApp As Object
Set objShellApp = CreateObject("Shell.Application")
objShellApp.ShellExecute "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe", "https://my.site.ru/", "", "", 3 
 Application.Wait Time:=Now + TimeValue("0:00:20")
SendKeys "{TAB}"
Application.Wait Time:=Now + TimeValue("0:00:02")
SendKeys "111"
Application.Wait Time:=Now + TimeValue("0:00:02")
SendKeys "{TAB}"
Application.Wait Time:=Now + TimeValue("0:00:02")
SendKeys "аааа"
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")
SendKeys "^W"                              
End Sub
Помогите сделать его циклом, чтобы после того как программа выходит из личного кабинета, она берет следующий логин и пароль и снова заходит выходит и так далее. Огромное спасибо за оказанную помощь заранее!!!
0
Лучшие ответы (1)
Сообщение: #13262821
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
 22.01.2019, 16:04
Ответы с готовыми решениями:

Программно авторизироваться на сайте
Добрый день. Столкнулся с проблемой авторизацией (HTTPS+captcha) есть страничка Авторизация в ПД никак не могу программно...

Как авторизироваться на сайте zaycev.net
Доброго времени суток, подскажите как авторизироваться на сайте zaycev.net использую такой код ...

Как авторизироваться на сайте используя питон 3
Доброго времени суток. Интересно написать парсер, который бы собирал заголовки писем пришедших на мою почту в майле. Вопрос в том, можно...

6
0 / 0 / 0
Регистрация: 25.09.2015
Сообщений: 51
22.01.2019, 16:07  [ТС]
Файл с логинами примерный
Вложения
Тип файла: xlsx Логины.xlsx (8.1 Кб, 4 просмотров)
0
 Аватар для Narimanych
2751 / 1725 / 779
Регистрация: 23.03.2015
Сообщений: 5,449
22.01.2019, 16:43
Лучший ответ Сообщение было отмечено TorvaldGot как решение

Решение

TorvaldGot,

Может так?
Кликните здесь для просмотра всего текста

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46

Private Sub Начать_Click()()
LR = Cells(Rows.Count, 1).End(xlUp).Row
 
Dim objShellApp As Object
Set objShellApp = CreateObject("Shell.Application")
objShellApp.ShellExecute "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe", "https://my.site.ru/", "", "", 3
 Application.Wait Time:=Now + TimeValue("0:00:20")
SendKeys "{TAB}"
 
For i = 2 To LR
Application.Wait Time:=Now + TimeValue("0:00:02")
SendKeys Cells(LR, 1).Value
Application.Wait Time:=Now + TimeValue("0:00:02")
SendKeys "{TAB}"
Application.Wait Time:=Now + TimeValue("0:00:02")
SendKeys Cells(LR, 2).Value
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")
SendKeys "^W"
Next
End Sub
1
0 / 0 / 0
Регистрация: 25.09.2015
Сообщений: 51
23.01.2019, 13:32  [ТС]
Практически все работает. Только вот последнее на сайте есть поле с вводом логина, и поле с вводом пароля соответственно. В поле логин он вставляет информацию из ячейки A1 в книге , в поле пароль почему то не хочет брать информацию из ячейки B1. Помогите пожалуйста!
0
 Аватар для Narimanych
2751 / 1725 / 779
Регистрация: 23.03.2015
Сообщений: 5,449
23.01.2019, 14:41
TorvaldGot,

Посмотрите сколько раз нужно нажать TAB , после ввода логина, чтобы попасть в поле ввода пароля.
Количество нажатий должно соответствовать количеству строк
Application.Wait Time:=Now + TimeValue("0:00:02")
SendKeys "{TAB}"


По вашему коду выходит 1 раз.
1
0 / 0 / 0
Регистрация: 25.09.2015
Сообщений: 51
23.01.2019, 15:32  [ТС]
Спасибо! То что доктор прописал!
0
 Аватар для Narimanych
2751 / 1725 / 779
Регистрация: 23.03.2015
Сообщений: 5,449
23.01.2019, 15:34
TorvaldGot,

Пожалуйста...
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
 23.01.2019, 15:34
Помогаю со студенческими работами здесь

Как авторизироваться на сайте POST запросом и вытащить из сайта данные
Как авторизироваться на сайте POST запросом и вытащить из сайта данные?

Заполнение на сайте html <select> данными из VBA <combobox>
Здравствуйте! На форме есть Combobox со значением &quot;Свердловская область&quot; Задача это значение передать в ИЕ тегу: &lt;select...

Пример с методом LIFO в VBA
помогиTE с кодом Если не затруднит

Уравнение методом Ньютона в VBA
Найти корни уравнения с точностью =0,001 a=0, b=5 Количество интервалов 10 3*{x}^{4}+2*{x}^{2}-1.5=0

Не могу авторизироваться
создал статическую страницу авторизации на сайте, движек DLE 9.5, вот код: &lt;div class=&quot;auth&quot;&gt; &lt;form...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Новые блоги и статьи
Как я обхитрил таблицу Word
Alexander-7 21.03.2026
Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .
Krabik - рыболовный бот для WoW 3.3.5a
AmbA 21.03.2026
без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .
Программный отбор значений справочника
Maks 21.03.2026
Установка программного отбора значений справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит предопределенное значение перечислений. Процедура. . .
Переходник USB-CAN-GPIO
Eddy_Em 20.03.2026
Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .
Оттенки серого
Argus19 18.03.2026
Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .
SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++
8Observer8 17.03.2026
Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip
 Символические и жёсткие ссылки в Linux.
algri14 15.03.2026
Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .
[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора
ФедосеевПавел 14.03.2026
Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Условия использования - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru