Extensions
: K-Meleon Web Browser Forum
All about K-Meleon extensions.
Go to:
Forum List
•
Message List
•
Search
•
Log In
Your Name:
Subject:
Help information
BBcode help
Smileys help
Spam prevention:
Please, enter the code that you see below in the input field. This is for blocking bots that try to post this form automatically. If the code is hard to read, then just try to guess it right. If you enter the wrong code, a new image is created and you get another chance to enter it right.
[Please, enable JavaScript to see the code]
Enter code:
[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, "¶m1=value1", "" ) $cleanup2=StringReplace($cleanup1, "¶m2=value2", "" ) $cleanup3=StringReplace($cleanup2, "¶m3=value3", "" ) $cleanup4=StringReplace($cleanup3, "¶m4=value4", "" ) $cleanup5=StringReplace($cleanup4, "¶m5=value5", "" ) $cleanup6=StringReplace($cleanup5, "¶m6=value6", "" ) $cleanup7=StringReplace($cleanup6, "¶m7=value7", "" ) $cleanup8=StringReplace($cleanup7, "¶m8=value8", "" ) $cleanup9=StringReplace($cleanup8, "¶m9=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, "¶m1=value1", "" ) $cleanup2=StringReplace($cleanup1, "¶m2=value2", "" ) $cleanup3=StringReplace($cleanup2, "¶m3=value3", "" ) $cleanup4=StringReplace($cleanup3, "¶m4=value4", "" ) $cleanup5=StringReplace($cleanup4, "¶m5=value5", "" ) $cleanup6=StringReplace($cleanup5, "¶m6=value6", "" ) $cleanup7=StringReplace($cleanup6, "¶m7=value7", "" ) $cleanup8=StringReplace($cleanup7, "¶m8=value8", "" ) $cleanup9=StringReplace($cleanup8, "¶m9=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, "¶m1=value1", "" ) $cleanup2=StringReplace($cleanup1, "¶m2=value2", "" ) $cleanup3=StringReplace($cleanup2, "¶m3=value3", "" ) $cleanup4=StringReplace($cleanup3, "¶m4=value4", "" ) $cleanup5=StringReplace($cleanup4, "¶m5=value5", "" ) $cleanup6=StringReplace($cleanup5, "¶m6=value6", "" ) $cleanup7=StringReplace($cleanup6, "¶m7=value7", "" ) $cleanup8=StringReplace($cleanup7, "¶m8=value8", "" ) $cleanup9=StringReplace($cleanup8, "¶m9=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, "¶m1=value1", "" ) $cleanup2=StringReplace($cleanup1, "¶m2=value2", "" ) $cleanup3=StringReplace($cleanup2, "¶m3=value3", "" ) $cleanup4=StringReplace($cleanup3, "¶m4=value4", "" ) $cleanup5=StringReplace($cleanup4, "¶m5=value5", "" ) $cleanup6=StringReplace($cleanup5, "¶m6=value6", "" ) $cleanup7=StringReplace($cleanup6, "¶m7=value7", "" ) $cleanup8=StringReplace($cleanup7, "¶m8=value8", "" ) $cleanup9=StringReplace($cleanup8, "¶m9=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, "¶m1=value1", "" ) $cleanup2=StringReplace($cleanup1, "¶m2=value2", "" ) $cleanup3=StringReplace($cleanup2, "¶m3=value3", "" ) $cleanup4=StringReplace($cleanup3, "¶m4=value4", "" ) $cleanup5=StringReplace($cleanup4, "¶m5=value5", "" ) $cleanup6=StringReplace($cleanup5, "¶m6=value6", "" ) $cleanup7=StringReplace($cleanup6, "¶m7=value7", "" ) $cleanup8=StringReplace($cleanup7, "¶m8=value8", "" ) $cleanup9=StringReplace($cleanup8, "¶m9=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, "¶m1=value1", "" ) $cleanup2=StringReplace($cleanup1, "¶m2=value2", "" ) $cleanup3=StringReplace($cleanup2, "¶m3=value3", "" ) $cleanup4=StringReplace($cleanup3, "¶m4=value4", "" ) $cleanup5=StringReplace($cleanup4, "¶m5=value5", "" ) $cleanup6=StringReplace($cleanup5, "¶m6=value6", "" ) $cleanup7=StringReplace($cleanup6, "¶m7=value7", "" ) $cleanup8=StringReplace($cleanup7, "¶m8=value8", "" ) $cleanup9=StringReplace($cleanup8, "¶m9=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]
[Please Enable JavaScript]
K-Meleon forum is powered by
Phorum
.
Home/News
Screenshots
Download
Documentation
Resources
Get Involved
Forum
FAQ
English