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 08:44AM by disrupted.