Hello everyone,
sorry I do not speak English.
I'm looking for a script to increase or decrease the brightness of the monitor. Can you help?
Brightness Monitor
Started by
Giuseppe
, Oct 07 2010 09:38 AM
7 replies to this topic
#1
-
Posted 07 October 2010 - 09:38 AM
The first question I'd ask is, is this a laptop or desktop monitor, etc. Most laptop monitors have software/hotkeys for this, which would make things pretty direct/simplified for assigning a hotkey, etc. But if it was a desktop monitor, I'm sure it could be done via a few diff methods (have at least 2 ideas myself).
Cheers.
Cheers.
#2
-
Posted 07 October 2010 - 12:10 PM
brightness no for desktop monitor
the control is on the monitor itself
and most likely u will hear ppl say overlay a grey/black gui, which has nothing to do with brightness
the control is on the monitor itself
and most likely u will hear ppl say overlay a grey/black gui, which has nothing to do with brightness
#3
-
Posted 07 October 2010 - 12:13 PM
brightness no for desktop monitor
the control is on the monitor itself
and most likely u will hear ppl say overlay a grey/black gui, which has nothing to do with brightness
That was my idea!
Prob most viable, though I personally have absolutely no clue how to achieve that lol.
Goodluck with it, I searched around and this seems to be going in the right direction.
<!-- m -->http://www.autohotke... ... brightness<!-- m -->
#4
-
Posted 07 October 2010 - 12:18 PM
Hello again Giuseppe.. I have a script from Skrommel's site, and it's called Dim Screen.ahk
Made by: Skrommel 8)
Made by: Skrommel 8)
;DimScreen.ahk ; Dim the screen via the tray icon ;Skrommel @2007 #SingleInstance,Force #NoEnv SetWinDelay,0 applicationname=DimScreen Gosub,INIREAD Gosub,MENU Gosub,GUI LOOP: WinGet,id,Id,A WinSet,AlwaysOnTop,On,ahk_id %guiid% WinWaitNotActive,ahk_id %id% IfWinNotExist,ahk_id %guiid% Gosub,GUI Goto,LOOP CHANGE: Menu,Tray,UnCheck,% "&" dimming*10 "%" If A_ThisMenuItem<> dimming:=A_ThisMenuItemPos-3 Menu,Tray,Check,% "&" dimming*10 "%" WinSet,Transparent,% dimming*255/10,ahk_id %guiid% Return DECREASE: Menu,Tray,UnCheck,% "&" dimming*10 "%" dimming-=1 If dimming<0 dimming=0 Menu,Tray,Check,% "&" dimming*10 "%" WinSet,Transparent,% dimming*255/10,ahk_id %guiid% Return GUI: Gui,+ToolWindow -Disabled -SysMenu -Caption +E0x20 +AlwaysOnTop Gui,Color,000000 Gui,Show,% "X0 Y0 W" . A_ScreenWidth "H" . A_ScreenHeight,%applicationname% Screen Gui,+LastFound WinGet,guiid,Id,A Gosub,CHANGE Return MENU: Menu,Tray,DeleteAll Menu,Tray,NoStandard Menu,Tray,Add,%applicationname%,ABOUT Menu,Tray,Default,%applicationname% Menu,Tray,Add, Loop,10 Menu,Tray,Add,% "&" A_Index*10-10 "%",CHANGE Menu,Tray,Add, Menu,Tray,Add,&Settings...,SETTINGS Menu,Tray,Add,&About...,ABOUT Menu,Tray,Add,&Exit,EXIT Menu,Tray,Tip,%applicationname% Return INCREASE: Menu,Tray,UnCheck,% "&" dimming*10 "%" dimming+=1 If dimming>9 dimming=9 Menu,Tray,Check,% "&" dimming*10 "%" WinSet,Transparent,% dimming*255/10,ahk_id %guiid% Return SETTINGS: Hotkey,%hotkey1%,Off Hotkey,%hotkey2%,Off Gui,2:Destroy Gui,2:Add,GroupBox,xm y+20 w175,&Startup dimming (0-90 `%) Gui,2:Add,Edit,xp+10 yp+20 w155 vvdimming,% dimming*10 Gui,2:Add,GroupBox,xm y+20 w175 h70,&Increase dimming hotkey Gui,2:Add,Hotkey,xp+10 yp+20 w155 vvhotkey1,% hotkey1 Gui,2:Add,Text,,Current: %hotkey1% Gui,2:Add,GroupBox,xm y+20 w175 h70,&Decrease dimming hotkey Gui,2:Add,Hotkey,xp+10 yp+20 w155 vvhotkey2,% hotkey2 Gui,2:Add,Text,,Current: %hotkey2% Gui,2:Add,Button,xm y+20 w75 Default gSETTINGSOK,&OK Gui,2:Add,Button,x+5 yp w75 gSETTINGSCANCEL,&CANCEL Gui,2:Show,,%applicationname% Settings Return SETTINGSOK: Gui,2:Submit vdimming:=Floor(vdimming/10) If (vdimming>=0 And vdimming<=9) { IniWrite,%vdimming%,%applicationname%.ini,Settings,dimming } If vhotkey1<> { hotkey1:=vhotkey1 IniWrite,%hotkey1%,%applicationname%.ini,Settings,hotkey1 } If vhotkey2<> { hotkey2:=vhotkey2 IniWrite,%hotkey2%,%applicationname%.ini,Settings,hotkey2 } SETTINGSCANCEL: Gui,2:Destroy Hotkey,%hotkey1%,INCREASE Hotkey,%hotkey2%,DECREASE Return INIREAD: IniRead,dimming,%applicationname%.ini,Settings,dimming If dimming=Error dimming=5 IniRead,hotkey1,%applicationname%.ini,Settings,hotkey1 If hotkey1=Error hotkey1=^+ IniRead,hotkey2,%applicationname%.ini,Settings,hotkey2 If hotkey2=Error hotkey2=^- Hotkey,%hotkey1%,INCREASE Hotkey,%hotkey2%,DECREASE Return ABOUT: Gui,2:Destroy Gui,2:Margin,20,20 Gui,2:Add,Picture,xm Icon1,%applicationname%.exe Gui,2:Font,Bold Gui,2:Add,Text,x+10 yp+10,%applicationname% v1.1 Gui,2:Font Gui,2:Add,Text,y+10,Dim the whole screen. Gui,2:Add,Text,xp y+5,- Change the brightness by selecting a `% in the tray menu. Gui,2:Add,Text,xp y+5,- Or use the hotkeys Ctrl++ and Ctrl+-. Gui,2:Add,Text,xp y+5,- Change hotkeys using Settings in the tray menu. Gui,2:Add,Text,xp y+5,- Doesn't work properly with video windows. Gui,2:Add,Picture,xm y+20 Icon2,%applicationname%.exe Gui,2:Font,Bold Gui,2:Add,Text,x+10 yp+10,1 Hour Software by Skrommel Gui,2:Font Gui,2:Add,Text,y+10,For more tools, information and donations, please visit Gui,2:Font,CBlue Underline Gui,2:Add,Text,y+5 G1HOURSOFTWARE,www.1HourSoftware.com Gui,2:Font Gui,2:Add,Picture,xm y+20 Icon7,%applicationname%.exe Gui,2:Font,Bold Gui,2:Add,Text,x+10 yp+10,DonationCoder Gui,2:Font Gui,2:Add,Text,y+10,Please support the contributors at Gui,2:Font,CBlue Underline Gui,2:Add,Text,y+5 GDONATIONCODER,www.DonationCoder.com Gui,2:Font Gui,2:Add,Picture,xm y+20 Icon6,%applicationname%.exe Gui,2:Font,Bold Gui,2:Add,Text,x+10 yp+10,AutoHotkey Gui,2:Font Gui,2:Add,Text,y+10,This tool was made using the powerful Gui,2:Font,CBlue Underline Gui,2:Add,Text,y+5 GAUTOHOTKEY,www.AutoHotkey.com Gui,2:Font Gui,2:Show,,%applicationname% - About hCurs:=DllCall("LoadCursor","UInt",NULL,"Int",32649,"UInt") ;IDC_HAND OnMessage(0x200,"WM_MOUSEMOVE") Return 1HOURSOFTWARE: Run,http://www.1hoursoftware.com,,UseErrorLevel Return DONATIONCODER: Run,http://www.donationcoder.com,,UseErrorLevel Return AUTOHOTKEY: Run,http://www.autohotkey.com,,UseErrorLevel Return ABOUTOK: Gui,2:Destroy OnMessage(0x200,"") DllCall("DestroyCursor","Uint",hCurs) Return WM_MOUSEMOVE(wParam,lParam) { Global hCurs MouseGetPos,,,,ctrl If ctrl in Static11,Static15,Static19 DllCall("SetCursor","UInt",hCurs) Return } EXIT: ExitApp
#5
-
Posted 07 October 2010 - 04:18 PM
[Solved] Brightness(Gamma) Control
May be it's what you're looking for :
F1:: ; reduce the brightness F1
F2:: ; Reset to 50%
F3:: ; increase the brightness F3
May be it's what you're looking for :
F1:: ; reduce the brightness F1
F2:: ; Reset to 50%
F3:: ; increase the brightness F3
;#NoTrayIcon don't display the script icon in the tray #MaxHotkeysPerInterval 200 #NoEnv ; Recommended for performance and compatibility with future AutoHotkey releases. #SingleInstance force SetBatchLines -1 F2:: ; Set Brightness back to 50 % F2 br := 120 ; brightness, in the range of 0 - 255, where 128 is normal F1:: ; reduce the brightness F1 F3:: ; increase the brightness F3 Brght_Step = 8 ; ------------------- ; START CONFIGURATION ; ------------------- ; The percentage by which to raise or lower the volume each time ; How long to display the volume level bar graphs (in milliseconds) vol_DisplayTime = 1500 ; Transparency of window (0-255) vol_TransValue = 200 ; Bar's background colour vol_CW = EEEEEE vol_Width = 300 ; width of bar vol_Thick = 20 ; thickness of bar ; Bar's screen position vol_PosX := A_ScreenWidth/2 - vol_Width/2 vol_PosY := A_ScreenHeight/1.08 - vol_Thick/2 ; -------------------- ; END OF CONFIGURATION ; -------------------- vol_BarOptionsMaster = 1:B1 ZH%vol_Thick% ZX8 ZY4 W%vol_Width% X%vol_PosX% Y%vol_PosY% CW%vol_CW% br += (InStr(A_ThisHotkey, "F1") ? -Brght_Step : Brght_Step ) If ( br > 256 ) br := 256 If ( br < 0) br := 0 VarSetCapacity(gr, 512*3) Loop, 256 { If (nValue:=(br+128)*(A_Index-1))>65535 nValue:=65535 NumPut(nValue, gr, 2*(A_Index-1), "Ushort") NumPut(nValue, gr, 512+2*(A_Index-1), "Ushort") NumPut(nValue, gr, 1024+2*(A_Index-1), "Ushort") } hDC := DllCall("GetDC", "Uint", 0) ;NULL for entire screen DllCall("SetDeviceGammaRamp", "Uint", hDC, "Uint", &gr) DllCall("ReleaseDC", "Uint", 0, "Uint", hDC) vol_ShowBars: ; Get volumes in case the user or an external program changed them: vol_Master := (br/2.5) vbr := (br*100)//256 if vol_Master = 128 { vol_Colour = Green vol_Text = Brightness %vbr%`% } if vol_Master > 128 { vol_Colour = Red vol_Text = Brightness %vbr%`% } if vol_Master < 128 { vol_Colour = Blue vol_Text = Brightness %vbr%`% } ; To prevent the "flashing" effect, only create the bar window if it doesn't already exist: IfWinNotExist, BrightnessOSDxyz { Progress, %vol_BarOptionsMaster% CB%vol_Colour% CT%vol_Colour%, , %vol_Text%, BrightnessOSDxyz WinSet, Transparent, %vol_TransValue%, BrightnessOSDxyz } Progress, 1:%vol_Master% ,, %vol_Text% SetTimer, vol_BarOff, %vol_DisplayTime% return vol_BarOff: SetTimer, vol_BarOff, off Progress, 1:Off return
#6
-
Posted 15 October 2010 - 06:10 PM
I've been curious about this as well for quite a while. It appears that Windows Vista or at least Windows 7 supports this programmatically, but I don't know how to take advantage of ACPI_NOTIFY_INC_BRIGHTNESS_HOTKEY and ACPI_NOTIFY_DEC_BRIGHTNESS_HOTKEY in AHK.
Resources: <!-- m -->http://msdn.microsof.../ff569755(VS.85<!-- m -->).aspx
<!-- m -->http://download.micr... ... sCtrl.docx<!-- m -->
Resources: <!-- m -->http://msdn.microsof.../ff569755(VS.85<!-- m -->).aspx
<!-- m -->http://download.micr... ... sCtrl.docx<!-- m -->
#7
-
Posted 27 February 2011 - 10:10 PM
I needed a "real brightness control" script for use on xp laptops/desktops (not some dimming gui or gamma change). If anyone is interested I can post it. The Brightness, controlled by only two hotkeys (F5 for + and F6 for - which you can change of course) , using powerstrip soft running in the background.
#8
-
Posted 10 February 2012 - 09:47 PM