toggles screensaver off and on easily from km menu. very handy when watching long films online and don't want to keep engaging the mouse every few minutes. the screensaver is auto activated when kmeleon exits

http://kmext.sourceforge.net/files/savercontrol.7z



<sub># K-Meleon Macros (http://kmeleon.sourceforge.net/wiki/index.php?id=MacroLanguage)

# --------toggles sscreensaver on and off (screensaver is automatically set to on when k-meleon exists)


$_tool_path=getfolder(RootFolder)."\\Tools";


setsaveron{
menuchecked=(getpref(INT,"screensaver.active")=="1");
togglepref(INT,"screensaver.active",1,2);
$screensaveron=getpref(INT,"screensaver.active");
$screensaveron==1?&saveractive:&saverinactive;
}

saveractive{
exec($_tool_path."\\savercontrol\\savercontrol.exe ON");
statusbar("screensaver activated");
}

setsaveroff{
menuchecked=(getpref(INT,"screensaver.active")=="2");
togglepref(INT,"screensaver.active",2,1);
$screensaveroff=getpref(INT,"screensaver.active");
$screensaveroff==2?&saverinactive:&saveractive;
}

saverinactive{
exec($_tool_path."\\savercontrol\\savercontrol.exe OFF");
statusbar("screensaver disactivated");
}

resetsaver{
setpref(INT,"screensaver.active",1);
exec($_tool_path."\\savercontrol\\savercontrol.exe ON");
statusbar("screensaver activated");
}

savercontrol_BuildMenu{
setmenu("_Config_General",popup,"Saver Control",6);
setmenu("Saver Control",macro,"Enable SSaver",setsaveron);
setmenu("Saver Control",macro,"Disable SSaver",setsaveroff);
}

#---------------------------------------------------------------
$OnInit=$OnInit."savercontrol_BuildMenu;";
$OnQuit=$OnQuit."resetsaver;";
$macroModules=$macroModules."togglescreensaver;";

;AutoIt Version: 3.0:
;Author: kargas
#NoTrayIcon

if $cmdline[0]=0 then
exit
else
savercontrol()
exit
endif


func savercontrol()
$off=("0")
$on=("1")
if $cmdline[1]=("OFF") then
RegWrite("HKEY_CURRENT_USER\control panel\desktop", "ScreenSaveActive", "REG_SZ", $off)
else
RegWrite("HKEY_CURRENT_USER\control panel\desktop", "ScreenSaveActive", "REG_SZ", $on)
endif
endfunc
exit</sub>

Are CRTs still prevalent in Europe? Dying breed over here in the colonies since LCDs are no longer expensive I assume they're relatively inexpensive there too. Perhaps people still use screensavers just for entertainment purposes?

God no! i do a lot of graphic designing.. i know they've come a long way but they can never match the colour depth and reproduction of a crt and they have terrible gamma especially when viewing from angles. contrary to popular belief, crts are not being phased out..but only top notch models are still being made by niche brands and they are expensive. normally artists and animators are not very fond of lcds. personally, there are 3 things that i will not accept when i work.. lcd displays, cfl bulbs and recycled paper.. screw earth!

Certainly no difference between over here and there in the shops, but for me screensavers are just the easiest way to block access (on my 98se notebook) ;-)



Edited 1 time(s). Last edit at 11/07/2009 11:35PM by siria.

Quote
disrupted
screw earth!

LOL