kmeleon locker
Posted by: disrupted
Date: April 09, 2009 08: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

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

;#NoTrayIcon
#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")
Else
$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.")
exit
else
IniWrite(@ScriptDir & "\kmlock.ini", "kmpass", 1, $kmpass)
EndIf
EndIf

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))
GUISetState(@SW_SHOW)

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]", "")
Exit
Else
MsgBox(4096, "K-Meleon Locker : wrong password", "Incorrect Password. Please note, your attempts are being logged.", 10)
EndIf
EndFunc


While 1
$msg = GUIGetMsg()
Select
Case $msg = $unlock
unlockkm()
EndSelect
WEnd















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 03:44PM by disrupted.

Re: kmeleon locker
Posted by: reeko124
Date: April 09, 2009 08: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

Re: kmeleon locker
Posted by: disrupted
Date: April 10, 2009 02:37AM

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..

K-Meleon forum is powered by Phorum.