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]
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: [url=https://addons.mozilla.org/en-US/firefox/addon/4639]https://addons.mozilla.org/en-US/firefox/addon/4639[/url]

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

[img]http://kmeleon.holaservers.com/disrupted/kmlock0.jpg[/img]

[img]http://kmeleon.holaservers.com/disrupted/kmlock1.jpg[/img]

[img]http://kmeleon.holaservers.com/disrupted/kmlock2.jpg[/img]

[img]http://kmeleon.holaservers.com/disrupted/kmlock4.jpg[/img]

[img]http://kmeleon.holaservers.com/disrupted/kmlock5.jpg[/img]

[img]http://kmeleon.holaservers.com/disrupted/kmlock6.jpg[/img]

note: your attempts are logged message when a wrong password is entered is just a scare[/quote]

K-Meleon forum is powered by Phorum.