Extensions :  K-Meleon Forum
All about K-Meleon extensions. 
screensaver control
Posted by: disrupted
Date: November 08, 2009 04:55AM

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



# 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


Options: ReplyQuote
Re: screensaver control
Posted by: jsnj
Date: November 08, 2009 05:45AM

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

Options: ReplyQuote
Re: screensaver control
Posted by: disrupted
Date: November 08, 2009 06:26AM

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!

Options: ReplyQuote
Re: screensaver control
Posted by: siria
Date: November 08, 2009 06:33AM

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/08/2009 06:35AM by siria.

Options: ReplyQuote
Re: screensaver control
Posted by: jsnj
Date: November 08, 2009 06:51AM

Quote
disrupted
screw earth!

LOL

Options: ReplyQuote


K-Meleon forum is powered by Phorum.