Denna delen av 99 uppdateras inte längre utan har arkiverats inför framtiden som ett museum. Här kan du läsa mer om varför.
Mac-nyheter hittar du på Macradion.com och forumet hittar du via Applebubblan.
Hej, har en liten fråga. Tittar på 8 sidor hyfsat ofta. Skulle vilja ha ett script som jag klickar på som sedan laddar första sidan i Safari, väntar i några sekunder sedan laddar nästa och sedan nästa.
Har varit inne lite i Automator men hittar liksom inte riktigt rätt. Någon?
Du kan ju plocka upp alla sidorna som flikar, sedan välja "Bookmark for theese tabs" i bokmärkes-menyn, då har du ju ett bokmärke som laddar alla sidorna..
Du kan ju plocka upp alla sidorna som flikar, sedan välja "Bookmark for theese tabs" i bokmärkes-menyn, då har du ju ett bokmärke som laddar alla sidorna..
Klistra in i manusredigeraren och spara som script eller app. Du kanske är ute efter några andra sidor, så ändra dem först...
tell application "Safari"
set URL of current tab of window 1 to "http://www.99.se"
delay 5
set URL of current tab of window 1 to "http://www.99.se/mac"
delay 5
set URL of current tab of window 1 to "http://www.99.se/musik"
delay 5
end tell
Dammit, Baron hann före, här är mitt exakt likadana... Det plockar upp i samma fönster först dagens diskussioner på 99.se/mac, sedan dagens diskussioner på 99.se/ipod, sedan dagens diskussioner på 99.se/web
tell application "Safari"
activate -- Detta kommando startar Safari och/eller öppnar ett nytt dokument om inget finns.
set thisManySeconds to 6 -- Denna fiffigt döpta variabel avgör hur länge du vill vänta/titta på varje sida.
-- Öppna först URL'en (Dagens Diskussioner 99.se/MAC) + vänt
set URL of document 1 to "http://www.99.se/search.php?do=getdaily&exclu..."
delay thisManySeconds
-- Öppna först URL'en (Dagens Diskussioner 99.se/IPOD) + vänt
set URL of document 1 to "http://www.99.se/search.php?do=getdaily&exclu..."
delay thisManySeconds
-- Öppna först URL'en (Dagens Diskussioner 99.se/WEBB) + vänt
set URL of document 1 to "http://www.99.se/search.php?do=getdaily&exclu..."
delay thisManySeconds
end tell
Taz vinner. Jag glömde "activate". Men jag skrev å andra sidan utifrån att man kör skriptet inifrån Safari.
Acke, thisManySeconds är bra om man vill ha alla sidor öppna lika länge. Men om man skannar av Aftonbladet på 3 sekunder och nytimes.com på 6 kanske man vill speca fr varje site hur länge man vill kika. Delayvärdet tar heller ingen hänsyn till hur lång tid sidan tar att ladda.
Man kan istället för att skapa massa skript skapa en mapp i "bookmarks bar" och ha alla länkar där och således när man trycker öppna i flikar, öppna alla, sedan ta ner flik efter flik med Äpple+w
Med lite fulkod har jag gjort en variant som frågar om man vill gå vidare och går vidare ändå om man väntar för länge. Den minns också var man var om man stannade nånstans på vägen.
property mySite : ""
property myDialog : ""
property myStart : ""
if myStart is "" then
my FC1()
else if myStart is "DN" then
my FC2()
else if myStart is "SvD" then
my FC3()
else if myStart is "AB" then
my FC4()
else if myStart is "EX" then
my FC5()
end if
on FC1()
tell application "Safari"
activate
set myStart to "SDS"
set mySite to "http://sydsvenskan.se"
set URL of current tab of window 1 to mySite
delay 3
set myDialog to "Fortsätt till DN?"
set mySite to "http://www.dn.se"
set myStart to "DN"
display dialog myDialog giving up after 5
set URL of current tab of window 1 to mySite
delay 3
set myDialog to "Fortsätt till SvD?"
set mySite to "http://www.svd.se"
set myStart to "SvD"
display dialog myDialog giving up after 5
set URL of current tab of window 1 to mySite
delay 3
set myDialog to "Fortsätt till Aftonbladet?"
set mySite to "http://www.aftonbladet.se"
set myStart to "AB"
display dialog myDialog giving up after 5
set URL of current tab of window 1 to mySite
delay 3
set myDialog to "Fortsätt till Expressen?"
set mySite to "http://www.expressen.se"
set myStart to "EX"
display dialog myDialog giving up after 5
set URL of current tab of window 1 to mySite
end tell
end FC1
on FC2()
tell application "Safari"
activate
(*
set myStart to "SDS"
set mySite to "http://sydsvenskan.se"
set URL of current tab of window 1 to mySite
delay 3
set myDialog to "Fortsätt till DN?"
set mySite to "http://www.dn.se"
set myStart to "DN"
display dialog myDialog giving up after 5
*)
set URL of current tab of window 1 to mySite
delay 3
set myDialog to "Fortsätt till SvD?"
set mySite to "http://www.svd.se"
set myStart to "SvD"
display dialog myDialog giving up after 5
set URL of current tab of window 1 to mySite
delay 3
set myDialog to "Fortsätt till Aftonbladet?"
set mySite to "http://www.aftonbladet.se"
set myStart to "AB"
display dialog myDialog giving up after 5
set URL of current tab of window 1 to mySite
delay 3
set myDialog to "Fortsätt till Expressen?"
set mySite to "http://www.expressen.se"
set myStart to "EX"
display dialog myDialog giving up after 5
set URL of current tab of window 1 to mySite
end tell
end FC2
on FC3()
tell application "Safari"
activate
(*
set myStart to "SDS"
set mySite to "http://sydsvenskan.se"
set URL of current tab of window 1 to mySite
delay 3
set myDialog to "Fortsätt till DN?"
set mySite to "http://www.dn.se"
set myStart to "DN"
display dialog myDialog giving up after 5
set URL of current tab of window 1 to mySite
delay 3
set myDialog to "Fortsätt till SvD?"
set mySite to "http://www.svd.se"
set myStart to "SvD"
display dialog myDialog giving up after 5
*)
set URL of current tab of window 1 to mySite
delay 3
set myDialog to "Fortsätt till Aftonbladet?"
set mySite to "http://www.aftonbladet.se"
set myStart to "AB"
display dialog myDialog giving up after 5
set URL of current tab of window 1 to mySite
delay 3
set myDialog to "Fortsätt till Expressen?"
set mySite to "http://www.expressen.se"
set myStart to "EX"
display dialog myDialog giving up after 5
set URL of current tab of window 1 to mySite
end tell
end FC3
on FC4()
tell application "Safari"
activate
(*
set myStart to "SDS"
set mySite to "http://sydsvenskan.se"
set URL of current tab of window 1 to mySite
delay 3
set myDialog to "Fortsätt till DN?"
set mySite to "http://www.dn.se"
set myStart to "DN"
display dialog myDialog giving up after 5
set URL of current tab of window 1 to mySite
delay 3
set myDialog to "Fortsätt till SvD?"
set mySite to "http://www.svd.se"
set myStart to "SvD"
display dialog myDialog giving up after 5
set URL of current tab of window 1 to mySite
delay 3
set myDialog to "Fortsätt till Aftonbladet?"
set mySite to "http://www.aftonbladet.se"
set myStart to "AB"
display dialog myDialog giving up after 5
*)
set URL of current tab of window 1 to mySite
delay 3
set myDialog to "Fortsätt till Expressen?"
set mySite to "http://www.expressen.se"
set myStart to "EX"
display dialog myDialog giving up after 5
set URL of current tab of window 1 to mySite
end tell
end FC4
on FC5()
tell application "Safari"
activate
(*
set myStart to "SDS"
set mySite to "http://sydsvenskan.se"
set URL of current tab of window 1 to mySite
delay 3
set myDialog to "Fortsätt till DN?"
set mySite to "http://www.dn.se"
set myStart to "DN"
display dialog myDialog giving up after 5
set URL of current tab of window 1 to mySite
delay 3
set myDialog to "Fortsätt till SvD?"
set mySite to "http://www.svd.se"
set myStart to "SvD"
display dialog myDialog giving up after 5
set URL of current tab of window 1 to mySite
delay 3
set myDialog to "Fortsätt till Aftonbladet?"
set mySite to "http://www.aftonbladet.se"
set myStart to "AB"
display dialog myDialog giving up after 5
set URL of current tab of window 1 to mySite
delay 3
set myDialog to "Fortsätt till Expressen?"
set mySite to "http://www.expressen.se"
set myStart to "EX"
display dialog myDialog giving up after 5
*)
set URL of current tab of window 1 to mySite
end tell
end FC5
Med lite fulkod har jag gjort en variant som frågar om man vill gå vidare och går vidare ändå om man väntar för länge. Den minns också var man var om man stannade nånstans på vägen.
property mySite : ""
property myDialog : ""
property myStart : ""
if myStart is "" then
my FC1()
else if myStart is "DN" then
my FC2()
else if myStart is "SvD" then
my FC3()
else if myStart is "AB" then
my FC4()
else if myStart is "EX" then
my FC5()
end if
on FC1()
tell application "Safari"
activate
set myStart to "SDS"
set mySite to "http://sydsvenskan.se"
set URL of current tab of window 1 to mySite
delay 3
set myDialog to "Fortsätt till DN?"
set mySite to "http://www.dn.se"
set myStart to "DN"
display dialog myDialog giving up after 5
set URL of current tab of window 1 to mySite
delay 3
set myDialog to "Fortsätt till SvD?"
set mySite to "http://www.svd.se"
set myStart to "SvD"
display dialog myDialog giving up after 5
set URL of current tab of window 1 to mySite
delay 3
set myDialog to "Fortsätt till Aftonbladet?"
set mySite to "http://www.aftonbladet.se"
set myStart to "AB"
display dialog myDialog giving up after 5
set URL of current tab of window 1 to mySite
delay 3
set myDialog to "Fortsätt till Expressen?"
set mySite to "http://www.expressen.se"
set myStart to "EX"
display dialog myDialog giving up after 5
set URL of current tab of window 1 to mySite
end tell
end FC1
on FC2()
tell application "Safari"
activate
(*
set myStart to "SDS"
set mySite to "http://sydsvenskan.se"
set URL of current tab of window 1 to mySite
delay 3
set myDialog to "Fortsätt till DN?"
set mySite to "http://www.dn.se"
set myStart to "DN"
display dialog myDialog giving up after 5
*)
set URL of current tab of window 1 to mySite
delay 3
set myDialog to "Fortsätt till SvD?"
set mySite to "http://www.svd.se"
set myStart to "SvD"
display dialog myDialog giving up after 5
set URL of current tab of window 1 to mySite
delay 3
set myDialog to "Fortsätt till Aftonbladet?"
set mySite to "http://www.aftonbladet.se"
set myStart to "AB"
display dialog myDialog giving up after 5
set URL of current tab of window 1 to mySite
delay 3
set myDialog to "Fortsätt till Expressen?"
set mySite to "http://www.expressen.se"
set myStart to "EX"
display dialog myDialog giving up after 5
set URL of current tab of window 1 to mySite
end tell
end FC2
on FC3()
tell application "Safari"
activate
(*
set myStart to "SDS"
set mySite to "http://sydsvenskan.se"
set URL of current tab of window 1 to mySite
delay 3
set myDialog to "Fortsätt till DN?"
set mySite to "http://www.dn.se"
set myStart to "DN"
display dialog myDialog giving up after 5
set URL of current tab of window 1 to mySite
delay 3
set myDialog to "Fortsätt till SvD?"
set mySite to "http://www.svd.se"
set myStart to "SvD"
display dialog myDialog giving up after 5
*)
set URL of current tab of window 1 to mySite
delay 3
set myDialog to "Fortsätt till Aftonbladet?"
set mySite to "http://www.aftonbladet.se"
set myStart to "AB"
display dialog myDialog giving up after 5
set URL of current tab of window 1 to mySite
delay 3
set myDialog to "Fortsätt till Expressen?"
set mySite to "http://www.expressen.se"
set myStart to "EX"
display dialog myDialog giving up after 5
set URL of current tab of window 1 to mySite
end tell
end FC3
on FC4()
tell application "Safari"
activate
(*
set myStart to "SDS"
set mySite to "http://sydsvenskan.se"
set URL of current tab of window 1 to mySite
delay 3
set myDialog to "Fortsätt till DN?"
set mySite to "http://www.dn.se"
set myStart to "DN"
display dialog myDialog giving up after 5
set URL of current tab of window 1 to mySite
delay 3
set myDialog to "Fortsätt till SvD?"
set mySite to "http://www.svd.se"
set myStart to "SvD"
display dialog myDialog giving up after 5
set URL of current tab of window 1 to mySite
delay 3
set myDialog to "Fortsätt till Aftonbladet?"
set mySite to "http://www.aftonbladet.se"
set myStart to "AB"
display dialog myDialog giving up after 5
*)
set URL of current tab of window 1 to mySite
delay 3
set myDialog to "Fortsätt till Expressen?"
set mySite to "http://www.expressen.se"
set myStart to "EX"
display dialog myDialog giving up after 5
set URL of current tab of window 1 to mySite
end tell
end FC4
on FC5()
tell application "Safari"
activate
(*
set myStart to "SDS"
set mySite to "http://sydsvenskan.se"
set URL of current tab of window 1 to mySite
delay 3
set myDialog to "Fortsätt till DN?"
set mySite to "http://www.dn.se"
set myStart to "DN"
display dialog myDialog giving up after 5
set URL of current tab of window 1 to mySite
delay 3
set myDialog to "Fortsätt till SvD?"
set mySite to "http://www.svd.se"
set myStart to "SvD"
display dialog myDialog giving up after 5
set URL of current tab of window 1 to mySite
delay 3
set myDialog to "Fortsätt till Aftonbladet?"
set mySite to "http://www.aftonbladet.se"
set myStart to "AB"
display dialog myDialog giving up after 5
set URL of current tab of window 1 to mySite
delay 3
set myDialog to "Fortsätt till Expressen?"
set mySite to "http://www.expressen.se"
set myStart to "EX"
display dialog myDialog giving up after 5
*)
set URL of current tab of window 1 to mySite
end tell
end FC5
