AutoHotkey Community

Code: Select all

thm.Add("-", Func("FuncEditUserCommands"))

FuncEditUserCommands(isHold, taps, state)
{
  if (taps)
  {
    if (taps == 1)
      Send -
    else if (taps == 2)
      Send, {Space}-{Space}
    else if (taps == 3)
      Run, "C:\Program Files\AutoHotkey\SciTE\SciTE.exe" "C:\Users\Avastgard\Desktop\UserCommands.ahk"
  }
}

Code: Select all

#NoEnv
SendMode Input
#SingleInstance, Force
#Persistent 

vTab:= 2
z::
SendEvent {Tab %vTab%} 
Sleep 11
SendEvent {Enter}
Sleep, 111
vTab++    
return

Code: Select all

#include C:\Users\Mylo\Documents\AutoHotkey\SCRIPTS_STARTUP\TapHoldManager-master\lib\TapHoldManager.ahk


thm := new TapHoldManager()	
thm.Add("x", Func("xtests"))

xtests(isHold, taps, state){ 	
if (isHold=0) & (taps=1) & (state){
  
vTab:= 2
SendEvent {Tab %vTab%} 
Sleep 44
SendEvent {Enter}
Sleep, 111
vTab++    
return
  
}
}
return

Code: Select all

thm := new TapHoldManager()
thm.Add("~x", Func("x_Shortcut"))

;;;;;;;;;;;;;;;;;;;  My Loop script
Loop  
{
	
	while A_cursor = "IBeam"
	{
		Sleep, 222
		Suspend, on
	}

	while A_cursor != "IBeam"
	{
		Sleep, 222
		Suspend, off
	}
}
;;;;;;;;;;;;;;;;;;;  END  My Loop script

x_Shortcut(isHold, taps, state){ 
if (isHold=0) & (taps=1) & (state){
; Your Script

Code: Select all

ITH1.Add("L", Func("Func1"))
Func1 (isHold, taps, state)
	{	
		if (taps=1)
		{
			Send,{1} 
			Send, {tab 5}
			Send, {O}
			Sleep, 300
			Send, {tab 3}
			Sleep, 300
			Send,{2000}
			Send,{tab}
		}
		
		if (taps=2)
		{
			Send,{1}
			Send, {tab 5}
			Send, {C}
			Sleep, 300
			Send, {tab}
		}		
	}

Code: Select all

IfExist, %I_Icon%
Menu, Tray, Icon, %I_Icon%
;return
#NoEnv  ; Recommended for performance and compatibility with future AutoHotkey releases.
; #Warn  ; Enable warnings to assist with detecting common errors.
SendMode Input  ; Recommended for new scripts due to its superior speed and reliability.
SetWorkingDir %A_ScriptDir%  ; Ensures a consistent starting directory.

#SingleInstance force
#Persistent
#include <AutoHotInterception> ; ! ! ! Without this external library AHI Scripts won't work.
#include <TapHoldManager> ; ! ! ! Without this external library THM Scripts won't work.
#include <InterceptionTapHold> ; ! ! ! Without this AHI Scripts won't work.

#UseHook ;For Remote Desktop to work.

AHI := new AutoHotInterception() ; Initializing Interception
ITH1 := new InterceptionTapHold(AHI, keyboardId) ; Initializing Interception Tap Hold (ITH)
;ITH1.Add("L", Func("Func1")) - I wasn't sure what was happening. I've been toggling this within and outside of the header

keyboardId := AHI.GetKeyboardId(0x1A2C, 0x4094) ; ; Retrieving the ID of the keyboard inside the Windows

;This function begins the process of intercepting each individual key and redirecting the thread accordingly to corresponding conditions inside of the callback function. Keys are empty if there is no specified "IF" condition for them.
AHI.SubscribeKeyboard(keyboardId, true, Func("KeyEvent"))

#IfWinActive ahk_class TscShellContainerClass()
KeyEvent(code, state)

Code: Select all

#Include <TapHoldManager>
thm := new TapHoldManager()

thm.Add("x", Func("XFunction"))


;  ======== > any (OTHER) include files not related to THM you may have, has to go below the THM Funciton HERE <========
;~ #Include <Vector>
;~ #Include <FindText>
;~ #Include <ToolTipFM>
;~ #Include <PreventRepeating>
;=================================================================================

XFunction(isHold, taps, state){
if (isHold=0) & (taps=1) & (state){   ;  1tap
	SoundBeep 
	return
}

if (isHold=1) & (taps=2) & (state=0){   ;  2taps & hold, state=0 means it beeps only when 'x'  is released. 
										; state=1 means it beeps when pressed down.
	SoundBeep 
	SoundBeep
	return
}
}

Code: Select all

;return
#NoEnv  ; Recommended for performance and compatibility with future AutoHotkey releases.
; #Warn  ; Enable warnings to assist with detecting common errors.
SendMode Input  ; Recommended for new scripts due to its superior speed and reliability.
SetWorkingDir %A_ScriptDir%  ; Ensures a consistent starting directory.

#SingleInstance force
#Persistent
#include <AutoHotInterception> ; ! ! ! Without this external library AHI Scripts won't work.
#include <TapHoldManager> ; ! ! ! Without this external library THM Scripts won't work.
#include <InterceptionTapHold> ; ! ! ! Without this AHI Scripts won't work.
#IfWinActive ahk_class TscShellContainerClass()
#UseHook ;For Remote Desktop to work.

AHI := new AutoHotInterception() ; Initializing Interception
keyboardId := AHI.GetKeyboardId(0x1A2C, 0x4094) ; ; Retrieving the ID of the keyboard inside the Windows
ITH1 := new InterceptionTapHold(AHI, keyboardId) ; Initializing Interception Tap Hold (ITH)
ITH1.Add("l", Func("LFunction"))
;thm.Add("L", Func("LFunction"))

;This function begins the process of intercepting each individual key and redirecting the thread accordingly to corresponding conditions inside of the callback function. Keys are empty if there is no specified "IF" condition for them.
AHI.SubscribeKeyboard(keyboardId, true, Func("KeyEvent"))


KeyEvent(code, state)

{
;===========Direct Bills========Q==========
{
if (state=1) & (code=16) ; This will tab through until you hit the Schedule Number 2000
	{
		Send,{1}
		Send, {tab 5}
		Send, {O}
		Sleep, 300
		Send, {tab 3}
		Sleep, 300
		Send, {2}{0}0}{0}
		Send, {tab}
	}
;
;===============Cash Receipts (Both Direct & Agency Bill===========L=======

;if (state=1) & (code=38) ;Experimental - One Tap is for Direct Bills, Two Taps for Agency Bills
LFunction(isHold, taps, state){
if (isHold=0) & (taps=1) & (state){   ;  1tap
		Send,{1} 
		Send, {tab 5}
		Send, {O}
		Sleep, 300
		Send, {tab 3}
		Sleep, 300
		Send, {2}{0}0}{0}
		Send,{tab}
		return
}

if (isHold=0) & (taps=2) & (state){
	Send,{1}
	Send, {tab 5}
	Send, {C}
	Sleep, 300
	Send, {tab}
	return
}
}

;

Code: Select all

;return
#NoEnv  ; Recommended for performance and compatibility with future AutoHotkey releases.
; #Warn  ; Enable warnings to assist with detecting common errors.
SendMode Input  ; Recommended for new scripts due to its superior speed and reliability.
SetWorkingDir %A_ScriptDir%  ; Ensures a consistent starting directory.

#SingleInstance force
#Persistent
#include <AutoHotInterception> ; ! ! ! Without this external library AHI Scripts won't work.
#include <TapHoldManager> ; ! ! ! Without this external library THM Scripts won't work.
#include <InterceptionTapHold> ; ! ! ! Without this AHI Scripts won't work.
#IfWinActive ahk_class TscShellContainerClass()
#UseHook ;For Remote Desktop to work.

AHI := new AutoHotInterception() ; Initializing Interception
keyboardId := AHI.GetKeyboardId(0x1A2C, 0x4094) ; ; Retrieving the ID of the keyboard inside the Windows
ITH1 := new InterceptionTapHold(AHI, keyboardId) ; Initializing Interception Tap Hold (ITH)
ITH1.Add("Q", Func("QFunction"))
ITH1.Add("W", Func("WFunction"))


;This function begins the process of intercepting each individual key and redirecting the thread accordingly to corresponding conditions inside of the callback function. Keys are empty if there is no specified "IF" condition for them.
;AHI.SubscribeKeyboard(keyboardId, true, Func("KeyEvent"))


;KeyEvent(code, state)

{
;===============Cash Receipts (Both Direct & Agency Bill===========Q=======
;
QFunction(isHold, taps, state){
if (isHold=0) & (taps=1) & (state){ 
		Send,{1} 
		Send, {tab 5}
		Send, {O}
		Sleep, 300
		Send, {tab 3}
		Sleep, 300
		Send, {2}{0}0}{0}
		Send,{tab}
		return
	}

if (isHold=0) & (taps=2) & (state)
	{
	Send,{1}
	Send, {tab 5}
	Send, {C}
	Sleep, 300
	Send, {tab}
	return
	}
;
;=====================Paste Check# in Description========W=======
;
WFunction(isHold, taps, state){
if (isHold=0) & (taps=1) & (state)
	{ 
		Send,{tab 2}
		Sleep, 300
		Send,^v
		Send,{tab}
		return
	}
}
;====================
}

Code: Select all

QFunction(isHold, taps, state){
if (isHold=0) & (taps=1) & (state){ 
		Send,{1} 
		Send, {tab 5}
		Send, {O}
		Sleep, 300
		Send, {tab 3}
		Sleep, 300
		Send, {2}{0}{0}{0}
		Send,{tab}
		return
	}

if (isHold=0) & (taps=2) & (state){
	Send,{1}
	Send, {tab 5}
	Send, {C}
	Sleep, 300
	Send, {tab}
	return
   }
}
;
;=====================Paste Check# in Description========W=======
;

WFunction(isHold, taps, state){
if (isHold=0) & (taps=1) & (state){

		Send,{tab 2}
		Sleep, 300
		Send,^v
		Send,{tab}
		return
	}
}
;=

Code: Select all

#include Lib\AutoHotInterception.ahk
#include Lib\TapHoldManager.ahk
#include Lib\InterceptionTapHold.ahk

#Persistent	; Interception scripts may not declare hotkeys, so you may need this to stop it exiting
#SingleInstance force

; Add the VID / PID of the keyboard you wish to filter here
VID1 := 0x04D9, PID1 := 0xA0F8

kb1 := new InterceptionTapHold(VID1, PID1)	; TapTime / Prefix can now be set here
kb1.Add("1", Func("Kb1Func"))			; TapFunc / HoldFunc now always one function

; Un-Comment this to get a list of devices
;devices := kb1.GetKeyboardList()
;Clipboard := devices
;msgbox % devices

Kb1Func(isHold, taps, state){
	ToolTip % "KB 1 Key 1`n" (isHold ? "HOLD" : "TAP") "`nTaps: " taps "`nState: " state
}

Kb2Func(isHold, taps, state){
	ToolTip % "KB 2 Key 1`n" (isHold ? "HOLD" : "TAP") "`nTaps: " taps "`nState: " state
}

Code: Select all

#SingleInstance force
#include <AutoHotInterception>
#include <InterceptionTapHold>
#include <TapHoldManager>

AHI := new AutoHotInterception()
keyboard1Id := AHI.GetKeyboardId(0x04D9, 0xA0F8) ;keypad
ITH1 := new InterceptionTapHold(AHI, keyboard1Id)
;ITH1 := new TapHoldManager()
ITH1.Add("1", Func("Func1"))
ITH1.Add("2", Func("Func2"))
return

Func1(isHold, taps, state){
    ToolTip % "KB 1 Key 1`n" (isHold ? "HOLD" : "TAP") "`nTaps: " taps "`nState: " state
}

Func2(isHold, taps, state){
    ToolTip % "KB 1 Key 2`n" (isHold ? "HOLD" : "TAP") "`nTaps: " taps "`nState: " state
}