powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Автоматическое заполнение логина и пароля
23 сообщений из 23, страница 1 из 1
Автоматическое заполнение логина и пароля
    #34128787
Artmoda
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Использую программу - клиент, загружаемую на своем компьютере, которая просит авторизацию для подключения к сервису в интернете.

Подскажите, можно ли с помощью VBA автоматически заполнять появляющуюся форму для ввода логина и пароля?

То есть, что бы при появлении окошка с определенным названием срабатывал скрипт, заполняющий эти поля.
...
Рейтинг: 0 / 0
Автоматическое заполнение логина и пароля
    #34128809
Artmoda
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Если конкретней, то после загрузки приложения появляется окошко для ввода, но сразу перестает быть активным. Активным становится окно самой программы. То есть скрипт должен срабатывать после появления окошка и переводить его на "первый план", наверное.
Вообще, окошко выглядит как на картинке.

Если не трудно, выложите, пожалуйста, код.
...
Рейтинг: 0 / 0
Автоматическое заполнение логина и пароля
    #34128901
Фотография orunbek
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
А этот вариант?
Код: plaintext
1.
AppActivate "Идентификация пользователя"
SendKeys "Login"
и т.д.
...
Рейтинг: 0 / 0
Автоматическое заполнение логина и пароля
    #34129171
Artmoda
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
orunbek, может быть проинструктируешь обычного юзера непрограммиста... кто куды и что к чему?

То есть, создается модуль .bas, затем...

Вот как ни силился обычный пользователь найти тему на этом форуме про заполнение окошка в локальной среде виндов, так и не нашел. Все про заполнение на удаленном ресурсе типа сайта пишут.
...
Рейтинг: 0 / 0
Автоматическое заполнение логина и пароля
    #34129398
Фотография orunbek
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Например для такого случая
Код: plaintext
1.
2.
3.
4.
5.
6.
Sub Login
    AppActivate "Login", False
    SendKeys "Login", True
    SendKeys "{TAB}", True
    SendKeys "Password", True
    SendKeys "{ENTER}", True
End Sub
Ну думаю все понятно, AppActivate "Login", в данном случае Login - это caption окна, в котором надо автоматом ввести
...
Рейтинг: 0 / 0
Автоматическое заполнение логина и пароля
    #34129400
Фотография orunbek
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
Sub Login
    AppActivate "Login", False
    SendKeys "Admin", True
    SendKeys "{TAB}", True
    SendKeys "super", True
    SendKeys "{ENTER}", True
End Sub
для ясности ;)
...
Рейтинг: 0 / 0
Автоматическое заполнение логина и пароля
    #34129482
Artmoda
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Код ясен, спасибо, но как должен запускаться этот модуль?
...
Рейтинг: 0 / 0
Автоматическое заполнение логина и пароля
    #34129512
Artmoda
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
В смысле, что нужно сделать для автоматического срабатывания?
...
Рейтинг: 0 / 0
Автоматическое заполнение логина и пароля
    #34129631
Фотография orunbek
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
ArtmodaВ смысле, что нужно сделать для автоматического срабатывания?
в зависимости от того, где это нужно сделать, как эта прога для входа в систему запускается, и откуда (в смысле на чем) нужно сделать автологин (VBA?)
...
Рейтинг: 0 / 0
Автоматическое заполнение логина и пароля
    #34129772
Artmoda
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Обычный интерфейсный режим Win XP SP2.
Программа запускается из BAT-файла.
Я полагаю, нужен VBS, чтобы в том же батнике прописать запуск скрипта.
...
Рейтинг: 0 / 0
Автоматическое заполнение логина и пароля
    #34131933
Фотография orunbek
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
ArtmodaОбычный интерфейсный режим Win XP SP2.
Программа запускается из BAT-файла.
Я полагаю, нужен VBS, чтобы в том же батнике прописать запуск скрипта.
ну да, это можно проделать и через vbs тоже (а в начале говорили VBA):
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
Option Explicit
Dim objWShell
Set objWShell=CreateObject("WScript.Shell")
objWShell.AppActivate "Login",True
objWShell.SendKeys "User",True
objWShell.SendKeys "{TAB}",True
objWShell.SendKeys "Password",True
objWShell.SendKeys "{ENTER}",True
Set objWShell=Nothing
а в bat'нике:
Код: plaintext
1.
2.
login.exe
autologin.vbs
в начале скрипта VBS, хорошо было бы добавить паузу, а лучше через WMI, ждать до тех пор пока login.exe в списке процесов не появится, и затем через n-секунд (в зависимости от скорости запуска программы), заработает заполнение паролей
...
Рейтинг: 0 / 0
Автоматическое заполнение логина и пароля
    #34134407
Artmoda
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Чудненько. Работает - это то, что надо.

Только не передает в поля кириллицу. Наверное, нужно в коде скрипта обнести её какими-нибудь символами?
...
Рейтинг: 0 / 0
Автоматическое заполнение логина и пароля
    #34134421
Фотография Aklin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
orunbekНу думаю все понятно, AppActivate "Login", в данном случае Login - это caption окна, в котором надо автоматом ввести

вапрос по поводу: возможно ли активировать тем самым Paint (mspaint)
(имеется в виду открытие файла mspaint + имя файла и далее сообщение ему команды)
...
Рейтинг: 0 / 0
Автоматическое заполнение логина и пароля
    #34134695
Artmoda
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Спасибо, orunbek.

Проблема с кириллицей решена забавным способом:


Option Explicit
Dim objWShell
Set objWShell=CreateObject("WScript.Shell")
WScript.Sleep 10000
objWShell.AppActivate "Идентификация",True
objWShell.SendKeys "^+2" (Мои сочетания клавиш для перехода на русскую раскладку)
objWShell.SendKeys "Kjuby",True (Kjuby - слово "Логин" напечатанное на англ. раскладке)
objWShell.SendKeys "{TAB}",True
objWShell.SendKeys "^+1" (Мои сочетания клавиш для перехода на англ. раскладку)
objWShell.SendKeys "Password",True
objWShell.SendKeys "{ENTER}",True
Set objWShell=Nothing
...
Рейтинг: 0 / 0
Автоматическое заполнение логина и пароля
    #34135125
Фотография orunbek
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Aklin orunbekНу думаю все понятно, AppActivate "Login", в данном случае Login - это caption окна, в котором надо автоматом ввести

вапрос по поводу: возможно ли активировать тем самым Paint (mspaint)
(имеется в виду открытие файла mspaint + имя файла и далее сообщение ему команды)
конечно
Код: plaintext
1.
AppActivate "Paint"
AppActivate "Notepad"
как я уже говорил параметр этой подпрограммы caption активируемого окна, кроме того есть же хэлп
...
Рейтинг: 0 / 0
Автоматическое заполнение логина и пароля
    #34135126
Фотография orunbek
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
ArtmodaСпасибо, orunbek.

Проблема с кириллицей решена забавным способом:


Option Explicit
Dim objWShell
Set objWShell=CreateObject("WScript.Shell")
WScript.Sleep 10000
objWShell.AppActivate "Идентификация",True
objWShell.SendKeys "^+2" (Мои сочетания клавиш для перехода на русскую раскладку)
objWShell.SendKeys "Kjuby",True (Kjuby - слово "Логин" напечатанное на англ. раскладке)
objWShell.SendKeys "{TAB}",True
objWShell.SendKeys "^+1" (Мои сочетания клавиш для перехода на англ. раскладку)
objWShell.SendKeys "Password",True
objWShell.SendKeys "{ENTER}",True
Set objWShell=Nothing
пожалуйста ;)
...
Рейтинг: 0 / 0
Автоматическое заполнение логина и пароля
    #34135285
Фотография Aklin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
orunbek
Код: plaintext
1.
AppActivate "Paint"
AppActivate "Notepad"
как я уже говорил параметр этой подпрограммы caption активируемого окна, кроме того есть же хэлп

все равно не выходит, теперь активируется, а ключи не посылаются ни с Wait ни без него.
...
Рейтинг: 0 / 0
Автоматическое заполнение логина и пароля
    #34135584
Фотография orunbek
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Aklin orunbek
Код: plaintext
1.
AppActivate "Paint"
AppActivate "Notepad"
как я уже говорил параметр этой подпрограммы caption активируемого окна, кроме того есть же хэлп

все равно не выходит, теперь активируется, а ключи не посылаются ни с Wait ни без него.
вы лучше отдельным постом отправьте и поподробнее о своей проблеме
...
Рейтинг: 0 / 0
Автоматическое заполнение логина и пароля
    #34136881
Фотография Aklin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
orunbek Aklin orunbek
Код: plaintext
1.
AppActivate "Paint"
AppActivate "Notepad"
как я уже говорил параметр этой подпрограммы caption активируемого окна, кроме того есть же хэлп

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

было дело, не помогло, а сейчас не надо
...
Рейтинг: 0 / 0
Период между сообщениями больше года.
Автоматическое заполнение логина и пароля
    #36785412
v04odp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
orunbekну да, это можно проделать и через vbs тоже (а в начале говорили VBA):
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
Option Explicit
Dim objWShell
Set objWShell=CreateObject("WScript.Shell")
objWShell.AppActivate "Login",True
objWShell.SendKeys "User",True
objWShell.SendKeys "{TAB}",True
objWShell.SendKeys "Password",True
objWShell.SendKeys "{ENTER}",True
Set objWShell=Nothing
а в bat'нике:
Код: plaintext
1.
2.
login.exe
autologin.vbs
в начале скрипта VBS, хорошо было бы добавить паузу, а лучше через WMI, ждать до тех пор пока login.exe в списке процесов не появится, и затем через n-секунд (в зависимости от скорости запуска программы), заработает заполнение паролей

а можно ли логин и пароль передавать этому скрипту как параметры?
и ещё вопрос, как послать комбинацию клавиш {shift+tab}?
заранее спасибо!
...
Рейтинг: 0 / 0
Автоматическое заполнение логина и пароля
    #36785430
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
> Автор: v04odp
> а можно ли логин и пароль передавать этому скрипту как параметры?


читать здесь

> и ещё вопрос, как послать комбинацию клавиш {shift+tab}?

читать здесь

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
Автоматическое заполнение логина и пароля
    #36785435
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ссылки наоборот, нижняя ссылка к верхнему вопросу, а верхняя ссылка - к нижнему

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
Автоматическое заполнение логина и пароля
    #36785457
v04odp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Большое спасибо! :)
...
Рейтинг: 0 / 0
23 сообщений из 23, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Автоматическое заполнение логина и пароля
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]