Серый форум — [AHK] Подсчёт количества нажатий

Re: [AHK] Подсчёт количества нажатий

null@example.com (serzh82saratov) — Fri, 18 Mar 2016 19:53:19 +0000

Надо прикрутить хук.


Global oKeys := {Func:"MyFuncName", Skip:{"vk70sc3B":"F1","vk71sc3C":"F2","vk73sc3E":"F4"}}, Count := 0

F4::Counter()

Counter() {   
	ToolTip % ++Count  
} 

MyFuncName(button, msg) {
	Count := 0
 	ToolTip 
}

KeyboardHook(nCode, wParam, lParam)  {
	Static msg, vk, sc 
		, oMsg := {0x100: "WM_KEYDOWN", 0x101: "WM_KEYUP", 0x104: "WM_SYSKEYDOWN", 0x105: "WM_SYSKEYUP"} 
	, hHookKeybd := DllCall("SetWindowsHookEx"
		, Int, 13		;	WH_KEYBOARD_LL
		, Ptr, RegisterCallback("KeyboardHook", "Fast")
		, Ptr, DllCall("GetModuleHandle", UInt, 0, Ptr)
		, UInt, 0, Ptr)
	, _ := OnExit(Func("KeyboardHookExit").Bind(hHookKeybd))
  
	msg := wParam . "" 
	vk  := NumGet(lParam + 0, "UInt") . "" 
	ext := NumGet(lParam + 8, "UInt") & 1
	sc  := NumGet(lParam + 4, "UInt") | ext << 8 . ""
	
	SetTimer, EventHandling, -10 
	Return DllCall("CallNextHookEx", Ptr, 0, Int, nCode, Ptr, wParam, Ptr, lParam)
      
	EventHandling: 
		button := "vk" Format("{:x}", vk) "sc" Format("{:x}", sc) 
		If oKeys.Skip.HasKey(button)
			Return   
		Func(oKeys.Func).Call(button, oMsg[msg])
		Return
}

KeyboardHookExit(hHook) { 
	DllCall("UnhookWindowsHookEx", Ptr, hHook) 
}

Esc::ExitApp

Re: [AHK] Подсчёт количества нажатий

null@example.com (becauseim) — Fri, 18 Mar 2016 16:31:24 +0000

serzh82saratov, А как добавить в Ваш вариант сбрасывание счетчика при нажатии на любые другие другие клавиши, кроме, например, F1 и F2?

Re: [AHK] Подсчёт количества нажатий

null@example.com (teadrinker) — Fri, 18 Mar 2016 08:41:07 +0000

duneyrr, невнимательно ознакомились, читайте ещё раз.

Re: [AHK] Подсчёт количества нажатий

null@example.com (teadrinker) — Thu, 17 Mar 2016 21:13:07 +0000

duneyrr, ознакомьтесь с этой темой, отредактируйте заголовок.

Re: [AHK] Подсчёт количества нажатий

null@example.com (serzh82saratov) — Thu, 17 Mar 2016 19:13:50 +0000

В русской справке есть перевод IniWrite и IniRead, попробуйте почитать.

Re: [AHK] Подсчёт количества нажатий

null@example.com (duneyrr) — Thu, 17 Mar 2016 19:08:30 +0000

Вариант хороший, но боюсь не подойдёт. Оптимальный вариант будет если он будет писать в файл цифру. Аналогично этому способу но с записью. Просто если я перезапущу макрос, то подсчёт слетит.

Нашел свой предыдущий скрипт, но правда для другой программы:

_StartCount()
; Ваш код

Func _StartCount()
    Local $s_Ini = @ScriptDir & '\Count.ini', $s_Sec = 'Count', $s_KeyCount = 'CountStart', $s_KeyLast = 'LastDateStart'

    IniWrite($s_Ini, $s_Sec, $s_KeyCount, Int(IniRead($s_Ini, $s_Sec, $s_KeyCount, 0)) + 1)
    IniWrite($s_Ini, $s_Sec, $s_KeyLast, StringFormat('%02d.%02d.%04d %02d:%02d:%02d', @MDAY, @MON, @YEAR, @HOUR, @MIN, @SEC))
EndFunc   ;==>_StartCount

Можно ли его впихнуть сюда как-то ? :-)

Re: [AHK] Подсчёт количества нажатий

null@example.com (serzh82saratov) — Thu, 17 Mar 2016 19:02:27 +0000

F4::Counter()  

Counter(){
	Static Count := 0
    BlockInput On
	ToolTip % ++Count
    BlockInput Off
    return
}

[AHK] Подсчёт количества нажатий

null@example.com (duneyrr) — Thu, 17 Mar 2016 18:59:43 +0000

Собственно хотелось бы сделать простой макрос с подсчётом количества нажатий на кнопку F4.


F4::Counter() ;

Counter(){
    BlockInput On
*код отсутствует*
    BlockInput Off
    return
}

Помнится что-то начинал, но в итоге ни к чему не пришел. Была проблема с подсчетом а именно с переменной. Он не прибавлял к старому числу))
Надеюсь кто-нибудь поможет