AutoHotkey Community

Code: Select all

kb := new KeyBinder()
kb.Start()

class KeyBinder {
	__New(){
		ih := InputHook()
		ih.KeyOpt("{All}", "SN")
		ih.KeyOpt("{NumLock}", "-S")
		ih.OnKeyDown := this.OnKeyEvent.Bind(this, 1)
		this.ih := ih
	}
	
	Start(){
		this.ih.Start()
	}
	
	Stop(){
		this.ih.Stop()
	}
	
	OnKeyEvent(keyState, vk, sc){
		keyName := GetKeyName(Format("vk{:x}sc{:x}", VK, SC))
		ToolTip % "VK: " vk ", SC: " sc ", Name: " keyName ", State: " keyState
	}
}

Code: Select all

kb := new KeyBinder()
kb.Start()

class KeyBinder {
	__New(){
		this.ih := InputHook()
		this.ih.KeyOpt("{All}", "SN")
		this.ih.KeyOpt("{NumLock}", "-S")
		this.ih.OnKeyDown := this.OnKeyEvent.Bind(this, 1)
	}
	
	Start(){
		this.ih.Start()
	}
	
	Stop(){
		this.ih.Stop()
	}
	
	OnKeyEvent(keyState, vk, sc){
		keyName := GetKeyName(Format("vk{:x}sc{:x}", VK, SC))
		ToolTip % "VK: " vk ", SC: " sc ", Name: " keyName ", State: " keyState
	}
}

Code: Select all

/*
Demo of using InputHook to power a Dynamic Hotkeys system
*/
#SingleInstance force
OutputDebug, DBGVIEWCLEAR

kb1 := new KeyBinder()
kb2 := new KeyBinder()
Gui, Show,, KeyBinder
return

GuiClose:
	ExitApp

class KeyBinder {
	__New(){
		Gui, Add, Edit, hwndhwnd xm w200 Disabled
		this.hKeyName := hwnd
		Gui, Add, Button, hwndhwnd x+5 yp-1, Bind
		fn := this.Start.Bind(this)
		GuiControl +g, % hwnd, % fn
		this.ih := InputHook()
		this.ih.KeyOpt("{All}", "SN")
		this.ih.OnKeyDown := this.OnKeyEvent.Bind(this, 1)
	}
	
	Start(){
		this.KeyWatchTimers := {}
		this.BoundKeys := []
		GuiControl, , % this.hKeyName, Press key(s) to bind...
		this.ih.Start()
	}
	
	Stop(){
		this.ih.Stop()
		for keyName, fn in this.keyWatchTimers {
			Log("Stopping timer for " keyName)
			SetTimer, % fn, Off
		}
		Loop % this.BoundKeys.Count() {
			StringUpper, key, % this.BoundKeys[A_Index]
			str .= key
			if (A_Index != this.BoundKeys.Count()){
				str .= " + "
			}
		}
		GuiControl, , % this.hKeyName, % str
	}
	
	OnKeyEvent(state, ih, vk, sc){
		keyName := GetKeyName(Format("vk{:x}sc{:x}", VK, SC))
		if (state && this.KeyWatchTimers[keyName]){
			return
		}
		Log("OnKeyEvent - VK: " vk ", SC: " sc ", Name: " keyName ", State: " state)
		if (state){
			this.BoundKeys.Push(keyName)
			cb := this.OnKeyEvent.Bind(this, 0, ih, vk, sc)
			fn := this.WatchKey.Bind(this, keyName, cb)
			this.KeyWatchTimers[keyName] := fn
			SetTimer, % fn, 100
		} else {
			this.Stop()
		}
	}

	WatchKey(keyName, cb){
		if (!GetKeyState(keyName, "P")){
			cb.Call()
		}
	}
}

Log(text){
	OutputDebug % "AHK| " text
}

Code: Select all

	global UserInput:= false

	hMuster16:= WinExist("Muster 16 ahk_class #32770")
	WinActivate   	, % "ahk_id " hMuster16
	WinWaitActive	, % "ahk_id " hMuster16
	ControlFocus 	, % "Edit8", % "ahk_id " hMuster16
	ControlGetText	, text, % "Edit8", % "ahk_id " hMuster16

	select	:= "..."
	cpos 	:= InStr(text, select) - 1
	turn  	:= 0
	back 	:= false
	mLen	:= StrLen(text) - 1
	SelW 	:= StrLen(select)
	
	ih := InputHook("L1 V M")
	ih.NotifyNonText	:= true
	ih.VisibleText     	:= true
	ih.OnKeyDown      	:= Func("OnKeyDown")
	ih.Start()


	Loop 50
	{
		SendMessage 0xB1, % cpos, % cpos+3, Edit8, % "ahk_id " hMuster16 ; EM_SETSEL
		if InterruptableSleep(150)
			break
		SendMessage 0xB1, % cpos, % cpos, Edit8, % "ahk_id " hMuster16 ; EM_SETSEL
		if InterruptableSleep(150)
			break
	}

	ih.Stop()

	SendMessage 0xB1, % cpos, % cpos+3, Edit8, % "ahk_id " hMuster16 ; EM_SETSEL

return

InterruptableSleep(time) {

	Loop, % time/5
	{
		Sleep, 5
		If UserInput
			break
	}

	If UserInput
		return true
}

OnKeyDown() {
UserInput:=true
}