Autosave a webpage every 15 mins into a folder

[tradertt]

I want to autosave a webpage every 15 mins with the timestamp on the file name into a folder in my computer.

Can this be done and can anyone help to script this out?

Thank you

[Generator]

Try looking into

InetGet ( "URL" [,"filename" [, reload [, background]]] )

[MrCreatoR]

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 May 6, 2008 by MrCreatoR

[herewasplato]

...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 :-)

[MrCreatoR]

..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...

[herewasplato]

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 May 6, 2008 by herewasplato

[herewasplato]

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.