Extensions :  K-Meleon Forum
All about K-Meleon extensions. 
kmeleon locker
Posted by: disrupted
Date: April 09, 2009 01:25AM

download from kmext

sets kmeleon window to 80% transparency(win2000 and above) and disables the window(locks it) creates unlock button; when clicked prompts for password.

password will be created on first run and will be saved inside this file:
kmlock.ini in the kmlocker folder. to reset the password.. simply delete kmlock.ini and you'll be prompted for new password.

can be useful when using a shared computer and another user wants to quickly access something and you have important unread tabs and want to ensure that that other user wont't close or surf with it.. or you can just save the session or when a firefox convert specifically asks for this: https://addons.mozilla.org/en-US/firefox/addon/4639

; AutoIt Version: 3.0
; Language: English
; Platform: Win9x/NT
; Author: yanni

#include <GUIConstantS E X.au3>
#include <WindowsConstants.au3>
#include <StaticConstants.au3>
#include <ButtonConstants.au3>
#Include <String.au3>

If FileExists(@ScriptDir & "\kmlock.ini") Then
$kmpass = IniRead(@ScriptDir & "\kmlock.ini", "kmpass", "1", "default")
$kmpass=InputBox("K-Meleon Locker", "Please enter the password that will be used to unlock K-Meleon: ", "", "*M", "270", "140")
$check=StringRegExp($kmpass, "(\S)")
if $check=0 Then
MsgBox(4096, "K-Meleon Locker error", "Password field cannot be left empty or contain spaces.")
IniWrite(@ScriptDir & "\kmlock.ini", "kmpass", 1, $kmpass)

WinsetTrans("[CLASS:KMeleon Browser Window]", "", 115);
WinsetState("[CLASS:KMeleon Browser Window]", "", @SW_disable);
$lockB = GUICreate("lockB", 140, 34, 0, 670, BitOR($WS_DLGFRAME, $WS_POPUP, $WS_EX_TOPMOST))
$unlock = GUICtrlCreateButton("Unlock K-Meleon", 5, 4, 130, 26, BitOR($BS_FLAT, $WS_BORDER, $WS_EX_STATICEDGE))

Func unlockkm()
$unlockpass=InputBox("K-Meleon Locker", "Enter password to unlock :", "", "*M", "160", "100")
If $unlockpass=$kmpass Then
GUIDelete ()
WinsetState("[CLASS:KMeleon Browser Window]", "", @SW_enable);
WinsetTrans("[CLASS:KMeleon Browser Window]", "", 255)
Winactivate("[CLASS:KMeleon Browser Window]", "")
MsgBox(4096, "K-Meleon Locker : wrong password", "Incorrect Password. Please note, your attempts are being logged.", 10)

While 1
$msg = GUIGetMsg()
Case $msg = $unlock

note: your attempts are logged message when a wrong password is entered is just a scare

Edited 1 time(s). Last edit at 03/13/2010 08:44AM by disrupted.

Options: ReplyQuote
Re: kmeleon locker
Posted by: reeko124
Date: April 09, 2009 01:46AM

Thanks disrupted. This is something i think i am going to try out I always wanted something like this. Where is all this stuff coming from lately? grinning smiley

Options: ReplyQuote
Re: kmeleon locker
Posted by: disrupted
Date: April 09, 2009 07:37PM

i've been searching the popular ff extensions andchecking if they can work for kmeleon. less work these days so more free time on my hands i guess..

Options: ReplyQuote

K-Meleon forum is powered by Phorum.