Ru-Board.club
← Вернуться в раздел «Программы»

» AutoHotkey

Автор: aidomars
Дата сообщения: 16.03.2011 11:08
Asher23
скан-код клавиши P (или З в русской раскладке) - 019, hex значение - 50
таким образом: ^!SC019::pause или ^!VK50::pause
Автор: mentas
Дата сообщения: 22.03.2011 21:35
Здравствуйте !!! ,я когдато писал программы на паскале ,те времена безвозвратно ушли ,и тут пришлось научиться писать макросы) я прочитал немного что нашел ,но мне всеравно непонятно где ставить скобки где нет ,какие ? вобщем сама оболочка ,так сказать ,мне полностью пока не ясна ,задачя стоит следующяя :

В полноэкранное приложение при нажатии на кн "z" передаеться WheelUp 12 раз ,чем быстрее тем лучше ,а при нажатии "x" - WheelDown 15 (пускай) раз .

Простейшии скрипты с нажатиями клавиш в разной последовательности и с разными задержками у мну получились сразу ,а вот со скролом почемуто беда ,получилось только лиш перезаначить скролл на другую клавишу
z:: WheelUp
x:: WheelDown
а потом ,с помошъю других макросов(сторонних) нажимать неотпуская z-923 ms и x-1086 ms ,добиваться желаемого результата ,что очень пока неудобно ,я по разному пробовал писать скрипт вставлял loop ,тупо по строчкам ,но ничего путнего невыходит ,хотя он запускаеться ,и вроде работает ,тока с непонятными мне глюками .
помогите пожалуйста с задачей ,а естли ткнете носом в учебник со всеми обозначениями ,командами и возможностями ,буду оч вам признателен .
Автор: mentas
Дата сообщения: 24.03.2011 07:47
все разобрался
vk5A:: SendInput, {WheelUp 12} ; z
vk58:: SendInput, {WheelDown 15} ; x
Автор: mentas
Дата сообщения: 27.03.2011 08:50
почемуто иногда перестают аботать мои скрмпты ,и их перезапуск непомогает , Win 7x64 AHK 104805.
Автор: Jluxo79
Дата сообщения: 04.04.2011 00:38
Помогите написать макрос, пожалуйста.
Копирую из "Эксель" текст, типо "бла бла бла"но он копируется в кавычках. Потом вставляю в поле ответа на форумы, доски объявлений и т.д.
Нужно написать макрос, чтобы по нажатию клавиши эти кавычки удалялись т.е первый и последний символы.
Пока пользуюсь вот этим: http://forum.script-coding.com/viewtopic.php?id=128 но неудобно, то что нужно постоянно записывать свои действия, а хотелось бы иметь уже готовый макрос раз и навсегда.
Спасибо, кто поможет.
Автор: AITL
Дата сообщения: 04.04.2011 15:59
mentas


Цитата:
почемуто иногда перестают аботать мои скрмпты ,и их перезапуск непомогает , Win 7x64 AHK 104805.


Была та же проблема под Win7 64. Стал запускать скрипты от админа. Теперь вроде нормально.
Автор: Jluxo79
Дата сообщения: 07.04.2011 00:13
неужели никто не поможет?
ООоочень надо!
Автор: aidomars
Дата сообщения: 07.04.2011 10:56
Jluxo79
Gui, Add, Edit, w200 vText, "Привет"
Gui, Add, Button, gGo
Gui, Show, , Title
Return
Go:
Gui, Submit, NoHide
NewText := RegExReplace(Text, "^.|.$")
GuiControl,, Edit1, %NewText%
Return
Автор: Jluxo79
Дата сообщения: 14.04.2011 22:47
aidomars
Поясните пожалуйста, как скрипт должен работать, а то я совсем дуб.
Несколько дней пытался разобраться , но без результата.
Автор: aidomars
Дата сообщения: 15.04.2011 10:06
Jluxo79
Что именно не получается? Код работает, запускал?
Автор: Jluxo79
Дата сообщения: 16.04.2011 00:16

Цитата:
Что именно не получается? Код работает, запускал?

В этом то моя проблема, возможно код работает, но я не понимаю как. Запустив его и проделав процедуры, которые я описывал немного выше, решения своей проблемы не увидел. Возможно я должен дописать что то своё в этот код? не знаю.
Дело в том, что мои представление о скрипте были примерно такие как описаны в обучении AutoHotKey по создании скрипта т.е. создаётся некая последовательность команд, а перед этими командами горачая клавиша, которая и запускает эти команды типо: F7::Send, ^c!{tab}pasted:^v
В варианте, который вы мне предложили нечто другое. После я полез изучать, что такое GUI и с чем его едят, потом остальные команды... окончательно заблудившись, ни соло нахлебавшись вернулся опять сюда на форум.
Повторюсь: При копировании разного текста из ячеек в "Экселе" текст оборачивается кавычками (видимо из за формулы сцепления) после вставки в любое другое окно, блокнот, в поле ответа на форумы, доски объявлений и т.д. нужно, чтобы этих кавычек не было либо удалять как я планировал с помощью скрипта.
Очень извиняюсь, за кучу украденного времени, может можно как то мне помочь?


Автор: aidomars
Дата сообщения: 16.04.2011 00:40
Ясно. Во-первых если ты работаешь в Экселе то проще в нем и набросать макрос. Ну а во-вторых если хочешь в Autohotkey, то скопируй этот код в блокнот, измени расширение на .ahk и брось этот файл в AutoHotkey.exe. Появится форма в которую копируешь свой текст, жмешь буттон - кавычки удаляются. Можешь расширить поле ввода заменив ширину w200 на большее и добавив R5 (высота 5 строк).
Автор: Jluxo79
Дата сообщения: 16.04.2011 14:58

Цитата:
Ясно. Во-первых если ты работаешь в Экселе то проще в нем и набросать макрос. Ну а во-вторых если хочешь в Autohotkey, то скопируй этот код в блокнот, измени расширение на .ahk и брось этот файл в AutoHotkey.exe. Появится форма в которую копируешь свой текст, жмешь буттон - кавычки удаляются. Можешь расширить поле ввода заменив ширину w200 на большее и добавив R5 (высота 5 строк).

Когда запускаю код появляется такое окно http://img851.imageshack.us/img851/3698/73199958.jpg
баттон не обнаружил, но даже если бы она была, получается какая то громоздкая модель, сначало из "Эксель" в код, потом из кода в поле на форуме, тогда уж лучше вручную из "Эксель" в поле на форуме, и удалить кавычки вручную.
Может можно, всё таки написать код, который по горячей клавише (ну допустим Shift+Delete) удалял эти кавычки в активном окне.
Т.е. последовательность такая: Копирую из Эксель, вставляю на форуме, нажимаю горячие клавиши, кавычки удаляются, отправляю сообщение.

з.ы. Макрос в экселе написать невозможно. Изнасиловал мозги юзверям на продивинутом форуме по "эксель" послали меня на..... AutoHotKey сказали это единственное и простое решение только пока оно для меня не такое уж и простое получается.
Автор: aidomars
Дата сообщения: 17.04.2011 20:45
Jluxo79
залей свой файл эксель на хостинг и дай мне ссылку, посмотрю.
Автор: aidomars
Дата сообщения: 18.04.2011 19:37
Jluxo79
Готовый (скомпилированный) файл: dep_sitfiles.com/files/tumtohtra (добавь "о")
1. В Excel выделить нужную ячейку, нажать Win+1
2. В браузере поставить курсор на поле ввода, нажать Win+2
Код:
#1:: ; при нажатии Win+1...
WinActivate ; активация последнего найденного окна
Send, ^{sc02E} ; копируем Ctrl+C
txt := RegExReplace(Clipboard, "^.|.$") ; убираем по символу в начале и в конце текста
TrayTip,, %txt% ; показ в трее текста
Return
#2:: ; при нажатии Win+2...
WinActivate ; активация последнего найденного окна
Clipboard := txt ; присваиваем в буфер текст
Send, ^{sc02F} ; вставляем Ctrl+V
Return
Автор: Jluxo79
Дата сообщения: 18.04.2011 22:56
aidomars Спасибо огромное, отлично работает скрипт, даже удобнее чем мог себе представить.
Ещё немного позволю себе обнаглеть, буквально последний вопрос если нет, то и так хорошо.
Можно горячие клавиши Win+1 и Win+2 (в скомпилированном файле) переделать на более привычные Ctrl+С и Shift+Insert соответственно?
Пытался изменить в коде, через блокнот с расширением .ahk но ничего не получилось.
Ещё раз спасибо, больше приставать не буду
Автор: aidomars
Дата сообщения: 19.04.2011 13:29
Не советую использовать Ctrl+С и Shift+Insert, т.к. при работе скрипта он будет перехватывать их в любой программе.
Автор: Cancer_to_Shanghai
Дата сообщения: 22.04.2011 13:47
AutoHotkey русскую версию нуно. иначе не разбирусь.
Автор: aidomars
Дата сообщения: 22.04.2011 14:36
Cancer_to_Shanghai
Поправил ссылки в шапке, там качай документацию, chm-файл, все по-русски.
Автор: faridmif
Дата сообщения: 01.05.2011 17:44
AutoHotkey 1.1.00.00
http://www.autohotkey.net/~Lexikos/AutoHotkey_L/AutoHotkey_L_Install.exe
ChangeLog
http://www.autohotkey.net/~Lexikos/AutoHotkey_L/docs/AHKL_ChangeLog.htm
Автор: init0
Дата сообщения: 04.05.2011 17:13
Возможно ли назначить в качестве горячей клавиши ЛКМ+ПКМ?
Автор: Bogdandi
Дата сообщения: 30.06.2011 11:17
Все привет.Я не могу запустить AutoHotKey он мне выдаёт ошибку

Код: Error at line 16

line text #z:: Run www.autohotkey.com
Error:Invalid Hotkey

The programm will exit
Автор: aidomars
Дата сообщения: 30.06.2011 12:36
Bogdandi
Замени #z в скрипте на #я или ставь раскладку по умолчанию английскую
Автор: tahirg
Дата сообщения: 17.07.2011 07:27
такая заковыка
есть некий скрипт очень простой утилиты, там всего две кнопки RUN и EXIT
когда русифицирую кнопки они перестают выполнять свои действия
как побороть?
Автор: aidomars
Дата сообщения: 17.07.2011 14:19
tahirg
Код напиши
Автор: tahirg
Дата сообщения: 17.07.2011 14:52
aidomars
[more=скрипт]; <COMPILER: v1.0.48.3>
Gui, Font, S9 CDefault, Segoe UI
Gui, Add, Button, x32 y130 w130 h30 gSetHotkey, Run Utility
Gui, Add, Button, x202 y130 w130 h30 , Exit
Gui, Add, Text, x21 y20 w332 h81 , This portable utility re-registers all the concerned Windows Media dll files required for the smooth functioning of Windows Media Player. If you are facing any issues or getting any error message while running Windows Media Player, run this utility.
Gui, Add, GroupBox, x11 y3 w353 h108 ,
Gui, Add, Text, x203 y178 w50 h20 , Publisher :
Gui, Add, Text, x260 y178 w100 h20 cBlue gLink1 vURL_Link1, The Windows Club

Gui, Show, x127 y87 h204 w378, Fix WMP Utility v 1.0
Return




Process, Exist
pid_this := ErrorLevel


WinGet, hw_gui, ID, ahk_class AutoHotkeyGUI ahk_pid %pid_this%


WM_SETCURSOR = 0x20
OnMessage(WM_SETCURSOR, "HandleMessage")


WM_MOUSEMOVE = 0x200
OnMessage(WM_MOUSEMOVE, "HandleMessage")
Return



ButtonExit:
ExitApp

SetHotkey:
Run, regsvr32 msdxm.ocx /s
Run, regsvr32 dxmasf.dll /s
Run, regsvr32 wmp.dll /s /s
Run, regsvr32 wmpcm.dll /s
Run, regsvr32 wmpcm.dll /s
Run, regsvr32 wmpdxm.dll /s
Run, regsvr32 wmpdxm.dll /s
Run, regsvr32 wmpeffects.dll /s
Run, regsvr32 WMPEncEn.dll /s
Run, regsvr32 WMPhoto.dll /s
Run, regsvr32 wmpmde.dll /s
Run, regsvr32 wmpps.dll /s
Run, regsvr32 wmpshell.dll /s
Run, regsvr32 wmpsrcwp.dll /s
Run, regsvr32 WMVENCOD.dll /s
Run, regsvr32 WMVSDECD.dll /s
Run, regsvr32 WMVXENCD.dll /s
Run, regsvr32 WMADMOD.dll /s
Run, regsvr32 WMADMOE.dll /s
Run, regsvr32 wmcodecdspps.dll /s
Run, regsvr32 wmdmlog.dll /s
Run, regsvr32 wmdmps.dll /s
Run, regsvr32 wmdrmdev.dll /s
Run, regsvr32 wmdrmnet.dll /s
Run, regsvr32 wmdrmsdk.dll /s
Run, regsvr32 WMSPDMOD.dll /s
Run, regsvr32 WMSPDMOE.dll /s
Run, regsvr32 WMVDECOD.dll /s
Run, regsvr32 wmvdspa.dll /s
Run, regsvr32 WMVCORE.dll /s
Run, regsvr32 MFPlay.dll /s
Run, regsvr32 MFWMAAEC.dll /s
Run, regsvr32 MP3DMOD.dll /s
Run, regsvr32 MP43DECD.dll /s
Run, regsvr32 MP4SDECD.dll /s
Run, regsvr32 MPG4DECD.dll /s
Run, regsvr32 mfds.dll /s
Run, regsvr32 mfh264enc.dll /s
Run, regsvr32 mfps.dll /s
Run, regsvr32 mfvdsp.dll /s
Run, regsvr32 MSAC3ENC.dll /s
Run, regsvr32 msmpeg2adec.dll /s
Run, regsvr32 MSMPEG2ENC.dll /s
Run, regsvr32 msmpeg2vdec.dll /s
Msgbox Re-registered all files
ExitApp
return





Link1:
Run, http://www.thewindowsclub.com/
Return






HandleMessage(p_w, p_l, p_m, p_hw)
{
global WM_SETCURSOR, WM_MOUSEMOVE,
static URL_hover, h_cursor_hand, h_old_cursor, CtrlIsURL, LastCtrl

If (p_m = WM_SETCURSOR)
{
If URL_hover
Return, true
}
Else If (p_m = WM_MOUSEMOVE)
{

StringLeft, CtrlIsURL, A_GuiControl, 3
If (CtrlIsURL = "URL")
{
If URL_hover=
{
Gui, Font, cBlue underline
GuiControl, Font, %A_GuiControl%
LastCtrl = %A_GuiControl%

h_cursor_hand := DllCall("LoadCursor", "uint", 0, "uint", 32649)

URL_hover := true
}
h_old_cursor := DllCall("SetCursor", "uint", h_cursor_hand)
}

Else
{
If URL_hover
{
Gui, Font, norm cBlue
GuiControl, Font, %LastCtrl%

DllCall("SetCursor", "uint", h_old_cursor)

URL_hover=
}
}
}
}




GuiClose:
ExitApp

[/more]
Автор: fimdiraf
Дата сообщения: 17.07.2011 16:32
AutoHotkey 1.1.00.01
http://www.autohotkey.net/~Lexikos/AutoHotkey_L/AutoHotkey_L_Install.exe
ChangeLog
http://www.autohotkey.net/~Lexikos/AutoHotkey_L/docs/AHKL_ChangeLog.htm
Автор: aidomars
Дата сообщения: 17.07.2011 16:36
tahirg
gSetHotkey запускает "SetHotkey:", надпись "Run Utility" в этом случае не влияет на запуск подпрограммы, можно переименовать кнопку по любому
Exit запускает ButtonExit, т.к. нет метки g. Можно переименовать кнопку в Выход, в этом случае ButtonExit меняем на ButtonВыход (или поставить метку gЛюбоеСлово, например "Gui, Add, Button, x202 y130 w130 h30 gЛюбоеСлово, Exit ", и запуск подпрограммы написать ЛюбоеСлово: )
Автор: tahirg
Дата сообщения: 17.07.2011 17:27
aidomars
Благодарю дружище!
Автор: Vitti
Дата сообщения: 17.07.2011 18:11
Можно ли повесить на двойной клик мыши хот-кей?

Страницы: 12345678910111213141516171819202122232425262728293031323334

Предыдущая тема: как добавить ивритские шрифты


Форум Ru-Board.club — поднят 15-09-2016 числа. Цель - сохранить наследие старого Ru-Board, истории становления российского интернета. Сделано для людей.