Что нового

[Автоматизация] горячие клавиши для программы IP телефонии eyeBeam

DR_ALF

Новичок
Сообщения
16
Репутация
0
Для программы IP телефонии eyeBeam нужны 2 горячие клавиши. Как на мобильнике- например долго держишь срабатывает "быстрый набор" запрограммированного заранее номера.

функция StartScript() или MyExit() отрабатывает симулирование нажатий клавиш многократно.
Например я нажал F11 кратковременно - функция StartScript() отработала как мне нужно 1 раз набрав номер.
Если же я удерживаю F11 чуть дольше 0,5 или 1 секунды происходит многократныое выполнение функции StartScript(). Можно ли ограничить выполнение StartScript() 1-м разом например в минуту?
Или бы ло бы лучше чтобы она отрабатывала не по нажатию горячей клавиши, а по ее отпусканию.


Код:
TraySetIcon("Shell32.dll", -197) ;Изображение мобильного телефона
HotKeySet("{F11}", "StartScript")  ;F11
HotKeySet("{F9}", "MyExit")  ;F9

While 1
   Sleep(100)
WEnd

Func StartScript()
Run('C:\Program Files (x86)\CounterPath\eyeBeam 1.5\eyeBeam.exe')
WinWaitActive("eyeBeam")
Send("{7}")
Sleep(500)
Send("{1}")
Sleep(500)
Send("{2}")
Sleep(500)
Send("{3}")
Sleep(500)
Send("{4}")
Sleep(500)
Send("{5}")
Sleep(500)
Send("{6}")
Sleep(500)
Send("{7}")
Sleep(500)
Send("{8}")
Sleep(500)
Send("{9}")
Sleep(500)
Send("{1}")
Sleep(500)
Send("{ENTER}")
Sleep(500)
WinSetState("eyeBeam", "", @SW_MINIMIZE)
EndFunc

Func MyExit()
WinSetState("eyeBeam", "", @SW_MAXIMIZE)
WinWaitActive("eyeBeam")
Sleep(100)
Send("{ESC}")
Sleep(100)
WinSetState("eyeBeam", "", @SW_MINIMIZE)
EndFunc
 
Верх