7 replies to this topic

[Maestr0]

try something like:

#InstallKeybdHook

~$shift::checkstate("shift")

return

checkstate(modifier)
{
	state := getkeystate(modifier,"P")
	if state = 1
		msgbox % modifier " down"
	loop
	{
		if getkeystate(modifier,"P") = 0
			break
	}
	msgbox % modifier " up"
	return
}

However, there's probably easier ways to do this
Try looking at an alternative to the screenwriter: Macro recorder: <!-- l --><a class="postlink-local" href="http://www.autohotkey.com/community/viewtopic.php?t=23671">viewtopic.php?t=23671</a><!-- l -->

[Maestr0]

Loads of ways, think a GUI might be handy. Post the (ugly?) code you have and let me get you on the right path.

[Maestr0]

The code below solves the {shiftdown}{shiftdown}{shiftdown}etc, looking at your other problems now:

#Persistent

#NoEnv  						; Performance setting: http://www.autohotkey.com/docs/misc/Performance.htm

SetBatchLines -1 				; Performance setting: maximum speed for loops

ListLines Off					; Performance setting

#SingleInstance Force



script := ""

modifiers := "shift control alt"

loop, parse, modifiers, %A_SPACE%

{

   Hotkey, ~$%A_LoopField%, ~$%A_LoopField%, Off

   Hotkey, ~$%A_LoopField% UP, ~$%A_LoopField% UP, Off

}



^[:: 

{

text := ""

loop, parse, modifiers, %A_SPACE%

{

   Hotkey, ~$%A_LoopField%, ~$%A_LoopField%, On

   Hotkey, ~$%A_LoopField% UP, ~$%A_LoopField% UP, On

}

Loop

{

Input, text, V L1, {LWin}{BS}{RWin}{AppsKey}{F1}{F2}{F3}{F4}{F5}{F6}{F7}{F8}{F9}{F10}{F11}{F12}{Left}{Right}{Up}{Down}{Home}{End}{PgUp}{PgDn}{Del}{Ins}{Capslock}{Numlock}{PrintScreen}{Pause}{Escape}

IfInString, ErrorLevel, EndKey

{

   StringTrimLeft, ErrorLevel, ErrorLevel,7

   If (ErrorLevel != "Pause") 

      script := script text "{" ErrorLevel "}" 

   else if (ErrorLevel = "Pause")

   {

      script := script text

      MsgBox %script%

      Tooltip

      break

   }

   ToolTip, %script%

   continue

}

   script := script text

   ToolTip, %script%

}

return



~$shift:: script := addMod("shift","down",script)

~$shift UP:: script := addMod("shift","up",script)

~$control:: script := addMod("control","down",script)

~$control UP:: script := addMod("control","up",script)

~$alt:: script := addMod("alt","down",script)

~$alt UP:: script := addMod("alt","up",script)

}





addMod(mod,dir,script)

{

	global ; "global" so mod_old and dir_old are remembered between calls to this function

	if(mod = mod_old) and (dir = dir_old)	; this is to prevent {shiftdown}{shiftdown}{shiftdown}{shiftdown}etc

		return script

	else

	{

		mod_old := mod

		dir_old := dir

	}

	script := script "{" mod dir "}"

	Tooltip, %script%

	return script

}

[Maestr0]

I'm sorry, I don't have any more time tonight, but maybe you can build on what I managed to scrape together.
There's probably a better way to do this (keyhistory seems to see the CTRL and a just fine) but meh

#Persistent
#NoEnv  					; Performance setting: http://www.autohotkey.com/docs/misc/Performance.htm
SetBatchLines -1 			; Performance setting: maximum speed for loops
ListLines Off				; Performance setting
#SingleInstance Force

gosub Transcribe_ASCII	; for ctrl-c etc capture

script := ""
modifiers := "shift control alt"
loop, parse, modifiers, %A_SPACE%
{
   Hotkey, ~$%A_LoopField%, ~$%A_LoopField%, Off
   Hotkey, ~$%A_LoopField% UP, ~$%A_LoopField% UP, Off
}

^[:: 
{
text := ""
loop, parse, modifiers, %A_SPACE%
{
   Hotkey, ~$%A_LoopField%, ~$%A_LoopField%, On
   Hotkey, ~$%A_LoopField% UP, ~$%A_LoopField% UP, On
}
Loop
{
; added M to input to capture the CTRL-A through CTRL-Z, problem now is that those will generate ASCII characters, so we need to be transcribed
Input, text, M V L1, {LWin}{BS}{RWin}{AppsKey}{F1}{F2}{F3}{F4}{F5}{F6}{F7}{F8}{F9}{F10}{F11}{F12}{Left}{Right}{Up}{Down}{Home}{End}{PgUp}{PgDn}{Del}{Ins}{Capslock}{Numlock}{PrintScreen}{Pause}{Escape}
if ctrl_list contains %text%	; this checks if the input was a ctrl-combination, though ctrl-J seems to be equal to {enter}
{
	outputdebug %text% is a ctrl-combination
}
IfInString, ErrorLevel, EndKey
{
   StringTrimLeft, ErrorLevel, ErrorLevel,7
   If (ErrorLevel != "Pause")
     script := script text "{" ErrorLevel "}" 
   else if (ErrorLevel = "Pause")
   {
      script := script text
      MsgBox %script%
      Tooltip
      break
   }
   ToolTip, %script%
   continue
}
   script := script text
   ToolTip, %script%
}
return

~$shift:: script := addMod("shift","down",script)
~$shift UP:: script := addMod("shift","up",script)
~$control:: script := addMod("control","down",script)
~$control UP:: script := addMod("control","up",script)
~$alt:: script := addMod("alt","down",script)
~$alt UP:: script := addMod("alt","up",script)
}


addMod(mod,dir,script)
{
	global ; "global" so mod_old and dir_old are remembered between calls to this function
	if(mod = mod_old) and (dir = dir_old)	; this is to prevent {shiftdown}{shiftdown}{shiftdown}{shiftdown}etc
		return script
	else
	{
		mod_old := mod
		dir_old := dir
	}
	script := script "{" mod dir "}"
	Tooltip, %script%
	return script
}

Transcribe_ASCII:
	alphabet = a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z
	loop, parse, alphabet, `,
	{
		Transform, Ctrl%A_LoopField%, Chr, %A_Index% ; Store the character for Ctrl-letter in the Ctrl_ var.
		ctrl_list .= Ctrl%A_LoopField%				; to match the text-variable against
	}
	outputdebug > %ctrl_list%
return