Список проголосовавших за комментарий "Вот, родил код. :-)<br/> Создаем файлу расширение vbs и запускаем его из директории квика. Меняем имя, пароль, директорию на нужные. Будет квик запускаться, удалять info.log и вход в него будет автоматический.<br/> <br/> 'Для Windows с английской раскладкой по умолчанию.<br/> <br/> path = «C:\QUIK\info.exe» 'Путь и файл запуска<br/> <br/> 'Это удаляет файл info.log чтобы квик не тормозил<br/> Set fso = CreateObject(«Scripting.FileSystemObject»)<br/> FileInfoLog = fso.FileExists(«info.log»)<br/> If FileInfoLog Then <br/> Set f2 = fso.GetFile(«info.log»)<br/> f2.Delete<br/> End if<br/> <br/> login = «user» 'ввод логина<br/> 'Внимание!<br/> 'Если используются русские буквы, необходимо вводить<br/> 'их на английской раскладке. <br/> 'Например, для логина Петр вводить «Gtnh».<br/> 'Ввод цифр не зависит от раскладки.<br/> <br/> pass = «123456» 'ввод пароля<br/> 'Правила ввода те же, что и для логина.<br/> <br/> set WshShell = WScript.CreateObject(«WScript.Shell»)<br/> Set quik = WshShell.Exec(path)<br/> Do Until Dummy = true<br/> WScript.Sleep 1000<br/> Loop<br/> Call Logon<br/> Function Dummy<br/> Dummy = false<br/> If WshShell.AppActivate(«Идентификация пользователя») then<br/> Dummy = True<br/> Exit Function<br/> End If<br/> End Function<br/> Sub Logon<br/> WScript.Sleep 100<br/> <br/> 'Если логин на русском, то<br/> 'убираем комментарий в одной из следующих строк,<br/> 'тем самым переключив раскладку:<br/> 'WshShell.SendKeys "(^+)" 'если переключение раскладки Ctrl+Shift<br/> 'WshShell.SendKeys "(%+)" 'если переключение раскладки Alt+Shift<br/> 'WshShell.SendKeys "(^%)" 'если переключение раскладки Ctrl+Alt<br/> <br/> WScript.Sleep 100<br/> WshShell.SendKeys login<br/> WshShell.SendKeys "{TAB}"<br/> WScript.Sleep 100<br/> <br/> 'Если логин на русском, а пароль на английском, то<br/> 'убираем комментарий в одной из следующих строк,<br/> 'тем самым переключив раскладку обратно:<br/> 'WshShell.SendKeys "(^+)" 'если переключение раскладки Ctrl+Shift<br/> 'WshShell.SendKeys "(%+)" 'если переключение раскладки Alt+Shift<br/> 'WshShell.SendKeys "(^%)" 'если переключение раскладки Ctrl+Alt<br/> <br/> WScript.Sleep 100<br/> WshShell.SendKeys pass<br/> WshShell.SendKeys "{Enter}"<br/> End Sub<br/> <br/> <br/> <br/> <br/> "