Try
LineSaver!
Moves an alternating black and white line accross the screen(s).
To use it as a screensaver, compile it to LineSaver.exe and rename it to LineSaver.scr.
Skrommel
;LineSaver.ahk
; Moves an alternating black and white line accross the screen(s)
; Compile to exe and rename to scr to use as screensaver
;Skrommel @ 2008
#SingleInstance,Force
SetWinDelay,0
Loop,%0%
{
If %A_Index% Contains s ;Show
mode=Show
If %A_Index% Contains c ;Config
{
MsgBox,0,LineSaver,www.1HourSoftware.com
ExitApp
}
If %A_Index% Contains p,l ;Preview
mode=Show
If %A_Index% Contains a ;PWConfig
{
MsgBox,0,LineSaver,www.1HourSoftware.com
ExitApp
}
}
VarSetCapacity(active,4,0)
DllCall("user32.dll\SystemParametersInfo","uint",0x0072,"uint",0,"uint*",active,"uint",0) ; SPI_GETSCREENSAVERRUNNING = 0x0072
If (active>0 Or mode="Show")
SetTimer,EXIT,1000
minx=9999
maxx=0
miny=9999
maxy=0
SysGet,monitors,MonitorCount
Loop,% monitors
{
SysGet,monitor%A_Index%,Monitor,%A_index%
If (monitor%A_Index%Left<minx)
minx:=monitor%A_Index%Left
If (monitor%A_Index%Right>maxx)
maxx:=monitor%A_Index%Right
If (monitor%A_Index%Top<miny)
miny:=monitor%A_Index%Top
If (monitor%A_Index%Bottom>maxy)
maxy:=monitor%A_Index%Bottom
}
Gui,1:Color,FFFFFF
Gui,1:+ToolWindow -Caption +LastFound +AlwaysOnTop
Gui,1:Show,% "X" minx " Y" miny " W1 H" maxy-miny
guiid1:=WinExist()
WinSet,Transparent,255,ahk_id %guiid1% ; Transparency
WinSet,ExStyle,+0x20,ahk_id %guiid1% ; Click-through
Gui,2:Color,000000
Gui,2:+ToolWindow -Caption +LastFound +AlwaysOnTop
Gui,2:Show,% "X" minx " Y" miny " W1 H" maxy-miny
guiid2:=WinExist()
WinSet,Transparent,255,ahk_id %guiid2% ; Transparency
WinSet,ExStyle,+0x20,ahk_id %guiid2% ; Click-through
Loop
{
x:=minx
Loop,% maxx-minx
{
WinMove,ahk_id %guiid1%,,%x%,%miny%
WinSet,AlwaysOnTop,On,ahk_id %guiid1%
WinMove,ahk_id %guiid2%,,%x%
WinSet,AlwaysOnTop,On,ahk_id %guiid2%
Sleep,100
x+=1
}
}
EXIT:
If A_TimeIdlePhysical<1000
ExitApp
Return
