Скрипт vbs авторизации на сайте гугл?

@Dima10000 · Регистрация: 22.10.2017

Студворк — интернет-сервис помощи студентам

Здравствуйте.

Подскажите как заполнить поля логин пароль и клик в мазиле?Ниже код при свёрнутом браузере не работает.На мэйл,ру пробывал, так-то всё подставляет, но {ENTER} не срабатывает.
Вообще нужен скрипт с вставкой логина в формы типа document.getelementbyID("mailbox__login" ).Value = "***".
Гуглил,таких скриптов даже примеров не нашёл.

JavaScript
1
2
3
4
5
6
7
8
9
10
11
12
Dim objShell
Set objShell = CreateObject("Shell.Application")
iURL = "https://mail.ru/"
Call objShell.ShellExecute("C:\Program Files (x86)\Mozilla Firefox\firefox.exe", iURL, "", "", 1)
 WScript.Sleep 5000 
set a = CreateObject("WScript.Shell")
a.SendKeys "{TAB 3}"
a.SendKeys "{DEL}"
a.SendKeys "{логин}"
a.SendKeys "{TAB 2}"
a.SendKeys "{пароль}"
a.SendKeys "{ENTER}"

@fever brain · 22.10.2017, 19:35

Ты не правильно используешь SendKeys

Сначало нужно указать фокус, тоесть в поле куда ты логинишся
затем пишеш чтото вроде
a.SendKeys "логин", true
затем
a.SendKeys "{ENTER}", true
затем снова находишь поле ставишь туда фокус
и снова
a.SendKeys "Пароль", true
a.SendKeys "{ENTER}", true

Кавычки {} используют для обозначения служебных клавиш ! иначе так и отправится {Пароль}
Не стоит забывать о расскладке
если расскладка английская в этот момент вместо Пароль отравиться Gfhjkm
Расскладку также можно изменить программно

@Dima10000 · 23.10.2017, 10:42 **[ТС]**

Спасибо за ответ, но функция a.SendKeys не подойдёт.

Нужно через поиск формы

JavaScript
1
2
3
4
5
6
'нахожу и заполняю  форму
Set objForm = objIE.Document.forms("mailbox__body")
objForm.elements("mailbox:login").value = "Login"
objForm.elements("mailbox:password").value = "Password"
'отправл¤ю  форму
objIE.document.script.send_auth().click

Добавлено через 10 часов 39 минут
Нашёл bat файл авторизации.Для которого он написан работает:

JavaScript
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
@set @script=0 /*
@echo off
set @script=
@cscript /nologo /e:jscript "%~dpnx0"
@exit /b
*/
 
var url,login,password;
url      = "http://student.mitso.by";
// заменить на свои учетные данные
login    = "login";
password = "password";
 
var IE = WScript.CreateObject("InternetExplorer.Application");
IE.visible = 1;
IE.navigate(url); 
 
while (IE.Busy) {
  WScript.Sleep(200);
}
 
IE.document.getElementsByName("login")(0).value = login;
IE.document.getElementsByName("password")(0).value = password;
button = IE.document.getElementsByClassName('orangebutton')(0);
button.focus();
button.click();

Попробывал на mail.ru не идёт.Нижние три строчки изменил с инспектора

JavaScript
1
2
3
mailbox = IE.document.getElementsByClassName('o-control')(0);
mailbox.focus();
mailbox.click();

На что заменить mailbox , чтобы вход в кабинет сработал???

Добавлено через 3 часа 54 минуты

Вот доделал скрипт vbs авторизации на сайте:

JavaScript
1
2
3
4
5
6
7
8
9
10
11
12
13
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Visible = true
objIE.Navigate "https://www.sait/login"
 
While objIE.Busy
    WScript.Sleep 15000
Wend
 
'нахожу и заполняю  форму из инспектора страницы
Set objForm = objIE.Document.forms("formLogin")
objForm.elements("usernames").value = "логин"
objForm.elements("passwords").value = "пароль"
objForm.Submit

Но это для простых сайтов работает .Теперь нужно для гугл почты вход сделать.

Новые блоги и статьи Все статьи Все блоги /
PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Access VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .

@fever brain oh my god 1456 / 796 / 161 Регистрация: 05.01.2016 Сообщений: 2,307 Записей в блоге: 8
	22.10.2017, 19:35
	Ты не правильно используешь SendKeys Сначало нужно указать фокус, тоесть в поле куда ты логинишся затем пишеш чтото вроде a.SendKeys "логин", true затем a.SendKeys "{ENTER}", true затем снова находишь поле ставишь туда фокус и снова a.SendKeys "Пароль", true a.SendKeys "{ENTER}", true Кавычки {} используют для обозначения служебных клавиш ! иначе так и отправится {Пароль} Не стоит забывать о расскладке если расскладка английская в этот момент вместо Пароль отравиться Gfhjkm Расскладку также можно изменить программно 0