Нужен простой скрипт с последовательностью нажатий

[megabyte]

Помогите написать скрипт, нажимающий на кнопки

Sleep(1000)
Send("^C")
Sleep(1000)
Send("^{PGUP}")
Sleep(1000)
Send("^F")
Sleep(1000)
Send("^V")
Sleep(1000)
Send("{ESCAPE}")
Sleep(1000)
Send("^{PGDN}")
Sleep(1000)
Send("{RIGHT}")
Sleep(1000)
Send("^C")
Sleep(1000)
Send("^{PGUP}")
Sleep(1000)
Send("^F")
Sleep(1000)
Send("^{TAB}")
Sleep(1000)
Send("^V")
Sleep(1000)
Send("{TAB 2}")
Sleep(1000)
Send("{ENTER 2}")
Sleep(1000)
Send("{ESC}")
Sleep(1000)
Send("^{PGUP}")
Sleep(1000)
Send("{DOWN}")
Sleep(1000)
Send("{LEFT}")
Sleep(1000)

Пропробывал сам, у меня не робит.. Готов немного заплатить..

Значит смысл такой,
1. скрипт ждет открытия Book1 в экселе 2010..
2. Выполняется последовательность клавиш, которая дана выше
3. Проверяется буфер на предмет наличия в нем текст STOPPP
4. Если есть, то программа завершается, нет - идем в пункт 2..

Только пишите стоимость помощи, чтобы потом не было сюрпризом! Оплата желательно Яндекс.Деньги


Добавлено:

Сообщение автоматически объединено: 14 Апр 2014

PS у меня не срабатывает CTRL почему-то

 

[madmasles]

Предупреждение

За нарушение правил форума (пункт В.11):

Любые отрывки AutoIt кода необходимо заключать в тег [autoit]

(подробнее), а обычный код соответственно в тег [code]

(подробнее). Также большие выдержки текста помещайте под тег [spoiler]

(подробнее), там где это поддерживается естественно. Как в случае с названием темы, также короткое и эргономичное сообщение привлекает больше внимания, и шансы на получение конкретного ответа увеличиваются.

С уважением, ваш Глобальный модератор.

 

[megabyte]

прошу прощения за нарушение правил, и все же может кто нибудь помочь?

 

[рррреееееее]

На AutoIt пока не умею, но зато владею макросами в Excel.
Готов

 

[erlik]

Замени английские буквы в скрипте на русские и в нижнем регистре - и все будет работать (на русской локализованной windows).
PS: в AHK с этим проще - можно сразу вирт.коды клавиш отправлять и не зависеть от раскладки.



Добавлено:

Сообщение автоматически объединено: 15 Апр 2014

Спойлер

If WinWaitActive('[TITLE:Microsoft Excel - Книга1; CLASS:XLMAIN; INSTANCE:1]') Then
    ;$hWndExcel = WinGetHandle('[TITLE:Microsoft Excel - Книга1; CLASS:XLMAIN; INSTANCE:1]')
	;_WinAPI_LoadKeyboardLayoutEx(0x0409, $hWndExcel) ; не помогает
	;MsgBox(0,'',$hWndExcel)
	Sends()
EndIf

Func Sends()
Sleep(1000)
Send("^{Insert}")
Sleep(1000)
Send("^{PGUP}")
Sleep(1000)
Send("^а")
Sleep(1000)
Send("^м")
Sleep(1000)
Send("{ESCAPE}")
Sleep(1000)
Send("^{PGDN}")
Sleep(1000)
Send("{RIGHT}")
Sleep(1000)
Send("^с")
Sleep(1000)
Send("^{PGUP}")
Sleep(1000)
Send("^а")
Sleep(1000)
Send("^{TAB}")
Sleep(1000)
Send("^м")
Sleep(1000)
Send("{TAB 2}")
Sleep(1000)
Send("{ENTER 2}")
Sleep(1000)
Send("{ESC}")
Sleep(1000)
Send("^{PGUP}")
Sleep(1000)
Send("{DOWN}")
Sleep(1000)
Send("{LEFT}")
Sleep(1000)

;ClipPut('STOPPP');  для теста - нужно закомментировать
    If ClipGet() = 'STOPPP' Then
       ;MsgBox(0,'','Закончили') ; для теста
	   Exit
    Else
       Sends()
    EndIf

EndFunc

 

[winstan]

:whistle:
для работы с книгами экселя (да простя меня модераторы не могу вспомнить как правильно пишется) есть библиотека функций