Что нового

Назначение комбинации клавиш на клавишу

gonz

Новичок
Сообщения
3
Репутация
0
Прочитал мануал, даже попытался сделать сам. Не работает:(

Код:
HotKeySet("{NUMPAD1}", "Copy")

Func Copy()
Send("^{Insert}")
EndFunc

HotKeySet("{NUMPAD2}", "Past")

Func Past()
Send("+{Insert}")
EndFunc

HotKeySet("{NUMPAD3}", "Cut")

Func Cut()
Send("+{DEL}")
EndFunc

HotKeySet("{NUMPAD0}", "Tochka")

Func Tochka()
Send("/") ;точка в русской раскладке
EndFunc


Вообще ничего не получается, даже при запуске скрипта в трее ничего не появляется, помогите как-то довести до ума :'(
 

Yuri

AutoIT Гуру
Сообщения
737
Репутация
282
Прочитал мануал,
Ты его точно читал?
Это код из справки (русской)
Код:
; Press Esc to terminate script, Pause/Break to "pause"

Global $Paused
HotKeySet("{PAUSE}", "TogglePause")
HotKeySet("{ESC}", "Terminate")
HotKeySet("+!d", "ShowMessage")  ;Shift-Alt-d

;;;; Body of program would go here ;;;;
While 1
    Sleep(100)
WEnd
;;;;;;;;

Func TogglePause()
    $Paused = NOT $Paused
    While $Paused
        sleep(100)
        ToolTip('Script is "Paused"',0,0)
    WEnd
    ToolTip("")
EndFunc

Func Terminate()
    Exit 0
EndFunc

Func ShowMessage()
    MsgBox(4096,"","This is a message.")
EndFunc
 

Seoqsss

Новичок
Сообщения
4
Репутация
0
Честно признаюсь,не читал ни каких мануэлов(справочник не в счёт) вообще дуб дубом в Autoit,ну на такое даже и думать кажется не чего:

Код:
HotKeySet("{NUMPAD1}", "Copy")
HotKeySet("{NUMPAD2}", "Past")
HotKeySet("{NUMPAD3}", "Cut")
HotKeySet("{NUMPAD0}", "Tochka")
 While 1
	 Sleep(10)
WEnd
Func Copy()
Send("^{Insert}")
EndFunc
Func Past()
Send("+{Insert}")
EndFunc

Func Cut()
Send("+{DEL}")
EndFunc

Func Tochka()
Send("/") ;точка в русской раскладке
EndFunc


То ?
Или ты что то другое хотел?
 

Yuri

AutoIT Гуру
Сообщения
737
Репутация
282
Это
Код:
HotKeySet("{NUMPAD0}", "Tochka")
HotKeySet("{NUMPAD1}", "Copy")
HotKeySet("{NUMPAD2}", "Past")
HotKeySet("{NUMPAD3}", "Cut")

While 1
    Sleep(100)
WEnd

Func Tochka()
Send("/") ;точка в русской раскладке
EndFunc

Func Copy()
Send("^{Insert}")
EndFunc

Func Past()
Send("+{Insert}")
EndFunc

Func Cut()
Send("+{DEL}



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

Молодец. Быстро разобрался.
В моем коде последнюю строку съело: EndFunc
Вот видишь, как полезно мануалами пользоваться.
 

Zaramot

I ♥ AutoIt
Сообщения
1,160
Репутация
660
Вообще ничего не получается, даже при запуске скрипта в трее ничего не появляется, помогите как-то довести до ума

Ты правильно все сделал, только бесконечный цикл поставь :smile:
Код:
While 1
   Sleep(100) ;Ставим паузу что-бы не перегружать систему (что-бы скрипт не кушал много ресурсов).
Wend
 
Автор
G

gonz

Новичок
Сообщения
3
Репутация
0
заработало!
не придал я как-то важности циклу, да и в справке откуда был взят этот код:
Код:
Global $Paused
HotKeySet("{PAUSE}", "TogglePause")
HotKeySet("{ESC}", "Terminate")

о важности цикла ничего не написано ;)
всем спасибо:smile: :beer: :IL_AutoIt_1:
 
Автор
G

gonz

Новичок
Сообщения
3
Репутация
0
В ходе работы возникла проблемка, иногда программа подвисает, особенно она это любит на функции вставить. Увелечение времени ожидания поможет увеличить стабильность программы?
 
Верх