- acke
- Medlem ●
- Stockholm
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..
Tillräckligt nära?
Tack men aldrig varit ett stort fan av tabs. Om det finns en annan lösning är jag glad men orkar ingen så hajar jag det om ni fattar.
Då har du missat nåt. Tabbar är finfina. Växla mellan tabbar med cmd+Ä resp Ö.
Cmd+Shift+Ä resp Ö är det väl? Cmd+Ä/Ö är väl framåt/bakåt?
Jag har också senaste safari, 3.1.1, och för mig är det med shift. Skumt...
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
Var det nåt sånt du ville ha?
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.
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
Åh Baron inte behöver du fortsätta. Du har ju redan min kärlek som i en liten ask.