Что нового

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

megabyte

Новичок
Сообщения
3
Репутация
0
Помогите написать скрипт, нажимающий на кнопки

Код:
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..

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


Добавлено:
Сообщение автоматически объединено:

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

madmasles

Модератор
Глобальный модератор
Сообщения
7 790
Репутация
2 319
Предупреждение За нарушение правил форума (пункт В.11):
Любые отрывки AutoIt кода необходимо заключать в тег [autoit]
(подробнее), а обычный код соответственно в тег [code]
(подробнее). Также большие выдержки текста помещайте под тег [spoiler]
(подробнее), там где это поддерживается естественно. Как в случае с названием темы, также короткое и эргономичное сообщение привлекает больше внимания, и шансы на получение конкретного ответа увеличиваются.


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

megabyte

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

erlik

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



Добавлено:
Сообщение автоматически объединено:

Код:
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

Эксплотатор)
Сообщения
406
Репутация
78
:whistle:
для работы с книгами экселя (да простя меня модераторы не могу вспомнить как правильно пишется) есть библиотека функций
 
Верх