mehrere URL öffnen mit AppleScript und...

[goegg-art]

hallo

ich bin Anfänger in Sachen AppleScript möchte es aber schon irgendwie mal lernen.

Was ich aber jetzt schon machen will ist ungefär folgendes:

Ich möchte eine Zahl eingeben können z.B. 1600
dann soll ein limit angegeben werden können .z.b. 25
und nun sollen URL`s aufgerufen (limit) werden die immer gleich ist
ausser die letze Zahl, also:

ist sowas machbar in AppleScript?
und wie soll ich vorgehen

hoffe es ist relativ klar was ich meine

 

[goegg-art]

so nach langem basteln habe ich es doch selbst hinbekommen.
Dieses Script ist nun auch ein Hint auf macosxhints.ch

hier einfach mal das Script damit dieser Tread ein Sinn ergibt ;-)
Ziel war es einen Hint(URL) nach dem anderen aufzurufen und via Automator als PDF zu sichern..

-- Erstellt durch goegg-art.ch
-- Mit Hilfe aus diversen Foren im WWW. Danke!

property target_URL : "http://www.macosxhints.ch/index.php?page=2&hintid="
set lasthint to display dialog "Letzte 'Hint ID' eingeben:" ¬
& return & "(Siehe URL beim neusten Hint ..hintid=1612)" ¬
default answer "" buttons {"abbrechen", "weiter"} default button 2
set mycount to text returned of lasthint as integer
set savelimit to display dialog "Wieviele 'Hints' sollen gespeichert werden?:" ¬
& return & "(z.B. 2 also hint1612, hint1611...)" default answer "" ¬
buttons {"abbrechen", "weiter"} default button 2
set mylimit to text returned of savelimit as integer
set makeit to (mycount - mylimit)
set todo to "0"
display dialog "Es werden die Hints ”" & mycount & "” bis ”" & makeit & "”" ¬
& return & " nacheinander geöffnet und einzeln als .pdf gesichert." ¬
buttons {"abbrechen", "weiter"} default button 2
repeat mylimit times
        open location target_URL & (mycount - todo)
        tell application "Safari"
                activate window 1
                delay 3
        display dialog "Diesen 'Hint' als PDF speichern?" ¬
buttons {"Nein", "Ja"} default button 2
        if the button returned of the result is "Ja" then
                        --Aufruf des erstellten Automator Programms
                        tell application "exportpdf"
                        activate
                        end tell
                        delay 3
                        close window 1
                 end if
        end tell
        set todo to todo + 1
end repeat