Changing brightness and dimming screen with one hotkey

[Net_Wars]

Hi,
Is it possible to change brightness and dimm screen using one hotkey?
For me it should work like this:
if the screen brightness := 0 then (while pressing LWin & A) it will dimm the screen
also if the dimm level :=0 then (while pressing LWin & D) it will change screen brightness

I've got BrightnessSetter by qwerty12 and Screen dimmer program by dangerdogL2121 (changed a little bit)

BrightnessSetter is using variable %currBrightness% for storing current brightness level

This is where I want it to be placed

Spoiler

Code: Select all

LWin & d::
BrightnessSetter.SetBrightness(10)
return

LWin & a::
BrightnessSetter.SetBrightness(-10)
return

And this is dangerdogL2121 dimmer script (changed by me)
;next spoilers contains rest of script

Spoiler

Code: Select all

#NoEnv
#SingleInstance,Ignore
runspeed=0
editspeed=0

Beg:
Gui, New,, Gui1
Gui, Font, CWhite
Gui, Add, Picture, x0 y0 w65, C:\Users\Acer\Desktop\Pulpit - nowy\Skrypty\background.png
Gui, Add, Progress, x27 y20 w11 h79 Range0-100 c8C8C8C Background6A6A6A vMyProgress Vertical,%editspeed%
Gui, Add, Text, x24 y110 w17 h23 veditspeed geditchange BackgroundTrans Center,%editspeed%
WinSet, Transparent, 0, Gui1
Gui, -Caption +AlwaysOnTop +0x8000000 +owner
Gui, Show, x50 y60 w65 h139 NoActivate, Gui1
Gui, Destroy
return

Next:
Gui, New,, Gui3
Gui, Font, CWhite
Gui, Add, Picture, x0 y0 w65, C:\Users\Acer\Desktop\Pulpit - nowy\Skrypty\background.png
Gui, Add, Progress, x27 y20 w11 h79 Range0-100 c8C8C8C Background6A6A6A vMyProgress Vertical,%editspeed%
if editspeed = 0
Gui, Add, Picture, x27 y88 w11 h11, C:\Users\Acer\Desktop\Pulpit - nowy\Skrypty\white.png
if editspeed = 10
Gui, Add, Picture, x27 y81 w11 h11, C:\Users\Acer\Desktop\Pulpit - nowy\Skrypty\white.png
if editspeed = 20
Gui, Add, Picture, x27 y74 w11 h11, C:\Users\Acer\Desktop\Pulpit - nowy\Skrypty\white.png
if editspeed = 30
Gui, Add, Picture, x27 y67 w11 h11, C:\Users\Acer\Desktop\Pulpit - nowy\Skrypty\white.png
if editspeed = 40
Gui, Add, Picture, x27 y60 w11 h11, C:\Users\Acer\Desktop\Pulpit - nowy\Skrypty\white.png
if editspeed = 50
Gui, Add, Picture, x27 y54 w11 h11, C:\Users\Acer\Desktop\Pulpit - nowy\Skrypty\white.png
if editspeed = 60
Gui, Add, Picture, x27 y47 w11 h11, C:\Users\Acer\Desktop\Pulpit - nowy\Skrypty\white.png
if editspeed = 70
Gui, Add, Picture, x27 y40 w11 h11, C:\Users\Acer\Desktop\Pulpit - nowy\Skrypty\white.png
if editspeed = 80
Gui, Add, Picture, x27 y33 w11 h11, C:\Users\Acer\Desktop\Pulpit - nowy\Skrypty\white.png
if editspeed = 90
Gui, Add, Picture, x27 y26 w11 h11, C:\Users\Acer\Desktop\Pulpit - nowy\Skrypty\white.png
if editspeed = 100
Gui, Add, Picture, x27 y20 w11 h11, C:\Users\Acer\Desktop\Pulpit - nowy\Skrypty\white.png
Gui, Add, Text, x24 y110 w17 h23 veditspeed geditchange BackgroundTrans Center,%editspeed%
Gui, -Caption +AlwaysOnTop +0x8000000 +owner
WinSet, Transparent, 0, Gui3
Gui, Show, x50 y60 w65 h139 NoActivate, Gui3

Code: Select all

LWin & q::
editspeed+=10
Gosub,dim
GuiControl,, MyProgress, +-10
transparent=0
Gosub,fade
return
LWin & e::
editspeed-=10
Gosub,dim
GuiControl,, MyProgress, +10
transparent=0
Gosub,fade
return

Spoiler

Code: Select all

;zanikanie
fade:
SetTimer, fading, 1200
return

fading:
WinSet, Transparent, 220, Gui3
Sleep 100
WinSet, Transparent, 190, Gui3
Sleep 100
WinSet, Transparent, 160, Gui3
Sleep 100
WinSet, Transparent, 130, Gui3
Sleep 100
WinSet, Transparent, 100, Gui3
Sleep 100
WinSet, Transparent, 75, Gui3
Sleep 100
WinSet, Transparent, 50, Gui3
Sleep 100
WinSet, Transparent, 20, Gui3
Sleep 100
transparent=1
Loop {
WinSet, Transparent, 0, Gui3
} Until transparent=0
return

changespeed:
Gui, Submit, NoHide
GuiControl,, editspeed, %runspeed%
return

editchange:
Gui, Submit, NoHide
GuiControl,, runspeed, %editspeed%
return

dim:
Gui, New,, Gui2
if editspeed < 0
editspeed = 0
if editspeed > 100
editspeed = 100
Gui, Destroy
Gui, Color, 000000
Gui, -Caption +AlwaysOnTop +E0x20 +0x8000000 +owner
Gui, Show, x0 y0 w%A_ScreenWidth% h%A_ScreenHeight% NoActivate, Light Blocking GUI
WinSet, Transparent, %editspeed%, Light Blocking GUI
Gosub,next
return

;wyłączenie awaryjne
^F2::
ToolTip, Skrypt wyłączony
Sleep, 750
ExitApp
return

If its possible please help me.
Its not very important (as You can see I'm using LWin & Q and LWin & E hotkeys instead)

Sorry if my English is little bad.
Thanks in advance for your help

[CyL0N]

Press and hold hotkey to increase brightness, & tap repeatedly to decrease it...

Code: Select all

i:=0

LWin::
KeyWait, %A_ThisHotkey%, T0.2
If ErrorLevel		;if being held & while it continues to be held
	ToolTip % i++
else				;if being pressed
	ToolTip % i--
Return

Code: Select all

LWin::
KeyWait, %A_ThisHotkey%, T0.2
If ErrorLevel		;if being held & while it continues to be held
	BrightnessSetter.SetBrightness(10)
else				;if being tapped
	BrightnessSetter.SetBrightness(-10)
Return

[Net_Wars]

That's not what I'm looking for.
My idea was to use one hotkey to do two things.
I've got another question related to my problem
Is it possible to suspend only two hotkeys from script containing many of them or make something like profiles? Maybe I can use ScrollLock to change action of this hotkeys?

[CyL0N]

Ehmm, it is a SINGLE hotkey that does two things,you just either TAP or HOLD,unless there's another way to use a single hotkey for different things,which in case there is, i too would like to know...

As For Selectively 'Suspending' Hotkeys,it's easy enough...

Code: Select all

weAreAllowed := True

#If weAreAllowed
x::
y::
MsgBox We Are Allowed
Return
#If


LWin::
MsgBox A Third Hotkey to disable,the other two...
weAreAllowed := False
Return

[oif2003]

You can assign the number of keypresses within an allotted time to trigger different actions. For example:
1 press = +25% brightness, and stacks up to 4 times (100%) as long as the keypresses are within 400 ms.
Here's an example taken from AutoHotkey v2's documentation on SetTimer:

Code: Select all

#SingleInstance Force
; Example #3: Detection of single, double, and triple-presses of a hotkey. This
; allows a hotkey to perform a different operation depending on how many times
; you press it:
#c::
KeyWinC()  ; This is a function hotkey.
{
    static winc_presses := 0
    if winc_presses > 0 ; SetTimer already started, so we log the keypress instead.
    {
        winc_presses += 1
        return
    }
    ; Otherwise, this is the first press of a new series. Set count to 1 and start
    ; the timer:
    winc_presses := 1
    SetTimer "After400", -400 ; Wait for more presses within a 400 millisecond window.

    After400()  ; This is a nested function.
    {
        if winc_presses = 1 ; The key was pressed once.
        {
            MsgBox "One click detected."  
        }
        else if winc_presses = 2 ; The key was pressed twice.
        {
            MsgBox "Two clicks detected." 
        }
        else if winc_presses > 2
        {
            MsgBox "Three or more clicks detected."
        }
        ; Regardless of which action above was triggered, reset the count to
        ; prepare for the next series of presses:
        winc_presses := 0
    }
}

[oif2003]

Here's a version that refreshes the timer. It will continue to take in keypresses as long as the current keypress is within a given time period of the previous one. This will allow you to stack up to any amount of keypresses you want. (Note: for AHK v2)

Code: Select all

#SingleInstance Force
timeOutInterval := 300	;set the maximum allowed interval between keys in milliseconds

`:: 
keypress() {
	global timeOutInterval
	static pressCount := 0
	
	pressCount++
	currCount := pressCount	;the number of keypresses when we start the timer
	SetTimer(()=>expired(), -timeOutInterval)
	
	expired() {
		; if timer expires without seeing more keypresses
		if currCount == pressCount {
			;Do stuff based on number of keypresses
			ToolTip(pressCount " presses detected.")
			SetTimer(()=>ToolTip(), -1000)
			
			pressCount := 0
		}	
	}
}