Jump to content
Sign in to follow this  
shoust

New to autoit scripting , need help with autosave script

Recommended Posts

shoust

I'm making a script to open up and save webpages, i think it would be useful to some who save pages often. But I have a couple of problems with it.

1. First of all the script seems to enter the length of the array and I don't know why that is happening.

2. Sometimes the save dialog appears when I don't want it to. (I need to bring it up after page load, which I'm using sleep for now with).

Could anyone give me any pointers on how to improve this script?

Thanks in advance

#include <GUIConstants.au3>
#include <IE.au3>
; == GUI generated with Koda ==);
$Form1 = GUICreate("AForm1", 284, 352, 345, 179)
$StartSav = GUICtrlCreateButton("Start ", 208, 320, 65, 25, 0)
$Group1 = GUICtrlCreateGroup("Sites", 8, 8, 273, 105)
GUICtrlCreateLabel("Enter sites seperated by commas to save.", 24, 24, 243, 17)
$Input1 = GUICtrlCreateInput("", 24, 48, 241, 53)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("Browser", 8, 128, 273, 89)
GUICtrlCreateLabel("Select browser to Open and Save to, or enter browser path here.", 24, 152, 182, 30)
$Combo1 = GUICtrlCreateCombo("", 24, 188, 241, 21)
GUICtrlSetData(-1, "Internet Explorer|Firefox|Opera")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group3 = GUICtrlCreateGroup("AGroup3", 8, 232, 273, 81)
GUICtrlCreateLabel("Enter folder path to save to", 24, 248, 132, 17)
$Input2 = GUICtrlCreateInput("", 24, 272, 241, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
While 1
    $msg = GUIGetMsg()
    If $msg = $GUI_EVENT_CLOSE Then
        Exit 0
    EndIf
    If $msg = $StartSav Then
        StartSaving()
    EndIf
WEnd

Func StartSaving()
$sites=StringSplit(GUICtrlRead($Input1,0), ",")
    Select
        Case GUICtrlRead($Combo1,0) = "Internet Explorer"
_IECreate ("about:blank")
        Case GUICtrlRead($Combo1,0) = "Firefox"
            Run("C:\Program Files\Mozilla Firefox\firefox.exe", "", @SW_SHOW)
        Case GUICtrlRead($Combo1,0) = "Opera"
            Run("C:\Program Files\Opera\opera.exe", "", @SW_SHOW)
WinSetOnTop("Opera", "", 1)
Case Else
Run(GUICtrlRead($Combo1,0), "", @SW_SHOW)
    EndSelect
sleep(2000)
For $I = 0 to UBound( $sites ) - 1
send("{CTRLDOWN}{l down}{l up}{CTRLUP}")
sleep(500)
send($sites[$I])
send("{enter}")
sleep(10000)
send("{CTRLDOWN}{s down}{s up}{CTRLUP}")
send(GUICtrlRead($Input2,0))
send("{enter}")
$savefile=StringReplace($sites[$I], ".", "-")
$savefile=StringReplace($savefile, "http://", "",1)
$savefile=StringReplace($sites[$I], "/", "@")
send($savefile)
send("{enter}")
Next
EndFunc

Share this post


Link to post
Share on other sites
NELyon

Here's a simple code without gui's ect...

$url = InputBox("Web Page Saver", "Enter URL", "http://")
INetGet($url, "webpage.html")

This doesen't grap images though

Edited by codemyster

Share this post


Link to post
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
Sign in to follow this  

×

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.