Список проголосовавших за комментарий "Андрей, Автологин.<br/> <br/> 'этот скрипт (имя.vbs) должен лежать в каталоге Квика!!!<br/> ' автор кода DIM-TRADER, td4_robot.livejournal.com<br/> <br/> path=«C:\*****\*****\*****\info.exe» 'тут путь запуска Квика<br/> <br/> login ="*****"<br/> 'тут самое интересное, потом мы будем передавать этот логин и пароль,<br/> 'как коды клавиатуры(!!!) в окошко ввода пароля квика, поэтому<br/> 'поэтому вводим их а англ раскладке,<br/> 'т.е. Иван Иванович ->>> Bdfy Bdfyjdbx<br/> <br/> pass = "******"<br/> 'с паролем все тоже самое, если он русскими буквами (бывают такие<br/> 'умельцы, мля) Ngs gsh = тыр пыр<br/> <br/> set WshShell = WScript.CreateObject(«WScript.Shell»)<br/> Set quik = WshShell.Exec(path)<br/> Do Until Dummy = true<br/> WScript.Sleep 1000<br/> ' просто останов, т.к. в VBScript нету DoEvents<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/> <br/> 'и вот тут самое ГЛАВНОЕ, переключаем клаву в нужную раскладку,<br/> ' просто иммитируя нажание клавиш в моем случае CTRL-SHIFT<br/> '<br/> ' CTRL-SHIFT = "(^+)"<br/> ' ALT-SHIFT = "(%+)"<br/> '<br/> WshShell.SendKeys "(%+)"<br/> <br/> WScript.Sleep 800<br/> WshShell.SendKeys login<br/> WshShell.SendKeys "{TAB}"<br/> WScript.Sleep 800<br/> <br/> 'тут не забываем переключаться еще раз, если, к примеру пароль по АНГЛ<br/> WshShell.SendKeys "(%+)"<br/> <br/> WshShell.SendKeys pass<br/> WScript.Sleep 800<br/> WshShell.SendKeys "{Enter}"<br/> End Sub"