I wanted to make a screen saver app. I'm fine with it being slightly safe. I just have one question mark. Yes, I can put one gui at the front and cover the whole screen, but do we have a mechanism to do this automatically on the second or third monitors?
Thanks.
Overlay Screen on All Monitors with Gui
Re: Overlay Screen on All Monitors with Gui
This shows a gui overlay across all monitors. Press Esc to close it:
Code: Select all
#Requires AutoHotkey v2.0
; Get x, y, width, height of the bounding rectangle of all display monitors.
vLeft := SysGet(76)
vTop := SysGet(77)
vWidth := SysGet(78)
vHeight := SysGet(79)
g := Gui("+AlwaysOnTop -Caption -DPIScale +ToolWindow")
g.BackColor := "Black"
g.SetFont("s22 cWhite")
g.Add("Text",, "Press Esc to close")
g.OnEvent("Escape", g => g.Destroy())
g.Show("x" vLeft " y" vTop " w" vWidth " h" vHeight)
Re: Overlay Screen on All Monitors with Gui
Thank you. When the cable I ordered to connect my old monitor to the Notebook arrives, I will test it immediately. I applied a screen saver with AHK v1, but I just realized that it can be overcome with multiple monitors. I hope to share it here when all the work is done. Thanks again.ntepa wrote: ↑06 Aug 2023, 16:02This shows a gui overlay across all monitors. Press Esc to close it:
Code: Select all
#Requires AutoHotkey v2.0 ; Get x, y, width, height of the bounding rectangle of all display monitors. vLeft := SysGet(76) vTop := SysGet(77) vWidth := SysGet(78) vHeight := SysGet(79) g := Gui("+AlwaysOnTop -Caption -DPIScale +ToolWindow") g.BackColor := "Black" g.SetFont("s22 cWhite") g.Add("Text",, "Press Esc to close") g.OnEvent("Escape", g => g.Destroy()) g.Show("x" vLeft " y" vTop " w" vWidth " h" vHeight)
- WarlordAkamu67
- Posts: 224
- Joined: 21 Mar 2023, 06:52
Re: Overlay Screen on All Monitors with Gui
Can't wait to see! Works for me ^.^hasantr wrote: ↑07 Aug 2023, 02:10Thank you. When the cable I ordered to connect my old monitor to the Notebook arrives, I will test it immediately. I applied a screen saver with AHK v1, but I just realized that it can be overcome with multiple monitors. I hope to share it here when all the work is done. Thanks again.ntepa wrote: ↑06 Aug 2023, 16:02This shows a gui overlay across all monitors. Press Esc to close it:
Code: Select all
#Requires AutoHotkey v2.0 ; Get x, y, width, height of the bounding rectangle of all display monitors. vLeft := SysGet(76) vTop := SysGet(77) vWidth := SysGet(78) vHeight := SysGet(79) g := Gui("+AlwaysOnTop -Caption -DPIScale +ToolWindow") g.BackColor := "Black" g.SetFont("s22 cWhite") g.Add("Text",, "Press Esc to close") g.OnEvent("Escape", g => g.Destroy()) g.Show("x" vLeft " y" vTop " w" vWidth " h" vHeight)
Who is online
Users browsing this forum: BlueHornet, Descolada, TAC109 and 21 guests