[Tonny_Bennet]

дайте ссылку на эту программу и напишите подробно, что нужно делать (какие кнопки нажимать, какие данные вводить, и т.д). »

http://www.skd-gate.ru/index.php?nomer=93

Это программа, которая обслуживает контроллер магнитных ключей. У сотрудников компании есть магнитные карты и при прохождении проходной данные попадают в контроллер. Он запоминает порядка 4000 событий и через каждые пару дней приходится из контроллера скачивать инфу на компьютер.

Теперь о кнопках которые нужно нажимать:
Сначала нужно ввести имя пользователя и пароль..... в этом месте как раз и затык. И та прога, которой я изначально пытался пользоваться и vbs не помогают. Возможно там какая-то защита стоит от эмуляции нажатия клавиш.

Этот кусок кода у меня не работает.... точнее ничего не печатает

Код:

Set WshShell = CreateObject("WScript.Shell") 
RetCode = WshShell.Run("notepad", 1) 
WshShell.SendKeys "A"

[Tonny_Bennet]

Вобщем разобрался. Косяк был в паузах - программа не всегда отрабатывала. Написал скриптик. Попробую как он будет запускаться по расписанию.

Код:

Set WshShell = CreateObject("WScript.Shell")
RetCode = WshShell.Run("GateLocal.exe", 1)
WScript.Sleep 3000
WshShell.SendKeys "+(^)"
WshShell.SendKeys "Yfcnz"
WshShell.SendKeys "{ENTER}"
WScript.Sleep 1000
WshShell.SendKeys "{ENTER}"
WScript.Sleep 1000
'
'Изменяем на "Постоянно открыто"
WshShell.SendKeys "{DOWN}"
WScript.Sleep 1000
WshShell.SendKeys "{TAB}"
WshShell.SendKeys "{TAB}"
WshShell.SendKeys "{TAB}"
WScript.Sleep 1000
WshShell.SendKeys "{ENTER}"
WshShell.SendKeys "{ENTER}"
WshShell.SendKeys "{ENTER}"
WshShell.SendKeys "{ENTER}"
'
'Качаем события
WScript.Sleep 1000
WshShell.SendKeys "{TAB}"
WScript.Sleep 1000
WshShell.SendKeys "{ENTER}"
WScript.Sleep 1000
WshShell.SendKeys "{ }"
WScript.Sleep 1000
WshShell.SendKeys "{TAB}"
WshShell.SendKeys "{ENTER}"
WshShell.SendKeys "{ENTER}"
WScript.Sleep 4000
WshShell.SendKeys "{ENTER}"
WshShell.SendKeys "{ESC}"
WshShell.SendKeys "{TAB}"
WshShell.SendKeys "{TAB}"
WshShell.SendKeys "{TAB}"
WshShell.SendKeys "{TAB}"
WshShell.SendKeys "{ENTER}"
'
'Изменяем на "Постоянно закрыто"
WshShell.SendKeys "{DOWN}"
WScript.Sleep 1000
WshShell.SendKeys "{TAB}"
WScript.Sleep 1000
WshShell.SendKeys "{ENTER}"
WshShell.SendKeys "{ENTER}"
WshShell.SendKeys "{ENTER}"
WshShell.SendKeys "{ENTER}"
'
'Выходим
WshShell.SendKeys "{TAB}"
WshShell.SendKeys "{TAB}"
WshShell.SendKeys "{TAB}"
WshShell.SendKeys "{TAB}"
WshShell.SendKeys "{ENTER}"
WshShell.SendKeys "{ENTER}"

[madmasles]

Tonny_Bennet,
Скачал ее по Вашей ссылке, установил, но запускаться она не хочет, требует Hasp ключ (или что-то типа того).
Попробуем помочь Вам по другому.
1. Вам надо скачать и установить AutoIt v3.3.6.1.
2. Как уже писал kaster:

есть такая замечательная штука - AutoIt Window Info, которая идет в комплекте с AutoIt. с помощью нее можешь узнать всю необходимую информацию о нужных тебе элементах управления нужного тебе окна. »

3. Найдите файл, который запускает Ваше окно. Откройте окно. С помощью AutoIt Window Info посмотрите на вкладке Summary, как называются поля, куда Вам над ввести логин и пароль и кнопки, на которые надо будет нажимать.
4. Дальше примерно так:

Код:

$sTitle = 'Заголовок Вашего окна'
$sLogin = 'Ваш логин.'
$sPass = 'Ваш пароль'
$sFile = @ProgramFilesDir & '\GATELocal\Local.exe' ;полный путь к файлу, который открывает окно
;у Вас он может быть другой, я написал для примера.
;@ProgramFilesDir - макрос, путь к папке Program Files
Run($sFile) ;запускаем файл, который должен открыть окно
$hWindow = WinWait($sTitle, '', 5) ;ждем появления окна с заголовком $sTitle и любым текстом 5 секунд
If Not $hWindow Then ;если не дождались окна ($hWindow = 0)
    MsgBox(16, 'Ошибка', 'Нет такого окна')
    Exit ;заканчиваем работу.
EndIf
;если окно дождались, то $hWindow это идентификатор (Handle) этого окна.
ControlSetText($hWindow, '', 'Edit1', $sLogin)
;вставляем логин в поле Edit1. У Вас оно может быть другое.
;Его надо узнать с помощью AutoIt Window Info.
ControlSetText($hWindow, '', 'Edit2', $sPass)
;вставляем пароль в поле Edit2. См. комментарий выше
ControlClick($hWindow, '', 'Button1')
;кликаем по кнопке Button1.См. комментарий выше

5. Если Вы правильно определили поля ввода и кнопки и у окна нет какой-либо защиты, то все должно работать. Если кликать надо еще по другим кнопкам, то образец, как это сделать, у Вас есть.
Удачи.
ИМХО, с помощью AutoIt это все сделать можно проще и надежнее.

Если Вы все же решите делать это с помощью VBS, то Вам лучше задавать вопросы в соответствующей ветке форума Скриптовые языки администрирования Windows.

[Tonny_Bennet]

Я понял спасибо за помощь, будем ковыряться

[Tonny_Bennet]

По расписанию скрипт не запускается. Точнее приложение запускается но не отрабатывает. Т.е. я так думаю, что для эмуляции нажатия клавиш нужно быть влогиненным в с системе. Скажите пожалуйста с AutoIt дела обстоят также?

[jiorik]

здраствуйте я тож решил написать "установщик" но пробую в первый раз и конечно появляются проблемы)) ну вот я прочитал вашу беседу и попробовал по премеру Tonny_Bennet)) ну я сохранил скрипт в vbs. и при открытии мне выдают:
Требуется обиект:"WshShell"(( что это за обиект ведь я указал обьект? помогите please!!)вот скрипт:



Set WhShell = CreateObject("WScript.Shell")
RetCode = WshShell.Run("ranger.exe")
WshShell.SendKeys "{ENTER}"
WshShell.SendKeys "{DOWN}"
WshShell.SendKeys "{ENTER}"

[madmasles]

jiorik,
Это раздел, посвященный AutoIt.

Вам лучше задавать вопросы в соответствующей ветке форума Скриптовые языки администрирования Windows

[jiorik]

ну здесь тож рашают пробдемы со скриптами)) у меня ведь такой маленкий вопросик))там пока ищу подходящюю тему))ну спс и за отзыв!

[MKN]

А какое отношение это имеет к теме AutoIt? »

Логичнее было бы заявленный вопрос об Автоматизация нажатия клавиш поместить в общую тему Программирование и автоматизация действий, а не конкретно в AutoIt. Для AutoIt, автонажатие клавиш, всего лишь частность из всех её обширных возможностей. Да и Скриптовые языки администрирования Windows тоже касаются этого постольку-поскольку...

Автоматизация нажатия клавиш - это совершенно отдельная тема (и оч. многих интересующая), хотя инструменты реализации могут быть очень разнообразными. И неплохо бы было собрать их все в одном месте , а не распыляться по куче разных тем... ИМХО

ps Собственно и сама эта тема "Автоматизация нажатия клавиш" , изначально была заявлена в другом месте, а сюда перенесена.
И похоже, что опять ошибочно...