ATTENTION: You are viewing a page formatted for mobile devices; to view the full web page, click HERE.

DonationCoder.com Software > Finished Programs

DONE: Across-the-room Stability Monitor

<< < (3/5) > >>

skrommel:
Replacing the CHANGE part should do the trick:


--- ---CHANGE:
If color=000000
  color=0000FF
Else
  color=000000
Return
Skrommel

LuckMan212:
hey thanks skrommel!
actually it needs one more line:


--- ---CHANGE:
If color=000000
  color=00FF00
Else
  color=000000
Gui,Color,%color%
Return
and also, initial color must be set to black instead of red (line 13), otherwise color never changes:

--- ---color=000000 :Thmbsup:

skrommel:
 :-[ Just to help you learn AHK...

Skrommel

LuckMan212:
I made one more tweak, inifile and window name are now variables


--- ---#SingleInstance,Force
OnExit,EXIT

x=
y=
w=100
h=100
pause=1000
color=000000
inifile=Alive.ini
wintitle=Alive

IfExist,%inifile%
{
  IniRead,x,%inifile%,Settings,x
  IniRead,y,%inifile%,Settings,y
  IniRead,w,%inifile%,Settings,w
  IniRead,h,%inifile%,Settings,h
  IniRead,pause,%inifile%,Settings,pause
}

Gui,+AlwaysOnTop +Resize
Gui,Color,%color%
Gui,Show,x%x% y%y% w%w% h%h%,%wintitle%
WinMove,%wintitle%,,%x%,%y%,%w%,%h%
SetTimer,CHANGE,%pause%
Return

CHANGE:
If color=000000
  color=00FF00
Else
  color=000000
Gui,Color,%color%
Return

GuiClose:
EXIT:
WinGetPos,x,y,w,h,%wintitle%
IniWrite,%x%,%inifile%,Settings,x
IniWrite,%y%,%inifile%,Settings,y
IniWrite,%w%,%inifile%,Settings,w
IniWrite,%h%,%inifile%,Settings,h
IniWrite,%pause%,%inifile%,Settings,pause
ExitApp

LuckMan212:
well i've been hacking away at AutoHotKey for a few hours, and have come up with a nice version (almost complete rewrite) of this little app!  ;D Its called SysBeacon now, and I've added a number of things (all described in the included README).  I credited jgpaiva and skrommel in the About Box for their help in getting me started.  Its been a great learning experience and even though this is a simple app I have learned a lot and plan to release some more apps in the coming weeks.
;)

screenshot:


Why not download it and let me know what you think!

Navigation

[0] Message Index

[#] Next page

[*] Previous page

Go to full version