Jump to content

Autosave a webpage every 15 mins into a folder


Recommended Posts

Something like this maybe:

HotKeySet("^q", "QuitApp")

$URL = "http://en.wikipedia.org/wiki/Main_Page"

$FileName = StringRegExpReplace($URL, "^.*/", "") & "_" & @HOUR & ";" & @MIN & ";" & @SEC & ".html"
$SavePath = "C:\AutoSave_WebPages"

If Not FileExists($SavePath) Then DirCreate($SavePath)

While 1
    InetGet($URL, $SavePath & "\" & $FileName)
    
    Sleep(60000 * 15)
WEnd

Func QuitApp()
    Exit
EndFunc

?

Edited by MrCreatoR

 

Spoiler

Using OS: Win 7 Professional, Using AutoIt Ver(s): 3.3.6.1 / 3.3.8.1

AutoIt_Rus_Community.png AutoIt Russian Community

My Work...

Spoiler

AutoIt_Icon_small.pngProjects: ATT - Application Translate Tool {new}| BlockIt - Block files & folders {new}| SIP - Selected Image Preview {new}| SISCABMAN - SciTE Abbreviations Manager {new}| AutoIt Path Switcher | AutoIt Menu for Opera! | YouTube Download Center! | Desktop Icons Restorator | Math Tasks | KeyBoard & Mouse Cleaner | CaptureIt - Capture Images Utility | CheckFileSize Program

AutoIt_Icon_small.pngUDFs: OnAutoItErrorRegister - Handle AutoIt critical errors {new}| AutoIt Syntax Highlight {new}| Opera Library! | Winamp Library | GetFolderToMenu | Custom_InputBox()! | _FileRun UDF | _CheckInput() UDF | _GUIInputSetOnlyNumbers() UDF | _FileGetValidName() UDF | _GUICtrlCreateRadioCBox UDF | _GuiCreateGrid() | _PathSplitByRegExp() | _GUICtrlListView_MoveItems - UDF | GUICtrlSetOnHover_UDF! | _ControlTab UDF! | _MouseSetOnEvent() UDF! | _ProcessListEx - UDF | GUICtrl_SetResizing - UDF! | Mod. for _IniString UDFs | _StringStripChars UDF | _ColorIsDarkShade UDF | _ColorConvertValue UDF | _GUICtrlTab_CoverBackground | CUI_App_UDF | _IncludeScripts UDF | _AutoIt3ExecuteCode | _DragList UDF | Mod. for _ListView_Progress | _ListView_SysLink | _GenerateRandomNumbers | _BlockInputEx | _IsPressedEx | OnAutoItExit Handler | _GUICtrlCreateTFLabel UDF | WinControlSetEvent UDF | Mod. for _DirGetSizeEx UDF
 
AutoIt_Icon_small.pngExamples: 
ScreenSaver Demo - Matrix included | Gui Drag Without pause the script | _WinAttach()! | Turn Off/On Monitor | ComboBox Handler Example | Mod. for "Thinking Box" | Cool "About" Box | TasksBar Imitation Demo

Like the Projects/UDFs/Examples? Please rate the topic (up-right corner of the post header: Rating AutoIt_Rating.gif)

* === My topics === *

==================================================
My_Userbar.gif
==================================================

 

 

 

AutoIt is simple, subtle, elegant. © AutoIt Team

Link to comment
Share on other sites

...with the timestamp on the file name...

MrCreatoR,

You might want to tweak this line...

$FileName = StringRegExpReplace($URL, "^.*/", "") & ".html"

...to include date/time

...or were you leaving some work for the OP :-)

[size="1"][font="Arial"].[u].[/u][/font][/size]

Link to comment
Share on other sites

..or were you leaving some work for the OP :-)

Exactly! otherwise he will not learn to do stuff by him self :(

but to be honest, i forgot about it.. :) ... hm, it seems that i starting to forget thing every where...

 

Spoiler

Using OS: Win 7 Professional, Using AutoIt Ver(s): 3.3.6.1 / 3.3.8.1

AutoIt_Rus_Community.png AutoIt Russian Community

My Work...

Spoiler

AutoIt_Icon_small.pngProjects: ATT - Application Translate Tool {new}| BlockIt - Block files & folders {new}| SIP - Selected Image Preview {new}| SISCABMAN - SciTE Abbreviations Manager {new}| AutoIt Path Switcher | AutoIt Menu for Opera! | YouTube Download Center! | Desktop Icons Restorator | Math Tasks | KeyBoard & Mouse Cleaner | CaptureIt - Capture Images Utility | CheckFileSize Program

AutoIt_Icon_small.pngUDFs: OnAutoItErrorRegister - Handle AutoIt critical errors {new}| AutoIt Syntax Highlight {new}| Opera Library! | Winamp Library | GetFolderToMenu | Custom_InputBox()! | _FileRun UDF | _CheckInput() UDF | _GUIInputSetOnlyNumbers() UDF | _FileGetValidName() UDF | _GUICtrlCreateRadioCBox UDF | _GuiCreateGrid() | _PathSplitByRegExp() | _GUICtrlListView_MoveItems - UDF | GUICtrlSetOnHover_UDF! | _ControlTab UDF! | _MouseSetOnEvent() UDF! | _ProcessListEx - UDF | GUICtrl_SetResizing - UDF! | Mod. for _IniString UDFs | _StringStripChars UDF | _ColorIsDarkShade UDF | _ColorConvertValue UDF | _GUICtrlTab_CoverBackground | CUI_App_UDF | _IncludeScripts UDF | _AutoIt3ExecuteCode | _DragList UDF | Mod. for _ListView_Progress | _ListView_SysLink | _GenerateRandomNumbers | _BlockInputEx | _IsPressedEx | OnAutoItExit Handler | _GUICtrlCreateTFLabel UDF | WinControlSetEvent UDF | Mod. for _DirGetSizeEx UDF
 
AutoIt_Icon_small.pngExamples: 
ScreenSaver Demo - Matrix included | Gui Drag Without pause the script | _WinAttach()! | Turn Off/On Monitor | ComboBox Handler Example | Mod. for "Thinking Box" | Cool "About" Box | TasksBar Imitation Demo

Like the Projects/UDFs/Examples? Please rate the topic (up-right corner of the post header: Rating AutoIt_Rating.gif)

* === My topics === *

==================================================
My_Userbar.gif
==================================================

 

 

 

AutoIt is simple, subtle, elegant. © AutoIt Team

Link to comment
Share on other sites

Actually, I pointed you (and the OP) to a line that was not (and need not) be inside of your loop. FileGetTime already returns a string that contains the desired info and it sorts well within the filing structure.

HotKeySet("^q", "QuitApp")

$URL = "http://en.wikipedia.org/wiki/Main_Page"

$FileName = StringRegExpReplace($URL, "^.*/", "") & ".html"
$SavePath = "C:\Temp"

If Not FileExists($SavePath) Then DirCreate($SavePath)

While 1
    InetGet($URL, $SavePath & "\" & $FileName)
    FileMove($FileName, FileGetTime($FileName, 0, 1) & ".html", 1)
    Sleep(60000 * 15)
WEnd

Func QuitApp()
    Exit
EndFunc   ;==>QuitApp

Edited by herewasplato

[size="1"][font="Arial"].[u].[/u][/font][/size]

Link to comment
Share on other sites

Or if you want to just append the date/time stamp:

HotKeySet("^q", "QuitApp")

$URL = "http://en.wikipedia.org/wiki/Main_Page"

$FileName = StringRegExpReplace($URL, "^.*/", "")
$SavePath = "C:\Temp"

If Not FileExists($SavePath) Then DirCreate($SavePath)

While 1
    InetGet($URL, $SavePath & "\" & $FileName)
    FileMove($FileName, $FileName & FileGetTime($FileName, 0, 1) & ".html", 1)
    Sleep(60000 * 15)
WEnd

Func QuitApp()
    Exit
EndFunc   ;==>QuitApp

Sorry for the back to back posts.

I've had trouble changing code within the AutoIt tags and I did not feel like:

(edit) remove the code (submit) with empty brackets,

(edit) replace the code (submit) with new code.

That works for me, but it is a pain.

[size="1"][font="Arial"].[u].[/u][/font][/size]

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...