K-Meleon :: Extensions

Extensions : K-Meleon Forum

All about K-Meleon extensions.

Goto: Forum List•Message List•Search•Log In

Your Name:
Subject:

Help information

[quote=disrupted]
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

[url=http://kmext.sourceforge.net/files/savercontrol.7z]http://kmext.sourceforge.net/files/savercontrol.7z[/url]

[img]http://starvega.bizhat.com/kmnanny/savercontrol.png[/img]

[color=#8000ff][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;"; [/sub][/color]

[color=blue][sub];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][/color][/quote]

K-Meleon forum is powered by Phorum.