|  18.11.2008, 15:58 | #1 | ||||||||||||
| Новичок |  AutoHotkey*    
 Домашняя страница: http://www.autohotkey.com/ Скрипт для примера: Код: ScrollLock::Run Notepad
+ScrollLock::Run PBrush
!ScrollLock::Run Calc
+Capslock::Capslock
Capslock::
Send {LAlt down}
KeyWait Capslock
Send {Shift}
Send {LAlt up}
returnCapslock - смена языка (должно быть Alt+Shift) Ctrl+CapsLock - сам CapsLock ScrollLock - Notepad Shift + ScrollLock - PBrush Alt + ScrollLock - Calc можно скомпилировать CapsLock.zip 
				__________________ я люблю кошек. по-французски.. (с) Последний раз редактировалось Slava; 06.05.2009 в 21:05. Причина: Оформление и фтп | ||||||||||||
|   |     | ||||||||||||
|  24.11.2008, 19:48 | #5 | 
| Местный |   
			
			NNN, ну вот, например, программа по работе - никак не автоматизируется, а запускать приходится каждый день.  Примерно такой скрипт сбацать пришлось.  Код: ; в TimeString сохраняем вчерашнюю дату в формате jul_06
; ее используем в конце как имя файла отчета
Y_Date := A_Now
Y_Date += -1, d  ; must be: += -1
FormatTime, TimeString, %Y_Date% L0x0809 ,  MMM_dd
StringLower, TimeString,  TimeString
; запускаем BLAHBLAH
Run "C:\Program Files\BLAHBLAH.exe"
; логинимся
WinWait, Регистрация blah0
IfWinNotActive, Регистрация blah0, WinActivate, Регистрация blah0,
WinWaitActive, Регистрация blah0,
Send, admin{ENTER}
WinWait, Система BLAHBLAH, 
IfWinNotActive, Система BLAHBLAH, , WinActivate, Система BLAHBLAH, 
WinWaitActive, Система BLAHBLAH, 
; разворачиваем окно на весь экран
WinMaximize, Система BLAHBLAH,
Sleep, 1000
; выбираем на панели слева BLAH1
MouseClick, left,  34,  348
Sleep, 35000
; выбираем на панели слева BLAH2
MouseClick, left,  34,  237
Sleep, 100
; выбираем кой-чё
MouseClick, left,  185,  137
Sleep, 100
; за вчера
MouseClick, left,  183,  156
Sleep, 100
; применить изменения
MouseClick, left,  447,  131
Sleep, 100
; ждем окна подтверждения
WinWait, Информация, 
IfWinNotActive, Информация, , WinActivate, Информация, 
WinWaitActive, Информация, 
; подтверждение
Send, {ENTER}
; !!!! немного ждем - иначе не работает
Sleep, 3000
; ждем завершения генерации отчета
WinWaitActive, Система BLAHBLAH, 
; нажимаем кнопку Экспорта в excel
MouseClick, left,  356,  132
; ждем диалог сохранения
WinWaitActive, Сохранить как
; вводим вчерашнюю дату в качестве имени файла отчета
Send, %TimeString%{ENTER}
; немного ждем
Sleep, 7000
; и закрываем BLAHBLAH
WinClose, Система BLAHBLAH
; if FileExist("C:\_logs\%TimeString%.xls")
; запускаем excel
Run "C:\Program Files\Microsoft Office\OFFICE11\excel.exe"  "C:\_logs\%TimeString%.xls"
WinWait, Microsoft Excel - %TimeString%.xls, 
IfWinNotActive, Microsoft Excel - %TimeString%.xls, , WinActivate, Microsoft Excel - %TimeString%.xls, 
WinWaitActive, Microsoft Excel - %TimeString%.xls, 
; разворачиваем на весь экран
WinMaximize, Microsoft Excel - %TimeString%.xls,
Sleep, 1000
; запускаем макрос
MouseClick, left,  642,  87
; немного ждем
Sleep, 10000
; закрываем excel
WinClose, Microsoft Excel - %TimeString%.xls,
Sleep, 1000
; копируем отчеты на сервер
Run "C:\blahblahdir\copy_logs.bat"Последний раз редактировалось rmn; 24.11.2008 в 19:49. | 
|   |     | 
|  25.11.2008, 13:29 | #6 | 
| Новичок |   
			
			rmn, у меня такой кусочек есть, каждый день использую: Код: #IfWinActive, AutoCAD
`::^1
Tab::^Tab
XButton1::Del
<^XButton1::Send u {}
+XButton1::Send explode {}
XButton2 Up::Send {Esc}
<^XButton2::Send copy {}
+XButton2::Send move {}
>^XButton2::Send rotate {}
XButton2 & F::Send {Up}
XButton2 & D::Send {Down}
XButton2 & R::Send p {}
XButton2 & W::Send ucs  {}
XButton2 & Q::Send ucs ob {}
!F3::Send dist {}
>^F3::Send m2p {}
<^F3::Send nea {}
+F3::Send from {}
LControl & WheelUp::Send extend {}
LControl & WheelDown::Send trim {}
Alt & WheelUp::
Loop 7
Send {WheelUp}
return
Alt & WheelDown::
Loop 6
Send {WheelDown}
return
LShift & WheelUp::Send mirror {}
LShift & WheelDown::Send stretch {}
#IfWinActive
				__________________ я люблю кошек. по-французски.. (с) | 
|   |     | 
|  06.05.2009, 21:04 | #7 | 
| Боец |    AutoHotkey 1.0.48.03 Изменения в версии 
		1.0.48.03 - May 3, 2009 -Fixed "ListLines On" not to erase the most recent log entry in the line history. [thanks Lexikos] -Fixed ListView to respond properly to mouse dragging when timers are running. [thanks Solar] -Fixed key-up hotkeys so that if one is created while its key is being held down, the release of the key doesn't trigger the wrong hotkey. [thanks Peter & engunneer] | 
|     |     | 
|  04.04.2011, 10:20 | #9 | 
| Боец |   
			
			Уважаемые, не подскажете как написать скрипт для завершения заранее известного процесса? простыми словами нужно закрыть запущенное приложение. Короче у меня по определенному событию запускается прога, теперь нужно по другому событию ее закрыть. Последний раз редактировалось Slava; 04.04.2011 в 10:41. | 
|     |     | 
|  04.04.2011, 14:46 | #10 | 
| Firefox User |   
			
			taskkill - виндовозно если к этой программе то тут http://www.script-coding.com/AutoHotkey/Process.html Последний раз редактировалось zloy_kaktus; 04.04.2011 в 14:52. | 
|     |     | 
| Благодарности: 1 |  Slava (04.04.2011) | 
|  04.04.2011, 15:57 | #11 | 
| Боец |   
			
			zloy_kaktus, типа так что-ли? Код: taskkill /f /im прога.exe | 
|     |     | 
| Благодарности: 1 |  zloy_kaktus (04.04.2011) | 
|  04.04.2011, 23:17 | #12 | 
| Боец |   
			
			zloy_kaktus, спасибо, работает, только прога, та что закрываю, в трее висит и при закрытии значок от нее остается, пока на него мышой не наведу =( upd: короче добавил в 1-й скрипт #NoTrayIcon и все ок, еще раз спасибо! Последний раз редактировалось Slava; 04.04.2011 в 23:39. | 
|     |     | 
|  | 
| Метки | 
| автозамена раскладки, freeware, управление процессами | 
| Здесь присутствуют: 1 (пользователей: 0 , гостей: 1) | |
| 
 | 
 |