一次開啟多個網頁的 applescript

[悲]

人人合用，絕不留手：)

以老地方冰果室交流區為例：

交流區內細分為 Mac 硬體討論區，Mac 軟體討論區，Mac OS X 經驗交流，D.A.M.P ，Adobe 使用者討論區，PDA 專區，數位照相機／攝影機，新手發問區，留言試貼區，MWSG，二手市場，團購討論區，動畫漫畫天地，坐享冰品、聊天說地；共十四個網頁。

若每天要到各區看看，滑鼠點擊的次數會很可觀。以下的 applescript，執行之便可一次開啟全部交流區網頁，或用 Script Editor 修改變數 frostyplaceBB 內的布林值。

舉例：如對 留言試貼區 沒有興趣，則可把 {"留言試貼區", true} 改為 {"留言試貼區", false}。

<BLOCKQUOTE><font size="1" face="XYZ">code:</font><HR><pre>
set frostyplaceBB to {{"Mac 硬體討論區", true}, ¬
{"Mac 軟體討論區", true}, ¬
{"Mac OS X 經驗交流", true}, ¬
{"D.A.M.P", true}, ¬
{"Adobe 使用者討論區 ", true}, ¬
{"PDA 專區", true}, ¬
{"數位照相機／攝影機", true}, ¬
{"新手發問區", true}, ¬
{"留言試貼區", true}, ¬
{"MWSG", true}, ¬
{"二手市場", true}, ¬
{"團購討論區", true}, ¬
{"動畫漫畫天地", true}, ¬
{"坐享冰品、聊天說地", true}}


set URList to {"http://ubb.frostyplace.com.tw/cgi-bin/ultimatebb.cgi?ubb=forum&f=1", ¬
"http://ubb.frostyplace.com.tw/cgi-bin/ultimatebb.cgi?ubb=forum&f=2", ¬
"http://ubb.frostyplace.com.tw/cgi-bin/ultimatebb.cgi?ubb=forum&f=3", ¬
"http://ubb.frostyplace.com.tw/cgi-bin/ultimatebb.cgi?ubb=forum&f=13", ¬
"http://ubb.frostyplace.com.tw/cgi-bin/ultimatebb.cgi?ubb=forum&f=10", ¬
"http://ubb.frostyplace.com.tw/cgi-bin/ultimatebb.cgi?ubb=forum&f=9", ¬
"http://ubb.frostyplace.com.tw/cgi-bin/ultimatebb.cgi?ubb=forum&f=6", ¬
"http://ubb.frostyplace.com.tw/cgi-bin/ultimatebb.cgi?ubb=forum&f=7", ¬
"http://ubb.frostyplace.com.tw/cgi-bin/ultimatebb.cgi?ubb=forum&f=8", ¬
"http://ubb.frostyplace.com.tw/cgi-bin/ultimatebb.cgi?ubb=forum&f=11", ¬
"http://ubb.frostyplace.com.tw/cgi-bin/ultimatebb.cgi?ubb=forum&f=4", ¬
"http://ubb.frostyplace.com.tw/cgi-bin/ultimatebb.cgi?ubb=forum&f=14", ¬
"http://ubb.frostyplace.com.tw/cgi-bin/ultimatebb.cgi?ubb=forum&f=12", ¬
"http://ubb.frostyplace.com.tw/cgi-bin/ultimatebb.cgi?ubb=forum&f=5"}


repeat with i from 1 to count of frostyplaceBB
if item -1 of item i of frostyplaceBB = true then
try
open location (item i of URList)
end try
end if
end repeat
</pre><HR></BLOCKQUOTE>

除冰果室外，小弟的 iDisk 內有多個人氣中文蘋果網站留言區的已編譯的檔案 (file name starts with BB)，有空可下載一試。
http://homepage.mac.com/WebObjects/FileSharing.woa/wa/default?user=cherish&templatefn=FileSharing1.html

旁言，如用 script menu 執行之，可參看：
http://www.apple.com/applescript/script_menu/

[bryanchang]

我比較懶，我都用 UBB 的今日新增話題網頁：
http://ubb.frostyplace.com.tw/cgi-bin/ultimatebb.cgi?ubb=get_daily

[bryanchang]

據我所知，IE 5 可以支援從 AppleScript 去執行 JavaScript，不知悲兄可不可以亮一手給我們開開眼界？

[悲]

這個嗎... 動機是懶，到新增話題網頁看看有什麼新留言也很費力，試試這方法：

略述：先用 IE 開啟今日新增話題網頁；次用 applescript 執行 javaScript，把網頁內的連結列出；然後用整理成為一 topicList 陣列；最後用 IE 把陣列內的每一個連結開啟。於是乎，不用看新增話題網頁，執行以下程式便可閱覽每日所有新增話題。

已編譯的檔案 ( xnewTopicIE ) 在小弟的 iDisk 內，有空可下載一試。
http://homepage.mac.com/WebObjects/FileSharing.woa/wa/default?user=cherish&templatefn=FileSharing1.html


<BLOCKQUOTE><font size="1" face="XYZ">code:</font><HR><pre>
set javaScriptCode to "
numLinks=document.links.length;
linkList='';
for (i=0; i<numLinks; i++) {
linkList= linkList + document.links + '\\r';
}
"

tell application "Internet Explorer"
Activate
OpenURL "http://ubb.frostyplace.com.tw/cgi-bin/ultimatebb.cgi?ubb=get_daily" toWindow -1
repeat until (GetWindowInfo -1) contains "老地方冰果室交流區 :"
end repeat
set linksResult to do script javaScriptCode
CloseWindow -1
delay 1
set linksList to every paragraph of linksResult
set topicList to {}
repeat with i in linksList
if contents of i contains "get_topic" then set end of topicList to contents of i
end repeat
repeat with i in topicList
try
OpenURL contents of i toWindow 0
end try
end repeat
end tell
</pre><HR></BLOCKQUOTE>

後話：見笑，小弟一不用 IE ，二不懂 javaScript；班門弄斧，汗顏汗顏。

[悲]

好！說實在的，要人人合用真的是...

不如白老大出題目，看看各種程式語言的可能答案？

[bryanchang]

有個疑問，第二個 AppleScript 跟原先的差異在那裡？我兩個都執行了可是結果卻差不多？

[悲]

第一個 applescript，如不改動，執行時會開啟各冰果室討論區的網頁，共十四個。使用者要看過後再用滑鼠點擊才可開啟每一區內的留言。

第二個 applescript，執行時會用 IE 直接開啟各冰果室討論區的每日新增留言。

舉例，今天共有三十個新增留言，每個討論區有幾則。

如用第一個 applescript，執行時有十四個瀏覽器視窗出現，要每個網頁看看有那幾則新增留言，再點擊之。未計轉換視窗，要多點擊三十次。

如用第二個 applescript，執行時三十個新增留言會自行出現，
nothing more to do。

再者，第一個 applescript 使用 Standard Additions 內其中一個 command : open location。Open location 會用 internet preferences 的指定瀏覽器開啟網頁。即是，執行此 applescript ，如用者甲是 Mozilla，用者乙是 iCab，用者丙是 OmniWeb，可各用其喜好瀏覽器達致同一效果，不用修改。

第二個 applescript，因應需求，指定了瀏覽器為 Internet Explorer。如在一沒有 IE 的機器上執行，會出現錯誤，可攜性較低。另外，此 script 示範了怎樣用 applescript 經由 IE 執行 javaScript。


小弟才疏，未能想到可用 javaScript 做什麼，有提議嗎？

或，看看一及二的混合體，用 shell command？