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] the variables are so many..it's very hard to cover them all in a macro, no wonder that guy used javascript to extract out the links and yet..he did not cover them all.. i tested his extension in ff and it doesn't work with many redirects. i tried the macro approach but it wasn;t good enough so i turned to autoit which is much more versatile than js or macro language with these conditions.. it works much better than firefox's extension and have been tested on many sites. dodobird, download cleanredirect autoit adaptation from this link: [url=http://kmext.sourceforge.net/files/cleanredirect.7z]http://kmext.sourceforge.net/files/cleanredirect.7z[/url] extract in k-meleon's root folder i.e. the cleanredirect.kmm goes in k-meleon\macros folder cleanredirect.exe goes in k-meleon\tools folder (cleanredirect.au3 is the source and you can delete it if you want) restart kmeleon, right click on a link with a referer and select clean redirect (if you click on a link without a referer, clean redirect will just open it normally in a new tab) [img]http://starvega.bizhat.com/kmnanny/cleanredirect.jpg[/img] you can test the extension at this page: [url=http://kmext.sourceforge.net/tests/cleanredirect-tests.htm]http://kmext.sourceforge.net/tests/cleanredirect-tests.htm[/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)==""); id(ID_COPY_LINK_LOCATION); exec($_tool_path."\\cleanredirect.exe "); } clndirect_BuildMenu{ setmenu(LinkSave,macro,"Clean Redirect",clndirect,7); } $OnInit=$OnInit."clndirect_BuildMenu;"; # -------------------------------------------------------------------- $macroModules=$macroModules."cleanredirect;";[/sub][/color] [color=blue][sub]; AutoIt Version: (atleast)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 $getpos2>9 then ;Msgbox(0,"www test", "www test") $stripout=StringTrimLeft($chkurl, $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") $stripout=StringTrimLeft($chkurl, $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") $stripout=StringTrimLeft($chkurl, $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 [/sub][/color][/quote]
[Please Enable JavaScript]
K-Meleon forum is powered by
Phorum
.
Home/News
Screenshots
Download
Documentation
Resources
Get Involved
Forum
FAQ
English