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]
i didn't know you were going to use it to trigger a monitoring download manager.. i made an update and the linkurl now adds a bogus extension before sending to clipboard in case the linkurl ends with an extension like .zip .exe etc that might trigger a download manager.. that suffix is removed in autoit (sending that kind of linkurl to autoit as a command parameter is not an option because those strings are almost always too long for autoit to handle  as a parameter)

the context menu now has 2 commands:
open clnredirect and copy clnredirect

download here:
[url=http://kmext.sf.net/files/cleanredirect.7z]http://kmext.sf.net/files/cleanredirect.7z[/url]

sources:
[color=green][sub]# K-Meleon Macros (http://kmeleon.sourceforge.net/wiki/index.php?id=MacroLanguage)

# ---------- cleanredirect -------------------

$_tool_path=getfolder(RootFolder)."\\Tools";

clndirect{
menugrayed=(hostname($LinkURL)=="");
$bogu[color=red]s e x[/color]t=(".bog");
setclipboard($LinkURL.$bogu[color=red]s e x[/color]t);
exec($_tool_path."\\cleanredirect.exe ");
}

clndirect_get{
menugrayed=(hostname($LinkURL)=="");
$bogu[color=red]s e x[/color]t=(".bog");
setclipboard($LinkURL.$bogu[color=red]s e x[/color]t);
statusbar("cleaned target link has been copied to the clipboard");
exec($_tool_path."\\cleanredirect.exe -justcopy");
}

clndirect_BuildMenu{
setmenu(LinkSave,inline,cln_redirect,7);
setmenu(cln_redirect,macro,"Open ClnRedirect",clndirect);
setmenu(cln_redirect,macro,"Copy ClnRedirect",clndirect_get);
}

$OnInit=$OnInit."clndirect_BuildMenu;";
# --------------------------------------------------------------------
$macroModules=$macroModules."cleanredirect;";[/sub][/color]

[color=blue][sub]; AutoIt Version: 3.3.0
; Language:       Gibberish
; Platform:       Win9x/NT
; Author:         yanni
;

#NoTrayIcon
#include <String.au3>

$chkurl=ClipGet()
$getkmbinary1=stringtrimright(@scriptdir, 5)
$getkmbinary=($getkmbinary1 & "k-meleon.exe")

$getpos=StringInStr($chkurl, "http" , "", -1)
$getpos2=StringInStr($chkurl, "www" , "", -1)
;;Msgbox(0,$getpos2, $getpos2)

if $cmdline[0]=0 then
targetkm()
else
targetclip()
endif

func targetkm()
if $getpos2>9 then
;Msgbox(0,"www test", "www test")
$rembog=StringTrimRight($chkurl, 4)
$stripout=StringTrimLeft($rembog, $getpos2-1)
$cleanup1=StringReplace($stripout, "&param1=value1", "" )
$cleanup2=StringReplace($cleanup1, "&param2=value2", "" )
$cleanup3=StringReplace($cleanup2, "&param3=value3", "" )
$cleanup4=StringReplace($cleanup3, "&param4=value4", "" )
$cleanup5=StringReplace($cleanup4, "&param5=value5", "" )
$cleanup6=StringReplace($cleanup5, "&param6=value6", "" )
$cleanup7=StringReplace($cleanup6, "&param7=value7", "" )
$cleanup8=StringReplace($cleanup7, "&param8=value8", "" )
$cleanup9=StringReplace($cleanup8, "&param9=value9", "" )
$cleanup10=StringReplace($cleanup9, "http%3a", "http:" )
$cleanup11=StringReplace($cleanup10, "https%3a", "https:" )
$jscleanpos=StringInStr($cleanup11, "','" , "", 1)
$jsclean=StringMid($cleanup11, 1, $jscleanpos-1)
$ultraclean=StringInStr($jsclean, "%" , "", 1)
$thredirect=StringMid($jsclean, 1, $ultraclean-1)
;;Msgbox(0,$ultraclean, $ultraclean)
;Msgbox(0,$thredirect, $thredirect)
$open=($getkmbinary & " " & $thredirect)
run($open)
elseif $getpos2<9 then
;Msgbox(0,$getpos, $getpos)
;Msgbox(0,"http test", "http test")
$rembog=StringTrimRight($chkurl, 4)
$stripout=StringTrimLeft($rembog, $getpos-1)
;Msgbox(0,$stripout, $stripout)
$cleanup1=StringReplace($stripout, "&param1=value1", "" )
$cleanup2=StringReplace($cleanup1, "&param2=value2", "" )
$cleanup3=StringReplace($cleanup2, "&param3=value3", "" )
$cleanup4=StringReplace($cleanup3, "&param4=value4", "" )
$cleanup5=StringReplace($cleanup4, "&param5=value5", "" )
$cleanup6=StringReplace($cleanup5, "&param6=value6", "" )
$cleanup7=StringReplace($cleanup6, "&param7=value7", "" )
$cleanup8=StringReplace($cleanup7, "&param8=value8", "" )
$cleanup9=StringReplace($cleanup8, "&param9=value9", "" )
;Msgbox(0,$cleanup9, $cleanup9)
$cleanup10=StringReplace($cleanup9, "http%3a", "http:" )
;Msgbox(0,$cleanup10, $cleanup10)
$cleanup11=StringReplace($cleanup10, "https%3a", "https:" )
$jscleanpos=StringInStr($cleanup11, "','" , "", 1)
$jsclean=StringMid($cleanup11, 1, $jscleanpos-1)
$ultraclean=StringInStr($jsclean, "%" , "", 1)
$thredirect=StringMid($jsclean, 1, $ultraclean-1)
;;Msgbox(0,$ultraclean, $ultraclean)
;Msgbox(0,$thredirect, $thredirect)
$open=($getkmbinary & " " & $thredirect)
run($open)
else
;Msgbox(0,"www first", "www first")
$rembog=StringTrimRight($chkurl, 4)
$stripout=StringTrimLeft($rembog, $getpos2-1)
$cleanup1=StringReplace($stripout, "&param1=value1", "" )
$cleanup2=StringReplace($cleanup1, "&param2=value2", "" )
$cleanup3=StringReplace($cleanup2, "&param3=value3", "" )
$cleanup4=StringReplace($cleanup3, "&param4=value4", "" )
$cleanup5=StringReplace($cleanup4, "&param5=value5", "" )
$cleanup6=StringReplace($cleanup5, "&param6=value6", "" )
$cleanup7=StringReplace($cleanup6, "&param7=value7", "" )
$cleanup8=StringReplace($cleanup7, "&param8=value8", "" )
$cleanup9=StringReplace($cleanup8, "&param9=value9", "" )
$cleanup10=StringReplace($cleanup9, "http%3a", "http:" )
$cleanup11=StringReplace($cleanup10, "https%3a", "https:" )
$jscleanpos=StringInStr($cleanup11, "','" , "", 1)
$jsclean=StringMid($cleanup11, 1, $jscleanpos-1)
$ultraclean=StringInStr($jsclean, "%" , "", 1)
$thredirect=StringMid($jsclean, 1, $ultraclean-1)
;;Msgbox(0,$ultraclean, $ultraclean)
;Msgbox(0,$thredirect, $thredirect)
$open=($getkmbinary & " " & $thredirect)
run($open)
endif
exit
endfunc

func targetclip()
if $getpos2>9 then
;Msgbox(0,"www test", "www test")
$rembog=StringTrimRight($chkurl, 4)
$stripout=StringTrimLeft($rembog, $getpos2-1)
$cleanup1=StringReplace($stripout, "&param1=value1", "" )
$cleanup2=StringReplace($cleanup1, "&param2=value2", "" )
$cleanup3=StringReplace($cleanup2, "&param3=value3", "" )
$cleanup4=StringReplace($cleanup3, "&param4=value4", "" )
$cleanup5=StringReplace($cleanup4, "&param5=value5", "" )
$cleanup6=StringReplace($cleanup5, "&param6=value6", "" )
$cleanup7=StringReplace($cleanup6, "&param7=value7", "" )
$cleanup8=StringReplace($cleanup7, "&param8=value8", "" )
$cleanup9=StringReplace($cleanup8, "&param9=value9", "" )
$cleanup10=StringReplace($cleanup9, "http%3a", "http:" )
$cleanup11=StringReplace($cleanup10, "https%3a", "https:" )
$jscleanpos=StringInStr($cleanup11, "','" , "", 1)
$jsclean=StringMid($cleanup11, 1, $jscleanpos-1)
$ultraclean=StringInStr($jsclean, "%" , "", 1)
$thredirect=StringMid($jsclean, 1, $ultraclean-1)
;;Msgbox(0,$ultraclean, $ultraclean)
;Msgbox(0,$thredirect, $thredirect)
ClipPut($thredirect)
elseif $getpos2<9 then
;Msgbox(0,$getpos, $getpos)
;Msgbox(0,"http test", "http test")
$rembog=StringTrimRight($chkurl, 4)
$stripout=StringTrimLeft($rembog, $getpos-1)
;Msgbox(0,$stripout, $stripout)
$cleanup1=StringReplace($stripout, "&param1=value1", "" )
$cleanup2=StringReplace($cleanup1, "&param2=value2", "" )
$cleanup3=StringReplace($cleanup2, "&param3=value3", "" )
$cleanup4=StringReplace($cleanup3, "&param4=value4", "" )
$cleanup5=StringReplace($cleanup4, "&param5=value5", "" )
$cleanup6=StringReplace($cleanup5, "&param6=value6", "" )
$cleanup7=StringReplace($cleanup6, "&param7=value7", "" )
$cleanup8=StringReplace($cleanup7, "&param8=value8", "" )
$cleanup9=StringReplace($cleanup8, "&param9=value9", "" )
;Msgbox(0,$cleanup9, $cleanup9)
$cleanup10=StringReplace($cleanup9, "http%3a", "http:" )
;Msgbox(0,$cleanup10, $cleanup10)
$cleanup11=StringReplace($cleanup10, "https%3a", "https:" )
$jscleanpos=StringInStr($cleanup11, "','" , "", 1)
$jsclean=StringMid($cleanup11, 1, $jscleanpos-1)
$ultraclean=StringInStr($jsclean, "%" , "", 1)
$thredirect=StringMid($jsclean, 1, $ultraclean-1)
;;Msgbox(0,$ultraclean, $ultraclean)
;Msgbox(0,$thredirect, $thredirect)
ClipPut($thredirect)
else
;Msgbox(0,"www first", "www first")
$rembog=StringTrimRight($chkurl, 4)
$stripout=StringTrimLeft($rembog, $getpos2-1)
$cleanup1=StringReplace($stripout, "&param1=value1", "" )
$cleanup2=StringReplace($cleanup1, "&param2=value2", "" )
$cleanup3=StringReplace($cleanup2, "&param3=value3", "" )
$cleanup4=StringReplace($cleanup3, "&param4=value4", "" )
$cleanup5=StringReplace($cleanup4, "&param5=value5", "" )
$cleanup6=StringReplace($cleanup5, "&param6=value6", "" )
$cleanup7=StringReplace($cleanup6, "&param7=value7", "" )
$cleanup8=StringReplace($cleanup7, "&param8=value8", "" )
$cleanup9=StringReplace($cleanup8, "&param9=value9", "" )
$cleanup10=StringReplace($cleanup9, "http%3a", "http:" )
$cleanup11=StringReplace($cleanup10, "https%3a", "https:" )
$jscleanpos=StringInStr($cleanup11, "','" , "", 1)
$jsclean=StringMid($cleanup11, 1, $jscleanpos-1)
$ultraclean=StringInStr($jsclean, "%" , "", 1)
$thredirect=StringMid($jsclean, 1, $ultraclean-1)
;;Msgbox(0,$ultraclean, $ultraclean)
;Msgbox(0,$thredirect, $thredirect)
ClipPut($thredirect)
endif
exit
endfunc

[/sub][/color]

fuck shit slut cunt pussy piss are okay but po-rn and se-x are no no's? [img]http://necb.bizhat.com/kmeleon/icon_rolleyes.gif[/img][/quote]

K-Meleon forum is powered by Phorum.