Toggle any window clickthrough on/off

[OrangeCat]

I've been searching for hours but yet can't find a solution to my problem...

I found bits & pieces online for transparency and successfully integrated it into my script...
...but I can't figure out how to properly set a clickthrough toggle...
I can set a window as clickthrough, but then when doing so it then it gets stuck in that state (as I am unable to toggle clickthrough off...)

TRANSPARENCY:

Code: Select all

~RButton & WheelUp::Gosub, _WinTransparentUp
~RButton & WheelDown::Gosub, _WinTransparentDown

_WinTransparentUp:
    DetectHiddenWindows, on
    WinGet, curtrans, Transparent, A
      if ! curtrans
          curtrans = 255
      newtrans := curtrans + 8
      if newtrans > 0
      {
          WinSet, Transparent, %newtrans%, A
      }
      else
      {
          WinSet, Transparent, OFF, A
          WinSet, Transparent, 255, A
      }
      return
RETURN

_WinTransparentDown:
    DetectHiddenWindows, on
    WinGet, curtrans, Transparent, A
      if ! curtrans
          curtrans = 255
      newtrans := curtrans - 8
      if newtrans > 0
      {
          WinSet, Transparent, %newtrans%, A
      }
      return
RETURN

CLICKTHROUGH

Code: Select all

  ~RButton & LButton::Gosub, _WinClickThrough

  ClickThrough := !ClickThrough
    If Clickthrough
      WinSet, ExStyle, +0x20, A
    Else
      WinSet, ExStyle, -0x20, A
    Return

ALWAYS ON TOP

Code: Select all

~RButton & XButton1::WINSET, AlwaysOnTop, , A ;

[mikeyww]

I did not test this, you might want to try a specific WinTitle instead of A.

[OrangeCat]

Was wondering, If I were to change the class of an .exe, would this affect anything?
Wondering if I should change the class via a clickthrough toggle, as-well as setting a %count% for each .exe applied hotkey, so that way I can disable clickthrough via class call?

Unless if you or anyone else would have a suggestion on how to universally apply this?

Also... I changed the transparency code as follows:

Code: Select all

; ######################################################################
; USED FOR A WHILE LOOP, WHERE RELEASING "RBUTTON" EXITS SAID WHILE LOOP
; ######################################################################
_WinTransparentHotkey := 0

~RButton Up::
	_WinTransparentHotkey = 0
RETURN



; ################################################
; HOTKEY USED TO ACTIVATE "WHEEL AS TRANSPARENCY"
; ################################################
	~RButton & MButton::
		_WinTransparentHotkey = 1
		While WinTransparentHotkey = 1
			Gosub, _WinTransparentWheels
		Return
	RETURN

	_WinTransparentWheels:
		~RButton & WheelUp::Gosub, _WinTransparentUp
		~RButton & WheelDown::Gosub, _WinTransparentDown
		  WinSet, Transparent %WinT%, % A
	RETURN



; ##############################
; WHEEL AS TRANSPARENCY GOSUBS
; ##############################
	_WinTransparentUp:
		DetectHiddenWindows, on
		WinGet, curtrans, Transparent, A
		If ! curtrans
			curtrans = 255
			newtrans := curtrans + 8
			If newtrans > 0
      			{
				WinSet, Transparent, %newtrans%, A
			}
			Else
			{
				WinSet, Transparent, OFF, A
				WinSet, Transparent, 255, A
			}
		Return
	RETURN
  
	_WinTransparentDown:
		DetectHiddenWindows, on
		WinGet, curtrans, Transparent, A
			If ! curtrans
				curtrans = 255
				newtrans := curtrans - 8
				If newtrans > 0
				{
					WinSet, Transparent, %newtrans%, A
				}
			Return
	RETURN

[mikeyww]

I don't know, but I would solve one problem at a time, and I cannot tell whether the problem that you originally posted has been resolved. Regarding "would this affect anything?", you may be able to determine that by running your script.