krrr/brightness.ahk

tsogview · 2018-08-08T03:57:21Z

really good code，IM such a numb on ahk

erikjmartinez · 2018-11-06T07:56:30Z

Awesome! Just what I was looking for! Can you, if you don't mind, walk me through the code?
I understand the top where you you declare and assign values to the variables.
Just everything after that.

Thanks again!

TPosition · 2021-03-24T18:38:24Z

Thanks for your code, could you make it display the built-in light indicator like image below?

Ahmad-f79 · 2021-03-27T19:38:23Z

@TPosition

AdjustScreenBrightness(step) {
	static service := "winmgmts:{impersonationLevel=impersonate}!\\.\root\WMI"
	monitors := ComObjGet(service).ExecQuery("SELECT * FROM WmiMonitorBrightness WHERE Active=TRUE")
	monMethods := ComObjGet(service).ExecQuery("SELECT * FROM wmiMonitorBrightNessMethods WHERE Active=TRUE")
	for i in monitors {
		curr := i.CurrentBrightness
		break
	}
	toSet := curr + step
	if (toSet < 10)
		toSet := 10
	if (toSet > 100)
		toSet := 100
	for i in monMethods {
		i.WmiSetBrightness(1, toSet)
		break
	}
	BrightnessOSD()
}
BrightnessOSD() {
	static PostMessagePtr := DllCall("GetProcAddress", "Ptr", DllCall("GetModuleHandle", "Str", "user32.dll", "Ptr"), "AStr", A_IsUnicode ? "PostMessageW" : "PostMessageA", "Ptr")
	 ,WM_SHELLHOOK := DllCall("RegisterWindowMessage", "Str", "SHELLHOOK", "UInt")
	static FindWindow := DllCall("GetProcAddress", "Ptr", DllCall("GetModuleHandle", "Str", "user32.dll", "Ptr"), "AStr", A_IsUnicode ? "FindWindowW" : "FindWindowA", "Ptr")
	HWND := DllCall(FindWindow, "Str", "NativeHWNDHost", "Str", "", "Ptr")
	IF !(HWND) {
		try IF ((shellProvider := ComObjCreate("{C2F03A33-21F5-47FA-B4BB-156362A2F239}", "{00000000-0000-0000-C000-000000000046}"))) {
			try IF ((flyoutDisp := ComObjQuery(shellProvider, "{41f9d2fb-7834-4ab6-8b1b-73e74064b465}", "{41f9d2fb-7834-4ab6-8b1b-73e74064b465}"))) {
				DllCall(NumGet(NumGet(flyoutDisp+0)+3*A_PtrSize), "Ptr", flyoutDisp, "Int", 0, "UInt", 0)
				 ,ObjRelease(flyoutDisp)
			}
			ObjRelease(shellProvider)
		}
		HWND := DllCall(FindWindow, "Str", "NativeHWNDHost", "Str", "", "Ptr")
	}
	DllCall(PostMessagePtr, "Ptr", HWND, "UInt", WM_SHELLHOOK, "Ptr", 0x37, "Ptr", 0)
}

BrightnessOSD() credits: YashMaster and qwerty12

samuelcaldas · 2021-07-23T05:59:55Z

it was all i was looking for

erbanku · 2021-10-12T13:03:42Z

Modified a little bit, so that we can change brightness via Shift + Mouse Wheel (Scroll up & down)

+WheelDown::
  AdjustScreenBrightness(-3)
  Return
  
+WheelUp::
  AdjustScreenBrightness(3)
  Return
  
AdjustScreenBrightness(step) {
    service := "winmgmts:{impersonationLevel=impersonate}!\\.\root\WMI"
    monitors := ComObjGet(service).ExecQuery("SELECT * FROM WmiMonitorBrightness WHERE Active=TRUE")
    monMethods := ComObjGet(service).ExecQuery("SELECT * FROM wmiMonitorBrightNessMethods WHERE Active=TRUE")
    minBrightness := 5  ; level below this is identical to this

    for i in monitors {
        curt := i.CurrentBrightness
        break
    }
    if (curt < minBrightness)  ; parenthesis is necessary here
        curt := minBrightness
    toSet := curt + step
    if (toSet > 100)
        return
    if (toSet < minBrightness)
        toSet := minBrightness
        
    

    for i in monMethods {
        i.WmiSetBrightness(1, toSet)
        break
    }
}

erbanku · 2021-10-12T13:06:50Z

BTW share an AHK code for changing volume via Windows Key + Mouse Wheel (Scroll up & down) , enjoy.

#WheelUp::Volume_Up
#WheelDown::Volume_Down

dpw1 · 2021-10-19T00:14:16Z

BTW share an AHK code for changing volume via Windows Key + Mouse Wheel (Scroll up & down) , enjoy.
#WheelUp::Volume_Up
#WheelDown::Volume_Down

That is very helpful, @erbanku , thank you!

Write · 2021-10-20T15:27:09Z

Is there a way to support "Regular" monitor ? I know that I can do it with this soft : https://github.com/blackholeearth/Win10_BrightnessSlider
I would love it to for this script to support ddc/ci monitors idk if that easy ¯\(ツ)/¯

As long as we are in useful scripts, here's my script to change volume on task bar hover + scroll

I also use Ctrl + Scroll + Hover Task bar to change Brightness with flux and Color With Alt+ Scroll + Hover Task Bar
(I currently use f.lux to set the brightness but AFAIK it only fake a lower brightness, it doesn't actually reduce the backlighting)

;-----------------------------------------------------------------------------
; Change volume using scroll wheel over taskbar / sound
;-----------------------------------------------------------------------------
#If MouseIsOver("ahk_class Shell_TrayWnd") OR MouseIsOver("ahk_class Shell_SecondaryTrayWnd")

    ; Flux Brightness
    ; DOWN
    ^WheelDown::
        SendInput, {alt down}{PgDn down}{PgDn up}{alt up}
    Return

    ; UP
    ^WheelUp::
        SendInput, {alt down}{PgUp down}{PgUp up}{alt up}
    Return
    ; End Brightness

    ; Flux colors
    ; DOWN
    !WheelDown::
        SendInput, {Alt down}{Shift Down}{PgDn down}{PgDn up}{Shift Up}{alt up}
    Return

    ; UP
    !WheelUp::
        SendInput, {Alt down}{Shift Down}{PgUp down}{PgUp up}{Shift Up}{alt up}
    Return
    ; End colors


    WheelUp::
    Send {Volume_Up}
    Send {Volume_Up}
    return

    WheelDown::
    Send {Volume_Down}
    Send {Volume_Down}
    Return

    MButton::
    Send {Volume_Mute}
    Return

    MouseIsOver(WinTitle) {
        MouseGetPos,,, Win
        return WinExist(WinTitle . " ahk_id " . Win)
    }
#If
Return

krrr · 2021-10-30T00:51:17Z

I'm not using this script anymore, and recommend this opensource uwp app: https://github.com/xanderfrangos/twinkle-tray

GameEntity903 · 2022-11-23T16:00:47Z

Hey, I saw this script and I was wondering how to get the current brightness of the screen outside the function.

Rabelaiss · 2022-12-19T14:43:29Z

@Ahmad-f79 Does it work on Windows 11 too? I'm trying it but it shows the volume indicator instead

erbanku · 2022-12-20T00:58:33Z

@Ahmad-f79 Does it work on Windows 11 too? I'm trying it but it shows the volume indicator instead

The below code works fine in Windows 11. You can adjust the brightness using Shift+Mouse Scroller Up/Down.

;Shift + Mouse Scroller

+WheelDown::
    AdjustScreenBrightness(-5)
Return

+WheelUp::
    AdjustScreenBrightness(5)
Return

AdjustScreenBrightness(step) {
    service := "winmgmts:{impersonationLevel=impersonate}!\\.\root\WMI"
    monitors := ComObjGet(service).ExecQuery("SELECT * FROM WmiMonitorBrightness WHERE Active=TRUE")
    monMethods := ComObjGet(service).ExecQuery("SELECT * FROM wmiMonitorBrightNessMethods WHERE Active=TRUE")
    minBrightness := 5 ; level below this is identical to this

    for i in monitors {
        curt := i.CurrentBrightness
        break
    }
    if (curt < minBrightness) ; parenthesis is necessary here
        curt := minBrightness
    toSet := curt + step
    if (toSet > 100)
        return
    if (toSet < minBrightness)
        toSet := minBrightness

    for i in monMethods {
        i.WmiSetBrightness(1, toSet)
        break
    }
}

Rabelaiss · 2022-12-20T07:52:44Z

@erbanku Thank you, yes I'm using that piece of code, but it does not let the brightness bar popup appear

I tried using the code posted by @Ahmad-f79 but it doesn't work (I'm on Windows 11)

venturqx · 2024-03-23T18:09:26Z

@Rabelaiss Did you find a solution to display the Brightness OSD on W11 ?

sameert89 · 2024-04-26T15:31:36Z

Updated Script for AHK v2. I could not get the OS brightness popup to work, So I implemented my own tooltip.

; Brightness Control ;

+WheelDown::
{
  AdjustScreenBrightness(-3)
  return
}

+WheelUp::
{
  AdjustScreenBrightness(3)
  return
}

AdjustScreenBrightness(step) {
    service := "winmgmts:{impersonationLevel=impersonate}!\\.\root\WMI"
    monitors := ComObjGet(service).ExecQuery("SELECT * FROM WmiMonitorBrightness WHERE Active=TRUE")
    monMethods := ComObjGet(service).ExecQuery("SELECT * FROM wmiMonitorBrightNessMethods WHERE Active=TRUE")
    minBrightness := 0

    curt := 0 
    for monitor in monitors {
        curt := monitor.CurrentBrightness
        break
    }
    if (curt < minBrightness) {  
        curt := minBrightness
    }
    toSet := curt + step
    if (toSet > 100) {
        ToolTip "Brightness: 100%"
        return
    }
    if (toSet < minBrightness) {
        toSet := minBrightness
    }

    for method in monMethods {
        method.WmiSetBrightness(1, toSet)
        break
    }
    ToolTip "Brightness: " toSet "%"
    SetTimer RemoveToolTip, -1000  ; Remove tooltip after 1 second
}

RemoveToolTip(){
	ToolTip  ; Clears the tooltip
	return
}

noticz · 2024-11-10T01:09:36Z

@venturqx, @Rabelaiss
Here is my updated code with windows GUI brightness overlay... working on my Lenovo laptop with Win 10.

#SingleInstance, Force

; Mouse scroll up and down holding shift
+WheelDown::
{
	AdjustScreenBrightness(-10)
	BrightnessOSD()
	return
}

+WheelUp::
{
	AdjustScreenBrightness(10)
	BrightnessOSD()
	return
}

AdjustScreenBrightness(step) {
    service := "winmgmts:{impersonationLevel=impersonate}!\\.\root\WMI"
    monitors := ComObjGet(service).ExecQuery("SELECT * FROM WmiMonitorBrightness WHERE Active=TRUE")
    monMethods := ComObjGet(service).ExecQuery("SELECT * FROM wmiMonitorBrightNessMethods WHERE Active=TRUE")
    minBrightness := 0

    curt := 0 
    for monitor in monitors {
        curt := monitor.CurrentBrightness
        break
    }
    if (curt < minBrightness) {  
        curt := minBrightness
    }
    toSet := curt + step
    if (toSet > 100) {
        return
    }
    if (toSet < minBrightness) {
        toSet := minBrightness
    }

    for method in monMethods {
        method.WmiSetBrightness(1, toSet)
        break
    }
}

BrightnessOSD() {
	static PostMessagePtr := DllCall("GetProcAddress", "Ptr", DllCall("GetModuleHandle", "Str", "user32.dll", "Ptr"), "AStr", A_IsUnicode ? "PostMessageW" : "PostMessageA", "Ptr")
	 ,WM_SHELLHOOK := DllCall("RegisterWindowMessage", "Str", "SHELLHOOK", "UInt")
	static FindWindow := DllCall("GetProcAddress", "Ptr", DllCall("GetModuleHandle", "Str", "user32.dll", "Ptr"), "AStr", A_IsUnicode ? "FindWindowW" : "FindWindowA", "Ptr")
	HWND := DllCall(FindWindow, "Str", "NativeHWNDHost", "Str", "", "Ptr")
	IF !(HWND) {
		try IF ((shellProvider := ComObjCreate("{C2F03A33-21F5-47FA-B4BB-156362A2F239}", "{00000000-0000-0000-C000-000000000046}"))) {
			try IF ((flyoutDisp := ComObjQuery(shellProvider, "{41f9d2fb-7834-4ab6-8b1b-73e74064b465}", "{41f9d2fb-7834-4ab6-8b1b-73e74064b465}"))) {
				DllCall(NumGet(NumGet(flyoutDisp+0)+3*A_PtrSize), "Ptr", flyoutDisp, "Int", 0, "UInt", 0)
				 ,ObjRelease(flyoutDisp)
			}
			ObjRelease(shellProvider)
		}
		HWND := DllCall(FindWindow, "Str", "NativeHWNDHost", "Str", "", "Ptr")
	}
	DllCall(PostMessagePtr, "Ptr", HWND, "UInt", WM_SHELLHOOK, "Ptr", 0x37, "Ptr", 0)
}

uvvvvs · 2024-11-12T21:47:46Z

If there was a way to adjust the brightness through "hovering the mouse on the top part of screen and then using the mouse wheel", instead of pressing the Shift key on the keyboard while using the mouse wheel would be a great, speedy action and yet more practical to my mind.
Could the current code be written this way? I did not have the knowledge to write it myself :(

krrr/brightness.ahk

tsogview commented Aug 8, 2018

erikjmartinez commented Nov 6, 2018

TPosition commented Mar 24, 2021

Ahmad-f79 commented Mar 27, 2021 •

edited

Loading

samuelcaldas commented Jul 23, 2021

erbanku commented Oct 12, 2021

erbanku commented Oct 12, 2021

dpw1 commented Oct 19, 2021

Write commented Oct 20, 2021 •

edited

Loading

krrr commented Oct 30, 2021

GameEntity903 commented Nov 23, 2022

Rabelaiss commented Dec 19, 2022

erbanku commented Dec 20, 2022 •

edited

Loading

Rabelaiss commented Dec 20, 2022

venturqx commented Mar 23, 2024

sameert89 commented Apr 26, 2024 •

edited

Loading

noticz commented Nov 10, 2024 •

edited

Loading

uvvvvs commented Nov 12, 2024

	#,::
	AdjustScreenBrightness(-3)
	Return

	#.::
	AdjustScreenBrightness(3)
	Return

	AdjustScreenBrightness(step) {
	service := "winmgmts:{impersonationLevel=impersonate}!\\.\root\WMI"
	monitors := ComObjGet(service).ExecQuery("SELECT * FROM WmiMonitorBrightness WHERE Active=TRUE")
	monMethods := ComObjGet(service).ExecQuery("SELECT * FROM wmiMonitorBrightNessMethods WHERE Active=TRUE")
	minBrightness := 5 ; level below this is identical to this

	for i in monitors {
	curt := i.CurrentBrightness
	break
	}
	if (curt < minBrightness) ; parenthesis is necessary here
	curt := minBrightness
	toSet := curt + step
	if (toSet > 100)
	return
	if (toSet < minBrightness)
	toSet := minBrightness



	for i in monMethods {
	i.WmiSetBrightness(1, toSet)
	break
	}
	}

krrr/brightness.ahk

tsogview commented Aug 8, 2018

erikjmartinez commented Nov 6, 2018

TPosition commented Mar 24, 2021

Ahmad-f79 commented Mar 27, 2021 • edited Loading

samuelcaldas commented Jul 23, 2021

erbanku commented Oct 12, 2021

erbanku commented Oct 12, 2021

dpw1 commented Oct 19, 2021

Write commented Oct 20, 2021 • edited Loading

krrr commented Oct 30, 2021

GameEntity903 commented Nov 23, 2022

Rabelaiss commented Dec 19, 2022

erbanku commented Dec 20, 2022 • edited Loading

Rabelaiss commented Dec 20, 2022

venturqx commented Mar 23, 2024

sameert89 commented Apr 26, 2024 • edited Loading

noticz commented Nov 10, 2024 • edited Loading

uvvvvs commented Nov 12, 2024

Ahmad-f79 commented Mar 27, 2021 •

edited

Loading

Write commented Oct 20, 2021 •

edited

Loading

erbanku commented Dec 20, 2022 •

edited

Loading

sameert89 commented Apr 26, 2024 •

edited

Loading

noticz commented Nov 10, 2024 •

edited

Loading