General
: K-Meleon Web Browser Forum
General discussion about K-Meleon
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] update2 (macro and kmasave): [url=http://kmeleon.swiftfree.net/files/kmaservice.7z]http://kmeleon.swiftfree.net/files/kmaservice.7z[/url] bug fixes: - when kmeleon has no save folder set in prefs(like wih a new profile), kmasave proceeded to save, ending in failure. now kmsave will abort if no save folder exists. - when kmeleon has a save folder set but that folder has been recently deleted, kmeleon will save in root folder while script will search in the path passed from the macro ending in failure. now, kmsave will create the folder first for kmeleon before initialising save. - when cancel was pressed, kmasave still tried to save..now will abort as it should. update:when kmeleon's save dialog is initiated(weak link) - it's now set on top to prevent glitch of anything stealing focus. - keyboard and mouse input are blocked to prevent user from interrupting save even for that split second..ensuring no user or system glitch may interfere. - visual: for win 2000 and above, km save dialog is set to complete transparency while entering the file name so user doesn't see it. new feature:kma save dialog includes name suggestion for practicality, the name suggestion is generated from the website's host name passed on from new macro. [img]http://kmeleon.holaservers.com/disrupted/kma-nosave.jpg[/img] new kmasave src: [color=blue][sub]; AutoIt Version: 3.3.0 ; Language: English ; Platform: Win9x/NT ; Author: yanni #NoTrayIcon #include <GUIConstant[color=red]S E X[/color].au3> #include <WindowsConstants.au3> #include <StaticConstants.au3> #include <ButtonConstants.au3> #Include <String.au3> #Include <File.au3> If $CmdLine[0]=0 Then MsgBox(48, "K-Meleon Mafuka: User Error", "Save as kma(k-meleon WebArchive) can only run with its macro. ") Else checkdir() EndIf Func checkdir() $checkpath1=($CmdLine[1] & " ") $checkpath2=StringIsSpace ($checkpath1) If $checkpath2=1 Then MsgBox(48, "K-Meleon Mafuka: Aborting", "K-meleon has no save directory set. Please set a save folder by saving a file or image first and try again.") Else pendkma() EndIf EndFunc Func pendkma() DirCreate($CmdLine[1] &"\kmapender") $kompressor=(@ScriptDir & "\7z.exe") $namesug1=StringReplace($CmdLine[2], "www2.", "") $namesug2=StringReplace($namesug1, "www.", "") $namesug3=StringReplace($namesug2, ".com", "") $namesug4=StringReplace($namesug3, ".co.uk", "") $namesug5=StringReplace($namesug4, ".edu", "") $namesug6=StringReplace($namesug5, ".org", "") $namesug7=StringReplace($namesug6, ".net", "") $namesug8=StringReplace($namesug7, ".tv", "") $namesug9=StringReplace($namesug8, ".uk", "") $namesug10=StringReplace($namesug9, ".gr", "") $namesug11=StringReplace($namesug10, ".ru", "") $namesug12=StringReplace($namesug11, ".de", "") $namesug13=StringReplace($namesug12, ".fr", "") $kmaname1=FileSaveDialog("Select KMA Path/name", @ScriptDir & "\webarchives", "K-meleon Web Archive (*.kma)", 2, $namesug13) If @error Then DirRemove($CmdLine[1] &"\kmapender") Exit Else $kmaname2=($kmaname1 & "-" & @HOUR & "-" & @MIN & ".kma") $7zKompdest=("""" & $kmaname2 & """") $7zpath=(@ScriptDir & "\7zkma\7z.exe") $pendname=("kmapend") WinActivate("[CLASS:KMeleon Browser Window]") WinSetOnTop("[CLASS:KMeleon Browser Window]", "", 1) BlockInput(1) Send("^s") WinWaitActive("Save As") WinSetTrans("Save As", "", 0) WinSetOnTop("[CLASS:KMeleon Browser Window]", "", 0) WinSetOnTop("Save As", "", 1) Sleep(40) Send($pendname) Sleep(80) Send("{ENTER}") sleep(60) BlockInput(0) sleep(1000) $hold = GUICreate("make kma", 184, 28, -1, -1, BitOR($WS_DLGFRAME, $WS_POPUP, $WS_EX_TOPMOST)) $label = GUICtrlCreateLabel("Saving kma in progress..Bitte wait..", 15, 7, 210, 20) GUISetState(@SW_SHOW) While 1 WinSetOnTop("make kma", "", 1) $msg = GUIGetMsg() sleep(28000) $initialsave=$CmdLine[1] sleep(2000) $pendkma1=($CmdLine[1] &"\kmapender") $pendkmaindex=($pendkma1 & "\index.htm") $kmaindex=($CmdLine[1] &"\kmapend.htm") $kmadir=($CmdLine[1] &"\kmapend_files") FileMove($kmaindex, $pendkmaindex, 8) DirMove($kmadir, $pendkma1,1) sleep(80) sleep(3888) $7zparm1=(" " & """" & $pendkma1 & "\*" & """" & " " & "-r") $7zparm2=(" a -tzip ") $7zallparms=($7zparm2 & $7zKompdest & $7zparm1) $pendkomprun=($7zpath & $7zallparms) run($pendkomprun, "", @SW_HIDE) ;MsgBox(4096, "Test", $pendkomprun) ProcessWait("7z.exe") sleep(1488) DirRemove($pendkma1,1) $checker=FileExists($kmaname2) if $checker=1 Then GUICtrlSetData ($label,"Kma Mafuka saved successfully.") sleep(4000) GUIDelete() Else GUICtrlSetData ($label,"Kma save failed.Please try again..") sleep(4000) GUIDelete() EndIf Return WEnd Exit EndIf EndFunc [/sub][/color][/quote]
[Please Enable JavaScript]
K-Meleon forum is powered by
Phorum
.
Home/News
Screenshots
Download
Documentation
Resources
Get Involved
Forum
FAQ
English