[Safari]前面ウィンドウの全てのタブを保存して、後でTABの内容ごと復帰させる（タブグループの名前で保存できるようにした v1.1）

ダウンロード - windowsaveandrestore.zip

---

---

【スクリプトエディタで開く】 | 【クリップボードへコピー】

Windowのタブ保存.applescript

	ソース
001	#!/usr/bin/env osascript
002	----+----1----+----2----+-----3----+----4----+----5----+----6----+----7
003	(*
004	サファリの前面Windowの内容を保存する
005	PLIST形式にして保存しておく tabの構成も保存される
006	拡張子は独自のtabgroupを使用
007	中身はXML形式のplist
008
009	v1 初回作成
010	v1.1 ファイル名を選べるようにした
011
012	com.cocolog-nifty.quicktimer.icefloe *)
013	----+----1----+----2----+-----3----+----4----+----5----+----6----+----7
014	use AppleScript version "2.8"
015	use framework "Foundation"
016	use framework "AppKit"
017	use scripting additions
018	property refMe : a reference to current application
019
020
021	tell application "Safari"
022	set numCntWindow to (count of every window) as integer
023	end tell
024
025	if numCntWindow = 0 then
026	tell application "Safari"
027	activate
028	display alert "SafariでURLを開いていません" buttons {"終了"} default button "終了" cancel button "終了" as informational giving up after 3
029	end tell
030	return "Windowがありません"
031	end if
032	#保存用のARRAY
033	set ocidSaveArray to refMe's NSMutableArray's alloc()'s init()
034
035	#アプリケーション
036	tell application "Safari"
037	#前面ウィンドウ
038	tell front window
039	set numCurrentTabIndex to (index of current tab) as integer
040	#タブの数を数えて
041	set numCntTab to (count of every tab) as integer
042	#タブの情報を取得
043	repeat with itemNo from 1 to numCntTab by 1
044	tell tab itemNo
045	set numIndex to index as integer
046	set strURL to URL as text
047	set strTitle to name as text
048	set boolVisible to visible as boolean
049	end tell
050
051	#URL情報をレコードにして
052	if numIndex = numCurrentTabIndex then
053	set recordTAB to {|index|:numIndex, |URL|:strURL, |name|:strTitle, |visible|:boolVisible, |activTab|:true} as record
054	else
055	set recordTAB to {|index|:numIndex, |URL|:strURL, |name|:strTitle, |visible|:boolVisible, |activTab|:false} as record
056	end if
057
058	set ocidTabDict to refMe's NSMutableDictionary's alloc()'s init()
059	(ocidTabDict's setDictionary:(recordTAB))
060	#リストに追加
061	(ocidSaveArray's addObject:(ocidTabDict))
062	end repeat
063	end tell
064	end tell
065
066	#PLISTにする
067	set ocidFormat to (refMe's NSPropertyListXMLFormat_v1_0)
068	set ocidOption to (refMe's NSPropertyListMutableContainersAndLeaves)
069	set listResponse to refMe's NSPropertyListSerialization's dataWithPropertyList:(ocidSaveArray) format:(ocidFormat) options:(0) |error|:(reference)
070	set ocidPlistData to (item 1 of listResponse)
071
072
073	#保存先
074	set appFileManager to refMe's NSFileManager's defaultManager()
075	set ocidURLsArray to (appFileManager's URLsForDirectory:(refMe's NSDocumentDirectory) inDomains:(refMe's NSUserDomainMask))
076	set ocidDocumentDirPathURL to ocidURLsArray's firstObject()
077	set ocidSaveDirPathURL to ocidDocumentDirPathURL's URLByAppendingPathComponent:("Apple/Safari/SaveWindow") isDirectory:(true)
078	set aliasSaveDirPath to (ocidSaveDirPathURL's absoluteURL()) as alias
079
080	#フォルダ作成
081	set ocidAttrDict to refMe's NSMutableDictionary's alloc()'s initWithCapacity:0
082	ocidAttrDict's setValue:(448) forKey:(refMe's NSFilePosixPermissions)
083	set listDone to appFileManager's createDirectoryAtURL:(ocidSaveDirPathURL) withIntermediateDirectories:true attributes:(ocidAttrDict) |error|:(reference)
084	#
085	tell application "Safari"
086	tell front window
087	tell current tab
088	set strTabName to name as text
089	end tell
090	end tell
091	end tell
092
093	#日付を取得してファイル名に
094	set strDateNo to doGetDateNo("yyyyMMdd_HHmmss")
095	set strSetSaveName to ("" & strTabName & "@" & strDateNo & ".tabgroup") as text
096	#
097	set strName to (name of current application) as text
098	if strName is "osascript" then
099	tell application "Finder" to activate
100	else
101	tell current application to activate
102	end if
103	set strPromptText to "名前を決めてください" as text
104	set strMesText to "名前を決めてください" as text
105	###ファイル名　ダイアログ
106	tell application "SystemUIServer"
107	activate
108	set aliasSaveFilePath to (choose file name strMesText default location aliasSaveDirPath default name strSetSaveName with prompt strPromptText) as «class furl»
109	end tell
110	tell application "SystemUIServer" to quit
111	###パス
112	set strSaveFilePath to (POSIX path of aliasSaveFilePath) as text
113	set ocidSaveFilePathStr to refMe's NSString's stringWithString:(strSaveFilePath)
114	set ocidSaveFilePath to ocidSaveFilePathStr's stringByStandardizingPath()
115	set ocidSaveFilePathURL to (refMe's NSURL's alloc()'s initFileURLWithPath:(ocidSaveFilePath) isDirectory:false)
116	set ocidContainerDirPathURL to ocidSaveFilePathURL's URLByDeletingLastPathComponent()
117	###拡張子
118	set strExtension to (ocidSaveFilePathURL's pathExtension()) as text
119	###最後のアイテムがファイル名
120	set strFileName to (ocidSaveFilePathURL's lastPathComponent()) as text
121	###拡張子のつけ忘れ対策
122	if strFileName does not contain "tabgroup" then
123	set strFileName to (strFileName & ".tabgroup") as text
124	set ocidSaveFilePathURL to ocidContainerDirPathURL's URLByAppendingPathComponent:(strFileName)
125	end if
126
127
128	#保存
129	set ocidOption to (refMe's NSDataWritingAtomic)
130	set listDone to ocidPlistData's writeToURL:(ocidSaveFilePathURL) options:(ocidOption) |error|:(reference)
131
132
133
134	##############################
135	### 今の日付日間　テキスト
136	##############################
137	to doGetDateNo(argDateFormat)
138	####日付情報の取得
139	set ocidDate to current application's NSDate's |date|()
140	###日付のフォーマットを定義
141	set ocidNSDateFormatter to current application's NSDateFormatter's alloc()'s init()
142	ocidNSDateFormatter's setLocale:(current application's NSLocale's localeWithLocaleIdentifier:"ja_JP_POSIX")
143	set ocidTimeZone to refMe's NSTimeZone's alloc()'s initWithName:"Asia/Tokyo"
144	ocidNSDateFormatter's setTimeZone:(ocidTimeZone)
145	ocidNSDateFormatter's setDateFormat:(argDateFormat)
146	set ocidDateAndTime to ocidNSDateFormatter's stringFromDate:ocidDate
147	set strDateAndTime to ocidDateAndTime as text
148	return strDateAndTime
149	end doGetDateNo
AppleScriptで生成しました

---

【スクリプトエディタで開く】 | 【クリップボードへコピー】

Windowのタブ復帰.applescript

	ソース
001	#!/usr/bin/env osascript
002	----+----1----+----2----+-----3----+----4----+----5----+----6----+----7
003	(*
004	サファリの保存したWindowの内容をレストアする
005	前面tabも復帰させるようにした
006
007
008	v1 初回作成
009	v1.1 タブが１つの登録時にエラーにならないようにした
010
011	com.cocolog-nifty.quicktimer.icefloe *)
012	----+----1----+----2----+-----3----+----4----+----5----+----6----+----7
013	use AppleScript version "2.8"
014	use framework "Foundation"
015	use framework "AppKit"
016	use scripting additions
017	property refMe : a reference to current application
018
019
020	#保存先
021	set appFileManager to refMe's NSFileManager's defaultManager()
022	#書類フォルダ
023	set ocidURLsArray to (appFileManager's URLsForDirectory:(refMe's NSDocumentDirectory) inDomains:(refMe's NSUserDomainMask))
024	set ocidDocumentDirPathURL to ocidURLsArray's firstObject()
025	#保存先ディレクトリ
026	set ocidSaveDirPathURL to ocidDocumentDirPathURL's URLByAppendingPathComponent:("Apple/Safari/SaveWindow") isDirectory:(true)
027	set aliasSaveDirPath to (ocidSaveDirPathURL's absoluteURL()) as alias
028	#コンテンツの収集
029	set ocidOption to (refMe's NSDirectoryEnumerationSkipsHiddenFiles)
030	set ocidKeyArray to refMe's NSMutableArray's alloc()'s initWithCapacity:(0)
031	ocidKeyArray's addObject:(refMe's NSURLPathKey)
032	set listResponse to (appFileManager's contentsOfDirectoryAtURL:(ocidSaveDirPathURL) includingPropertiesForKeys:(ocidKeyArray) options:(ocidOption) |error|:(reference))
033	set ocidSubPathURLArray to (item 1 of listResponse)
034	#ファイル名のリストにする
035	set listChooser to {} as list
036	repeat with itemURL in ocidSubPathURLArray
037	set strFileName to itemURL's lastPathComponent() as text
038	set end of listChooser to strFileName
039	end repeat
040	#ダイアログ
041	set strName to (name of current application) as text
042	if strName is "osascript" then
043	tell application "Finder" to activate
044	else
045	tell current application to activate
046	end if
047	set strTitle to ("選んでください") as text
048	set strPrompt to ("選んだ項目で戻します") as text
049	try
050	set objResponse to (choose from list listChooser with title strTitle with prompt strPrompt default items (item 1 of listChooser) OK button name "OK" cancel button name "キャンセル" with empty selection allowed without multiple selections allowed)
051	on error
052	log "エラーしました"
053	return "エラーしました"
054	end try
055	log class of objResponse
056	if (class of objResponse) is boolean then
057	return "キャンセルしましたA"
058	else if (class of objResponse) is list then
059	if objResponse is {} then
060	return "キャンセルしましたB"
061	else
062	set strResponse to (item 1 of objResponse) as text
063	end if
064	end if
065	#選んだファイルのURL
066	set ocidPlistFilePathURL to ocidSaveDirPathURL's URLByAppendingPathComponent:(strResponse) isDirectory:(false)
067	#Plist読み込み NSData's
068	set ocidOption to (current application's NSDataReadingMappedIfSafe)
069	set listResponse to current application's NSData's alloc()'s initWithContentsOfURL:(ocidPlistFilePathURL) options:(ocidOption) |error|:(reference)
070	set ocidPlistData to (item 1 of listResponse)
071	#ARRAYにする
072	set ocidFormat to (current application's NSPropertyListXMLFormat_v1_0)
073	set appPlistSerial to current application's NSPropertyListSerialization
074	set ocidOption to current application's NSPropertyListMutableContainersAndLeaves
075	set listResponse to appPlistSerial's propertyListWithData:(ocidPlistData) options:(ocidOption) format:(ocidFormat) |error|:(reference)
076	#これがPLISTのデータArray形式
077	set ocidPlistArray to (item 1 of listResponse)
078	#数を数えて
079	set numCntArray to ocidPlistArray's |count|()
080	#前面TABの記憶用
081	set numFrontIndex to (missing value)
082	#その数だけ繰り返し
083	repeat with itemNo from 0 to (numCntArray - 1) by 1
084	set itemDict to (ocidPlistArray's objectAtIndex:(itemNo))
085	set strSetURL to (itemDict's valueForKey:("URL")) as text
086	#最初だけ新規WINDOW
087	if itemNo = 0 then
088	tell application "Safari"
089	make new document with properties {URL:strSetURL}
090	end tell
091	else
092	#それ以外は新規tab
093	tell application "Safari"
094	tell front window
095	set objTab to make new tab at end of tabs with properties {URL:strSetURL}
096	end tell
097	end tell
098	end if
099	#前面タブの判定
100	set boolFrontMost to (itemDict's valueForKey:("visible")) as boolean
101	if boolFrontMost is true then
102	#前面にするタブを格納
103	set refTab to objTab
104	end if
105	end repeat
106	tell application "Safari"
107	tell front window
108	set numCntTab to (count of every tab) as integer
109	end tell
110	end tell
111	if numCntTab > 1 then
112
113	tell application "Safari"
114	tell front window
115	set current tab to refTab
116	end tell
117	end tell
118	end if
AppleScriptで生成しました

---

[Safari]前面ウィンドウの全てのタブを保存して、後でTABの内容ごと復帰させる（少し改良）

ダウンロード - windowsaveandrestore.zip

Safariの前面Windowsの内容を保存

---

AppleScript サンプルコード

【スクリプトエディタで開く】 | クリップボードへコピー

AppleScript サンプルソース（参考）

行番号	ソース
001	#!/usr/bin/env osascript
002	----+----1----+----2----+-----3----+----4----+----5----+----6----+----7
003	#サファリの前面Windowの内容を保存する
004	#PLIST形式にして保存しておく tabの構成も保存される
005	#com.cocolog-nifty.quicktimer.icefloe
006	----+----1----+----2----+-----3----+----4----+----5----+----6----+----7
007	use AppleScript version "2.8"
008	use framework "Foundation"
009	use framework "AppKit"
010	use scripting additions
011	property refMe : a reference to current application
012
013
014	tell application "Safari"
015	set numCntWindow to (count of every window) as integer
016	end tell
017
018	if numCntWindow = 0 then
019	tell application "Safari"
020	display alert "SafariでURLを開いていません" buttons {"終了"} default button "終了" cancel button "終了" as informational giving up after 3
021	end tell
022	return "Windowがありません"
023	end if
024	#保存用のARRAY
025	set ocidSaveArray to refMe's NSMutableArray's alloc()'s init()
026
027	#アプリケーション
028	tell application "Safari"
029	#前面ウィンドウ
030	tell front window
031	#タブの数を数えて
032	set numCntTab to (count of every tab) as integer
033	#タブの情報を取得
034	repeat with itemNo from 1 to numCntTab by 1
035	tell tab itemNo
036	set numIndex to index as integer
037	set strURL to URL as text
038	set strTitle to name as text
039	set boolVisible to visible as boolean
040	end tell
041	#URL情報をレコードにして
042	set recordTAB to {|index|:numIndex, |URL|:strURL, |name|:strTitle, |visible|:boolVisible} as record
043	set ocidTabDict to refMe's NSMutableDictionary's alloc()'s init()
044	(ocidTabDict's setDictionary:(recordTAB))
045	#リストに追加
046	(ocidSaveArray's addObject:(ocidTabDict))
047	end repeat
048	end tell
049	end tell
050
051	#PLISTにする
052	set ocidFormat to (refMe's NSPropertyListXMLFormat_v1_0)
053	set ocidOption to (refMe's NSPropertyListMutableContainersAndLeaves)
054	set listResponse to refMe's NSPropertyListSerialization's dataWithPropertyList:(ocidSaveArray) format:(ocidFormat) options:(0) |error| :(reference)
055	set ocidPlistData to (item 1 of listResponse)
056
057
058	#保存先
059	set appFileManager to refMe's NSFileManager's defaultManager()
060	set ocidURLsArray to (appFileManager's URLsForDirectory:(refMe's NSDocumentDirectory) inDomains:(refMe's NSUserDomainMask))
061	set ocidDocumentDirPathURL to ocidURLsArray's firstObject()
062	set ocidSaveDirPathURL to ocidDocumentDirPathURL's URLByAppendingPathComponent:("Apple/Safari/SaveWindow") isDirectory:(true)
063	#フォルダ作成
064	set ocidAttrDict to refMe's NSMutableDictionary's alloc()'s initWithCapacity:0
065	ocidAttrDict's setValue:(448) forKey:(refMe's NSFilePosixPermissions)
066	set listDone to appFileManager's createDirectoryAtURL:(ocidSaveDirPathURL) withIntermediateDirectories:true attributes:(ocidAttrDict) |error| :(reference)
067	#日付を取得してファイル名に
068	set strDateNo to doGetDateNo("yyyyMMdd_HHmmss")
069	set ocidSaveBasePathURL to ocidSaveDirPathURL's URLByAppendingPathComponent:(strDateNo) isDirectory:(false)
070	set ocidSaveFilePathURL to ocidSaveBasePathURL's URLByAppendingPathExtension:("tabgroup")
071
072	#保存
073	set ocidOption to (refMe's NSDataWritingAtomic)
074	set listDone to ocidPlistData's writeToURL:(ocidSaveFilePathURL) options:(ocidOption) |error| :(reference)
075
076
077
078	##############################
079	### 今の日付日間　テキスト
080	##############################
081	to doGetDateNo(argDateFormat)
082	####日付情報の取得
083	set ocidDate to current application's NSDate's |date|()
084	###日付のフォーマットを定義
085	set ocidNSDateFormatter to current application's NSDateFormatter's alloc()'s init()
086	ocidNSDateFormatter's setLocale:(current application's NSLocale's localeWithLocaleIdentifier:"ja_JP_POSIX")
087	set ocidTimeZone to refMe's NSTimeZone's alloc()'s initWithName:"Asia/Tokyo"
088	ocidNSDateFormatter's setTimeZone:(ocidTimeZone)
089	ocidNSDateFormatter's setDateFormat:(argDateFormat)
090	set ocidDateAndTime to ocidNSDateFormatter's stringFromDate:ocidDate
091	set strDateAndTime to ocidDateAndTime as text
092	return strDateAndTime
093	end doGetDateNo
AppleScriptで生成しました

---

保存したWindowの内容をレストアする

---

AppleScript サンプルコード

【スクリプトエディタで開く】 | クリップボードへコピー

AppleScript サンプルソース（参考）

行番号	ソース
001	#!/usr/bin/env osascript
002	----+----1----+----2----+-----3----+----4----+----5----+----6----+----7
003	#サファリの保存したWindowの内容をレストアする
004	#前面tabも復帰させるようにした
005	#com.cocolog-nifty.quicktimer.icefloe
006	----+----1----+----2----+-----3----+----4----+----5----+----6----+----7
007	use AppleScript version "2.8"
008	use framework "Foundation"
009	use framework "AppKit"
010	use scripting additions
011	property refMe : a reference to current application
012
013
014	#保存先
015	set appFileManager to refMe's NSFileManager's defaultManager()
016	#書類フォルダ
017	set ocidURLsArray to (appFileManager's URLsForDirectory:(refMe's NSDocumentDirectory) inDomains:(refMe's NSUserDomainMask))
018	set ocidDocumentDirPathURL to ocidURLsArray's firstObject()
019	#保存先ディレクトリ
020	set ocidSaveDirPathURL to ocidDocumentDirPathURL's URLByAppendingPathComponent:("Apple/Safari/SaveWindow") isDirectory:(true)
021	set aliasSaveDirPath to (ocidSaveDirPathURL's absoluteURL()) as alias
022	#コンテンツの収集
023	set ocidOption to (refMe's NSDirectoryEnumerationSkipsHiddenFiles)
024	set ocidKeyArray to refMe's NSMutableArray's alloc()'s initWithCapacity:(0)
025	ocidKeyArray's addObject:(refMe's NSURLPathKey)
026	set listResponse to (appFileManager's contentsOfDirectoryAtURL:(ocidSaveDirPathURL) includingPropertiesForKeys:(ocidKeyArray) options:(ocidOption) |error| :(reference))
027	set ocidSubPathURLArray to (item 1 of listResponse)
028	#ファイル名のリストにする
029	set listChooser to {} as list
030	repeat with itemURL in ocidSubPathURLArray
031	set strFileName to itemURL's lastPathComponent() as text
032	set end of listChooser to strFileName
033	end repeat
034	#ダイアログ
035	set strName to (name of current application) as text
036	if strName is "osascript" then
037	tell application "Finder" to activate
038	else
039	tell current application to activate
040	end if
041	set strTitle to ("選んでください") as text
042	set strPrompt to ("選んだ項目で戻します") as text
043	try
044	set objResponse to (choose from list listChooser with title strTitle with prompt strPrompt default items (item 1 of listChooser) OK button name "OK" cancel button name "キャンセル" with empty selection allowed without multiple selections allowed)
045	on error
046	log "エラーしました"
047	return "エラーしました"
048	end try
049	log class of objResponse
050	if (class of objResponse) is boolean then
051	return "キャンセルしましたA"
052	else if (class of objResponse) is list then
053	if objResponse is {} then
054	return "キャンセルしましたB"
055	else
056	set strResponse to (item 1 of objResponse) as text
057	end if
058	end if
059	#選んだファイルのURL
060	set ocidPlistFilePathURL to ocidSaveDirPathURL's URLByAppendingPathComponent:(strResponse) isDirectory:(false)
061	#Plist読み込み NSData's
062	set ocidOption to (current application's NSDataReadingMappedIfSafe)
063	set listResponse to current application's NSData's alloc()'s initWithContentsOfURL:(ocidPlistFilePathURL) options:(ocidOption) |error| :(reference)
064	set ocidPlistData to (item 1 of listResponse)
065	#ARRAYにする
066	set ocidFormat to (current application's NSPropertyListXMLFormat_v1_0)
067	set appPlistSerial to current application's NSPropertyListSerialization
068	set ocidOption to current application's NSPropertyListMutableContainersAndLeaves
069	set listResponse to appPlistSerial's propertyListWithData:(ocidPlistData) options:(ocidOption) format:(ocidFormat) |error| :(reference)
070	#これがPLISTのデータArray形式
071	set ocidPlistArray to (item 1 of listResponse)
072	#数を数えて
073	set numCntArray to ocidPlistArray's |count|()
074	#前面TABの記憶用
075	set numFrontIndex to (missing value)
076	#その数だけ繰り返し
077	repeat with itemNo from 0 to (numCntArray - 1) by 1
078	set itemDict to (ocidPlistArray's objectAtIndex:(itemNo))
079	set strSetURL to (itemDict's valueForKey:("URL")) as text
080	#最初だけ新規WINDOW
081	if itemNo = 0 then
082	tell application "Safari"
083	make new document with properties {URL:strSetURL}
084	end tell
085	else
086	#それ以外は新規tab
087	tell application "Safari"
088	tell front window
089	set objTab to make new tab at end of tabs with properties {URL:strSetURL}
090	end tell
091	end tell
092	end if
093	#前面タブの判定
094	set boolFrontMost to (itemDict's valueForKey:("visible")) as boolean
095	if boolFrontMost is true then
096	#前面にするタブを格納
097	set refTab to objTab
098	end if
099	end repeat
100
101	log numFrontIndex
102
103	tell application "Safari"
104	tell front window
105	set current tab to refTab
106	end tell
107	end tell
108
AppleScriptで生成しました

---

[Safari] javascriptでのURLの取得

aリンク取得

---

サンプルコード

クリップボードへコピー

サンプルソース（参考）

行番号	ソース
001	var list_GetLinks = [];
002	var list_GetElements = document.querySelectorAll("a");
003
004	for (var item_Element of list_GetElements) {
005	list_GetLinks.push(item_Element.href);
006	}
007	var result = list_GetLinks.join(",");
008	result;
AppleScriptで生成しました

---

AppleScript サンプルコード

【スクリプトエディタで開く】 | クリップボードへコピー

AppleScript サンプルソース（参考）

行番号	ソース
001	#!/usr/bin/env osascript
002	----+----1----+----2----+-----3----+----4----+----5----+----6----+----7
003	#
004	#com.cocolog-nifty.quicktimer.icefloe
005	----+----1----+----2----+-----3----+----4----+----5----+----6----+----7
006	use AppleScript version "2.8"
007	use scripting additions
008
009
010	set strBundleID to "com.apple.Safari" as text
011
012	##############
013	#ウィンドウチェック
014	tell application "Safari"
015	set numCntWindow to (count of every window) as integer
016	if numCntWindow = 0 then
017	return "ウィンドウがありません"
018	end if
019	end tell
020
021	##############
022	#全面のタブのURLを取得して
023	tell application "Safari"
024	set numID to id of front window
025	set objTab to current tab of window id numID
026	tell window id numID
027	tell objTab
028	set strURL to URL
029	end tell
030	end tell
031	end tell
032
033	##############
034	#ドメイン名
035	set strDelim to AppleScript's text item delimiters
036	set AppleScript's text item delimiters to "/"
037	set listURL to every text item of strURL
038	set AppleScript's text item delimiters to strDelim
039
040	set strDomain to (item 3 of listURL) as text
041
042	##############
043	#JavaScript実行
044	tell application "Safari"
045	tell window id numID
046	tell objTab
047	set strResponse to {do JavaScript "var list_GetLinks = [];var list_GetElements = document.querySelectorAll(\"a\");for (var item_Element of list_GetElements) {list_GetLinks.push(item_Element.href);}var result = list_GetLinks.join(\",\"); result;"} as text
048	end tell
049	end tell
050	end tell
051	#戻り値のテキストをリストに
052	set strDelim to AppleScript's text item delimiters
053	set AppleScript's text item delimiters to ","
054	set listURL to every text item of strResponse
055	set AppleScript's text item delimiters to strDelim
056
057	##############
058	#全リスト
059	#リストを順番に処理
060	repeat with itemURL in listURL
061	set strURL to itemURL as text
062	log strURL
063	end repeat
064
065
066	##############
067	#内部リンク
068	#リストを順番に処理
069	repeat with itemURL in listURL
070	set strURL to itemURL as text
071	if strURL contains strDomain then
072	#ここがサイト内リンク
073	log strURL
074	else
075	#ここがサイト外リンク
076	log strURL
077	end if
078	end repeat
AppleScriptで生成しました

---

img src取得

---

サンプルコード

クリップボードへコピー

サンプルソース（参考）

行番号	ソース
001	var list_GetLinks = [];
002	var list_GetElements = document.querySelectorAll("img");
003
004	for (var item_Element of list_GetElements) {
005	list_GetLinks.push(item_Element.src);
006	}
007	var result = list_GetLinks.join(",");
008	result;
AppleScriptで生成しました

---

AppleScript サンプルコード

【スクリプトエディタで開く】 | クリップボードへコピー

AppleScript サンプルソース（参考）

行番号	ソース
001	#!/usr/bin/env osascript
002	----+----1----+----2----+-----3----+----4----+----5----+----6----+----7
003	#
004	#com.cocolog-nifty.quicktimer.icefloe
005	----+----1----+----2----+-----3----+----4----+----5----+----6----+----7
006	use AppleScript version "2.8"
007	use scripting additions
008
009
010	set strBundleID to "com.apple.Safari" as text
011
012	##############
013	#ウィンドウチェック
014	tell application "Safari"
015	set numCntWindow to (count of every window) as integer
016	if numCntWindow = 0 then
017	return "ウィンドウがありません"
018	end if
019	end tell
020
021	##############
022	#全面のタブのURLを取得して
023	tell application "Safari"
024	set numID to id of front window
025	set objTab to current tab of window id numID
026	tell window id numID
027	tell objTab
028	set strURL to URL
029	end tell
030	end tell
031	end tell
032
033	##############
034	#ドメイン名
035	set strDelim to AppleScript's text item delimiters
036	set AppleScript's text item delimiters to "/"
037	set listURL to every text item of strURL
038	set AppleScript's text item delimiters to strDelim
039
040	set strDomain to (item 3 of listURL) as text
041
042	##############
043	#JavaScript実行
044	tell application "Safari"
045	tell window id numID
046	tell objTab
047	set strResponse to {do JavaScript "var list_GetLinks = [];var list_GetElements = document.querySelectorAll(\"img\");for (var item_Element of list_GetElements) {list_GetLinks.push(item_Element.src);}var result = list_GetLinks.join(\",\"); result;"} as text
048	end tell
049	end tell
050	end tell
051	#戻り値のテキストをリストに
052	set strDelim to AppleScript's text item delimiters
053	set AppleScript's text item delimiters to ","
054	set listURL to every text item of strResponse
055	set AppleScript's text item delimiters to strDelim
056
057	##############
058	#全リスト
059	#リストを順番に処理
060	repeat with itemURL in listURL
061	set strURL to itemURL as text
062	log strURL
063	end repeat
064
065
066	##############
067	#内部リンク
068	#リストを順番に処理
069	repeat with itemURL in listURL
070	set strURL to itemURL as text
071	if strURL contains strDomain then
072	#ここがサイト内リンク
073	log strURL
074	else
075	#ここがサイト外リンク
076	log strURL
077	end if
078	end repeat
AppleScriptで生成しました

---

[macOS15.2] Safari. 18.2 WEBページのHTMLダウンロードが出来なくなる

セキュリティ上の理由か？わからないが
ダウンロードパネルへURLをペーストして
WEBページのHTMLがダウンロード出来なくなった

ちょっとソースみたい時に使っていたので不便でしょうがない
（デベロッパーツールのHTMLソース表示が、私には見にくいのです）

AppleScriptの対応がポンコツ以下なので
使いたく無いが
Firefoxを復活させた
ダウンロードのウィンドウ（お気に入りや履歴と一緒のウィンドウ）
使える機能が残っているのは
Firefoxだけになってしまった…とほほ

ちなみに
WEBKIT系のOrionブラウザのダウンロードパネルは
URLのペーストに対応していない

Safariで表示中のページから画像を収集する

---

AppleScript サンプルコード

【スクリプトエディタで開く】 | クリップボードへコピー

AppleScript サンプルソース（参考）

行番号	ソース
001	#!/usr/bin/env osascript
002	----+----1----+----2----+-----3----+----4----+----5----+----6----+----7
003	#
004	(*
005	BASE SCRIPT
006	https://forum.latenightsw.com/t/list-of-links-on-webpage/1328
007
008	WEBページの画像のURLを取得する
009	natalieの写真のダウンロードに対応した
010	サインインが必要なページは取得できない
011	CSS指定の画像は取得できない等
012	あまり実用的ではなかった…トホホ
013	CURLでHTML取得してファイルを解析した方が良さそう
014	*)
015	#com.cocolog-nifty.quicktimer.icefloe
016	----+----1----+----2----+-----3----+----4----+----5----+----6----+----7
017	use AppleScript version "2.8"
018	use framework "Foundation"
019	use framework "AppKit"
020	use scripting additions
021	property refMe : a reference to current application
022	set appFileManager to refMe's NSFileManager's defaultManager()
023
024
025	###全面のタブのURLを取得して
026	tell application "Safari"
027	tell front window
028	tell current tab
029	set strURL to URL as text
030	end tell
031	end tell
032	end tell
033	##############################
034	#URL
035	set ocidURL to refMe's NSURL's alloc()'s initWithString:(strURL)
036	#コンポーネント
037	set ocidURLcomp to refMe's NSURLComponents's alloc()'s init()
038	ocidURLcomp's setScheme:(ocidURL's |scheme|())
039	ocidURLcomp's setHost:(ocidURL's |host|())
040	set ocidBaseURL to ocidURLcomp's |URL|()
041	#スキーム＋ホストのURL
042	set ocidBaseURLSTR to refMe's NSMutableString's alloc()'s initWithString:(ocidBaseURL's absoluteString())
043	ocidURLcomp's |path|()
044	set ocidBaseURL to ocidURLcomp's |URL|()
045	#パスまで入れたURL
046	set ocidBaseURLPATH to refMe's NSMutableString's alloc()'s initWithString:(ocidBaseURL's absoluteString())
047
048	##############################
049	#前面ドキュメントのHTMLソース
050	tell application "Safari"
051	tell front document
052	set strHTML to source as text
053	end tell
054	end tell
055
056	##############################
057	#戻り値整形
058	set ocidResponseText to (refMe's NSString's stringWithString:(strHTML))
059	###タブと改行を除去しておく
060	set ocidTextM to refMe's NSMutableString's alloc()'s initWithCapacity:(0)
061	ocidTextM's appendString:(ocidResponseText)
062	###除去する文字列リスト
063	set listRemoveChar to {"\n", "\r", "\t"} as list
064	##置換
065	repeat with itemChar in listRemoveChar
066	set strPattern to itemChar as text
067	set strTemplate to ("") as text
068	set ocidOption to (refMe's NSRegularExpressionCaseInsensitive)
069	set listResponse to (refMe's NSRegularExpression's regularExpressionWithPattern:(strPattern) options:(ocidOption) |error| :(reference))
070	if (item 2 of listResponse) ≠ (missing value) then
071	log (item 2 of listResponse)'s localizedDescription() as text
072	return "正規表現パターンに誤りがあります"
073	else
074	set ocidRegex to (item 1 of listResponse)
075	end if
076	set numLength to ocidResponseText's |length|()
077	set ocidRange to refMe's NSRange's NSMakeRange(0, numLength)
078	set ocidResponseText to (ocidRegex's stringByReplacingMatchesInString:(ocidResponseText) options:0 range:(ocidRange) withTemplate:(strTemplate))
079	end repeat
080
081	##############################
082	#NSADATA
083	set ocidHTMLData to ocidResponseText's dataUsingEncoding:(refMe's NSUTF8StringEncoding)
084
085	##############################
086	#XML
087	set ocidOption to (refMe's NSXMLNodePreserveAll) + (refMe's NSXMLDocumentTidyHTML)
088
089	set listResponse to refMe's NSXMLDocument's alloc()'s initWithData:(ocidHTMLData) options:(ocidOption) |error| :(reference)
090	if (item 2 of listResponse) = (missing value) then
091	log "正常処理"
092	set ocidXMLDoc to (item 1 of listResponse)
093	else if (item 2 of listResponse) ≠ (missing value) then
094	log (item 2 of listResponse)'s code() as text
095	log (item 2 of listResponse)'s localizedDescription() as text
096	log "NSXMLDocumentエラー 警告がありました"
097	set ocidXMLDoc to (item 1 of listResponse)
098	end if
099
100	##############################
101	#次工程に渡すARRAY
102	set ocidNodeArray to refMe's NSMutableArray's alloc()'s initWithCapacity:(0)
103	#タイプA
104	set listResponse to (ocidXMLDoc's nodesForXPath:"//*[@src]/attribute::src"  |error| :(reference))
105	if (item 2 of listResponse) = (missing value) then
106	log "正常処理"
107	set ocidAttarURLArray to (item 1 of listResponse)
108	ocidNodeArray's addObjectsFromArray:(ocidAttarURLArray)
109	else if (item 2 of listResponse) ≠ (missing value) then
110	log (item 2 of listResponse)'s code() as text
111	log (item 2 of listResponse)'s localizedDescription() as text
112	return "エラーしました"
113	end if
114	#タイプB
115	set listResponse to (ocidXMLDoc's nodesForXPath:"//*[@data-src]/attribute::data-src"  |error| :(reference))
116	if (item 2 of listResponse) = (missing value) then
117	log "正常処理"
118	set ocidAttarURLArray to (item 1 of listResponse)
119	ocidNodeArray's addObjectsFromArray:(ocidAttarURLArray)
120	else if (item 2 of listResponse) ≠ (missing value) then
121	log (item 2 of listResponse)'s code() as text
122	log (item 2 of listResponse)'s localizedDescription() as text
123	return "エラーしました"
124	end if
125
126
127	##############################
128	#####Attar to Array
129	##############################
130	#次工程用のリスト
131	set ocidURLArray to refMe's NSMutableArray's alloc()'s initWithCapacity:(0)
132	set ocidURLAllArray to refMe's NSMutableArray's alloc()'s initWithCapacity:(0)
133	#次工程用拡張子リスト
134	set listExtension to {"jpg", "jpeg", "png", "webp", "gif"} as list
135	set ocidExtensionArray to refMe's NSArray's alloc()'s initWithArray:(listExtension)
136	#取得したアトリビュートの数だけ繰り返し
137	repeat with itemArray in ocidNodeArray
138	#テキストにして
139	set ocidValue to itemArray's stringValue()
140	(ocidURLAllArray's addObject:(ocidValue))
141	set ocidFirstChr to (ocidValue's substringToIndex:(1))
142	set ocidScheme to (ocidValue's substringToIndex:(4))
143	#絶対パスなら
144	if (ocidFirstChr as text) is "/" then
145	(ocidBaseURLSTR's appendString:(ocidValue))
146	set strValue to ocidBaseURLSTR as text
147	#相対パスなら
148	else if (ocidScheme as text) is not "http" then
149	(ocidBaseURLPATH's appendString:(ocidValue))
150	set strValue to ocidBaseURLPATH as text
151	else
152	#URLなら
153	set strValue to ocidValue as text
154	end if
155	#テキストをURLにして
156	set ocidURLString to (refMe's NSString's stringWithString:(strValue))
157	set ocidValueURL to (refMe's NSURL's alloc()'s initWithString:(ocidURLString))
158	if ocidValueURL ≠ (missing value) then
159	#拡張子取得
160	set ocidExtension to ocidValueURL's pathExtension()
161	#対象拡張子リストに含まれるなら
162	set boolContain to (ocidExtensionArray's containsObject:(ocidExtension))
163	if boolContain is true then
164	#クエリーを除去
165	set ocidUrlComponents to (refMe's NSURLComponents's componentsWithURL:(ocidValueURL) resolvingAgainstBaseURL:(false))
166	(ocidUrlComponents's setQuery:(missing value))
167	set ocidImgURL to ocidUrlComponents's |URL|()
168	#次工程リストに追加する
169	(ocidURLArray's addObject:(ocidImgURL))
170	end if
171	end if
172	end repeat
173
174	##############################
175	#####ダウンロード
176	##############################
177	set ocidURLsArray to (appFileManager's URLsForDirectory:(refMe's NSDownloadsDirectory) inDomains:(refMe's NSUserDomainMask))
178	set ocidDownloadsDirPathURL to ocidURLsArray's firstObject()
179	#フォルダ名はホスト名
180	set ocidHostName to ocidURL's |host|()
181	set ocidSaveDirPathURL to ocidDownloadsDirPathURL's URLByAppendingPathComponent:(ocidHostName)
182	#フォルダアクセス権
183	set ocidAttrDict to refMe's NSMutableDictionary's alloc()'s initWithCapacity:0
184	ocidAttrDict's setValue:(493) forKey:(refMe's NSFilePosixPermissions)
185	#フォルダを作る
186	set listDone to appFileManager's createDirectoryAtURL:(ocidSaveDirPathURL) withIntermediateDirectories:true attributes:(ocidAttrDict) |error| :(reference)
187	if (item 1 of listDone) is true then
188	log "正常処理"
189	else if (item 2 of listDone) ≠ (missing value) then
190	log (item 2 of listDone)'s code() as text
191	log (item 2 of listDone)'s localizedDescription() as text
192	return "フォルダ作成エラーしました"
193	end if
194	set numCntArray to ocidURLArray's |count|()
195	##URLを順番に処理
196	repeat with itemNo from 0 to (numCntArray - 1) by 1
197	set itemURL to (ocidURLArray's objectAtIndex:(itemNo))
198	set ocidSaveFileName to itemURL's lastPathComponent()
199	set ocidSaveFilePathURL to (ocidSaveDirPathURL's URLByAppendingPathComponent:(ocidSaveFileName))
200	#ダウンロード
201	set ocidOption to (refMe's NSDataReadingMappedIfSafe)
202	set listResponse to (refMe's NSData's alloc()'s initWithContentsOfURL:(itemURL) options:(ocidOption) |error| :(reference))
203	if (item 2 of listResponse) = (missing value) then
204	log "正常処理"
205	set ocidGetData to (item 1 of listResponse)
206	else if (item 2 of listResponse) ≠ (missing value) then
207	log (item 2 of listResponse)'s code() as text
208	log (item 2 of listResponse)'s localizedDescription() as text
209	return "ダウンロードエラーしました"
210	end if
211	#保存
212	set ocidOption to (refMe's NSDataWritingAtomic)
213	set listDone to (ocidGetData's writeToURL:(ocidSaveFilePathURL) options:(ocidOption) |error| :(reference))
214	if (item 1 of listDone) is true then
215	log "正常処理"
216	else if (item 2 of listDone) ≠ (missing value) then
217	log (item 2 of listDone)'s code() as text
218	log (item 2 of listDone)'s localizedDescription() as text
219	return "ファイル保存エラーしました"
220	end if
221	end repeat
222
223	#保存先を開く
224	set appSharedWorkspace to refMe's NSWorkspace's sharedWorkspace()
225	set boolDone to appSharedWorkspace's openURL:(ocidSaveDirPathURL)
226	if boolDone is true then
227	log "正常処理"
228	else if boolDone is false then
229	set strErrorNO to (item 2 of listDone)'s code() as text
230	set strErrorMes to (item 2 of listDone)'s localizedDescription() as text
231	refMe's NSLog("■：" & strErrorNO & strErrorMes)
232	return "エラーしました" & strErrorNO & strErrorMes
233	end if
234
235
AppleScriptで生成しました

---

error "Safariでエラーが起きました: You must enable the 'Allow JavaScript from Apple Events' option in Safari's Develop menu to use 'do JavaScript'." number 8

[macOS14.4対応]SafariでのURLを開く

---

【スクリプトエディタで開く】| クリップボードへコピー

#!/usr/bin/env osascript

set strURL to ("https://quicktimer.cocolog-nifty.com/icefloe/") as text

tell application "Safari"

activate

make new document with properties {URL:strURL}

end tell

---

---

【スクリプトエディタで開く】| クリップボードへコピー

#!/usr/bin/env osascript

set strURL to "https://quicktimer.cocolog-nifty.com/icefloe/"

tell application "Safari"

activate

  #起動を確実にする→といっても最大１０秒

  repeat 10 times

    set booleFrontMost to frontmost as boolean

    if booleFrontMost is true then

      exit repeat

    else

delay 1

    end if

  end repeat

  ##ウィンドウの数を数えて

  set numCntWindow to (count of every document) as integer

  if numCntWindow = 0 then

make new document

    tell front window

      tell current tab

        set URL to strURL

      end tell

    end tell

  else if numCntWindow = 1 then

    tell front window

      tell current tab

        set strCurrentURL to URL as text

      end tell

    end tell

    if strCurrentURL starts with "favorites" then

      tell front window

        tell current tab

          set URL to strURL

        end tell

      end tell

    else

      tell front window

        set objTab to make new tab at end of tabs with properties {URL:strURL}

        set current tab to objTab

      end tell

    end if

  else

    tell front window

      set objTab to make new tab at end of tabs with properties {URL:strURL}

      set current tab to objTab

    end tell

  end if

end tell

---

---

【スクリプトエディタで開く】| クリップボードへコピー

tell application "Safari"

activate

make new document

  tell front document

open location "https://www.yahoo.com"

  end tell

end tell

---

---

【スクリプトエディタで開く】| クリップボードへコピー

#!/usr/bin/env osascript

# WINDOWがあるばあいはこれ

set strURL to ("https://quicktimer.cocolog-nifty.com/icefloe/") as text

tell application "Safari"

activate

  tell front window

    set objTab to make new tab at end of tabs with properties {URL:strURL}

    set current tab to objTab

  end tell

end tell

---

---

【スクリプトエディタで開く】| クリップボードへコピー

#!/usr/bin/env osascript

set strURL to ("https://quicktimer.cocolog-nifty.com/icefloe/") as text

tell application "Safari"

activate

make new document

  tell front window

    ###最初のタブ

    set objTab to make new tab at front of tabs with properties {URL:strURL}

    set current tab to objTab

  end tell

end tell

tell application "Safari"

activate

make new document

  tell front window

    ##最後のタブ

    set objTab to make new tab at end of tabs with properties {URL:strURL}

    set current tab to objTab

  end tell

end tell

---

[Safari]『Safari』でURLを開く

---

クリップボードへコピー

#!/bin/bash

#com.cocolog-nifty.quicktimer.icefloe

#################################################

STR_URL="https://quicktimer.cocolog-nifty.com/icefloe/"

/usr/bin/open -a Safari "$STR_URL"

exit 0

---

---

クリップボードへコピー

#!/bin/bash

#com.cocolog-nifty.quicktimer.icefloe

#################################################

STR_URL="x-safari-https://quicktimer.cocolog-nifty.com/icefloe/"

/usr/bin/open "$STR_URL"

exit 0

---

---

クリップボードへコピー

#!/bin/bash

#com.cocolog-nifty.quicktimer.icefloe

#################################################

STR_URL="https://quicktimer.cocolog-nifty.com/icefloe/"

/usr/bin/open -b com.apple.Safari "$STR_URL"

exit 0

---

【スクリプトエディタで開く】| クリップボードへコピー

set strURL to "x-safari-https://quicktimer.cocolog-nifty.com/icefloe/"

tell application "Finder"

open location strURL

end tell

---

【スクリプトエディタで開く】| クリップボードへコピー

set strURL to "https://quicktimer.cocolog-nifty.com/icefloe/"

tell application "Safari"

activate

  #起動を確実にする→といっても最大１０秒

  repeat 10 times

    set booleFrontMost to frontmost as boolean

    if booleFrontMost is true then

      exit repeat

    else

delay 1

    end if

  end repeat

  ##ウィンドウの数を数えて

  set numCntWindow to (count of every window) as integer

  if numCntWindow = 0 then

make new document with properties {name:""}

    tell front window

      tell current tab

        set URL to strURL

      end tell

    end tell

  else if numCntWindow = 1 then

    tell front window

      tell current tab

        set strCurrentURL to URL as text

      end tell

    end tell

    if strCurrentURL starts with "favorites" then

      tell front window

        tell current tab

          set URL to strURL

        end tell

      end tell

    else

      tell front window

        set objTab to make new tab at end of tabs with properties {URL:strURL}

        set current tab to objTab

      end tell

    end if

  else

    tell front window

      set objTab to make new tab at end of tabs with properties {URL:strURL}

      set current tab to objTab

    end tell

  end if

end tell

---

---

【スクリプトエディタで開く】| クリップボードへコピー

#!/usr/bin/env osascript

----+----1----+----2----+-----3----+----4----+----5----+----6----+----7

#com.cocolog-nifty.quicktimer.icefloe

----+----1----+----2----+-----3----+----4----+----5----+----6----+----7

use AppleScript version "2.8"

use framework "Foundation"

use framework "AppKit"

use scripting additions

property refMe : a reference to current application

set ocidURLComponents to refMe's NSURLComponents's alloc()'s init()

###スキーム を追加

ocidURLComponents's setScheme:("x-safari-https")

###パスを追加（setHostじゃないよ）

ocidURLComponents's setHost:("quicktimer.cocolog-nifty.com")

ocidURLComponents's setPath:("/icefloe/")

##URLに戻して テキストにしておく

set ocidOpenURL to ocidURLComponents's |URL|()

set strOpenURL to ocidOpenURL's absoluteString() as text

log strOpenURL

### OPEN URL

set appShardWorkspace to refMe's NSWorkspace's sharedWorkspace()

set boolDone to appShardWorkspace's openURL:(ocidOpenURL)

---

[Safari]開発メニューを出す(macOS14対応)

---

【スクリプトエディタで開く】| クリップボードへコピー

#!/usr/bin/env osascript

----+----1----+----2----+-----3----+----4----+----5----+----6----+----7

#

#

#

#com.cocolog-nifty.quicktimer.icefloe

----+----1----+----2----+-----3----+----4----+----5----+----6----+----7

use AppleScript version "2.8"

use framework "Foundation"

use framework "Appkit"

use scripting additions

property refMe : a reference to current application

set appWorkspace to refMe's NSWorkspace's sharedWorkspace()

set appFileManager to refMe's NSFileManager's defaultManager()

#####設定項目

set listFileName to {"com.apple.Safari.plist", "com.apple.Safari.SandboxBroker.plist"} as list

##bool値

set ocidFalse to (refMe's NSNumber's numberWithBool:false)'s boolValue

set ocidTrue to (refMe's NSNumber's numberWithBool:true)'s boolValue

################

## ファイルパス関連

set ocidURLsArray to (appFileManager's URLsForDirectory:(refMe's NSLibraryDirectory) inDomains:(refMe's NSUserDomainMask))

set ocidLibraryDirPathURL to ocidURLsArray's firstObject()

set ocidPreferencesURL to ocidLibraryDirPathURL's URLByAppendingPathComponent:("Preferences")

##ファイルの数だけ繰り返し

repeat with itemFileName in listFileName

  ##URLにして

  set ocidPlistFilePathURL to (ocidPreferencesURL's URLByAppendingPathComponent:(itemFileName))

  ################

  ## ファイル読み込み

  set ocidReadPlistData to (refMe's NSMutableDictionary's dictionaryWithContentsOfURL:(ocidPlistFilePathURL) |error|:(reference))

  if (item 1 of ocidReadPlistData) = (missing value) then

    set ocidPlistDict to (refMe's NSMutableDictionary's alloc()'s initWithCapacity:0)

  else

    set ocidPlistDict to (refMe's NSMutableDictionary's alloc()'s initWithCapacity:0)

(ocidPlistDict's setDictionary:(item 1 of ocidReadPlistData))

  end if

  ###

  set ocidMinimumWidthsDict to (ocidPlistDict's objectForKey:("PreferencesModulesMinimumWidths"))

  if ocidMinimumWidthsDict = (missing value) then

    set ocidMinimumWidthsDict to (refMe's NSMutableDictionary's alloc()'s initWithCapacity:0)

(ocidMinimumWidthsDict's setObject:(ocidTrue) forKey:("DeveloperMenuVisibility"))

(ocidPlistDict's setObject:(ocidMinimumWidthsDict) forKey:("PreferencesModulesMinimumWidths"))

  else

(ocidMinimumWidthsDict's setObject:(ocidTrue) forKey:("DeveloperMenuVisibility"))

  end if

  ###

  set ocidValue to (refMe's NSNumber's numberWithInteger:(1))'s integerValue

(ocidPlistDict's setValue:(ocidValue) forKey:("SavePanelFileFormat"))

  ############

  ## Booleanタイプ

(ocidPlistDict's setValue:(ocidTrue) forKey:("IncludeDevelopMenu"))

  #

(ocidPlistDict's setValue:(ocidTrue) forKey:("ShowDevelopMenu"))

  #

(ocidPlistDict's setValue:(ocidTrue) forKey:("DeveloperMenuVisibility"))

  #

(ocidPlistDict's setValue:(ocidTrue) forKey:("WebKitOmitPDFSupport"))

  #

(ocidPlistDict's setValue:(ocidTrue) forKey:("DidMigrateDownloadFolderToSandbox"))

  #

(ocidPlistDict's setValue:(ocidTrue) forKey:("DidMigrateResourcesToSandbox"))

  #

(ocidPlistDict's setValue:(ocidFalse) forKey:("AlwaysPromptForDownloadFolder"))

  ################

  ##書き込み

  set listDone to (ocidPlistDict's writeToURL:(ocidPlistFilePathURL) atomically:(true))

end repeat

##コンテナ（Cloundで同期する設定）

set ocidPreferencesURL to ocidLibraryDirPathURL's URLByAppendingPathComponent:("Containers/com.apple.Safari/Data/Library/Preferences")

##ファイルの数だけ繰り返し

repeat with itemFileName in listFileName

  ##ファイルの数だけ繰り返し

  set ocidPlistFilePathURL to (ocidPreferencesURL's URLByAppendingPathComponent:(itemFileName))

  ################

  ## ファイル読み込み

  set ocidReadPlistData to (refMe's NSMutableDictionary's dictionaryWithContentsOfURL:(ocidPlistFilePathURL) |error|:(reference))

  if (item 1 of ocidReadPlistData) = (missing value) then

    set ocidPlistDict to (refMe's NSMutableDictionary's alloc()'s initWithCapacity:0)

  else

    set ocidPlistDict to (refMe's NSMutableDictionary's alloc()'s initWithCapacity:0)

(ocidPlistDict's setDictionary:(item 1 of ocidReadPlistData))

  end if

  set ocidValue to (refMe's NSNumber's numberWithInteger:(1))'s integerValue

(ocidPlistDict's setValue:(ocidValue) forKey:("SavePanelFileFormat"))

  ############

  ## Booleanタイプ

  set ocidFalse to (refMe's NSNumber's numberWithBool:false)'s boolValue

  set ocidTrue to (refMe's NSNumber's numberWithBool:true)'s boolValue

  #

(ocidPlistDict's setValue:(ocidTrue) forKey:("IncludeDevelopMenu"))

  #

(ocidPlistDict's setValue:(ocidTrue) forKey:("ShowDevelopMenu"))

  #

(ocidPlistDict's setValue:(ocidTrue) forKey:("WebKitOmitPDFSupport"))

  #

(ocidPlistDict's setValue:(ocidTrue) forKey:("DidMigrateDownloadFolderToSandbox"))

  #

(ocidPlistDict's setValue:(ocidTrue) forKey:("DidMigrateResourcesToSandbox"))

  #

(ocidPlistDict's setValue:(ocidFalse) forKey:("AlwaysPromptForDownloadFolder"))

  ################

  ##書き込み

  set listDone to (ocidPlistDict's writeToURL:(ocidPlistFilePathURL) atomically:(true))

end repeat

#####CFPreferencesを再起動させて変更後の値をロードさせる

set strCommandText to ("/usr/bin/killall cfprefsd") as text

do shell script strCommandText

return

################

##起動

tell application id strBundleID to quit

delay 3

tell application id strBundleID to activate

---

[screencapture]Safariの画面をキャプチャー

---

【スクリプトエディタで開く】| クリップボードへコピー

#!/usr/bin/env osascript

----+----1----+----2----+-----3----+----4----+----5----+----6----+----7

#com.cocolog-nifty.quicktimer.icefloe

#

----+----1----+----2----+-----3----+----4----+----5----+----6----+----7

use AppleScript version "2.8"

use framework "Foundation"

use scripting additions

property refMe : a reference to current application

## 時間取得

set strDateAndTimt to doGetDateNo({"yyyyMMdd-hhmmss", 1})

## ファイル名定義

set strKeyName to ("ScreenCapture") as text

set strFileName to ("" & strKeyName & "_" & strDateAndTimt & ".png") as text

##保存先

set strSaveDirPath to ("~/Downloads/ScreenCapture/" & strKeyName & "/") as text

set ocidSaveDirPathStr to refMe's NSString's stringWithString:(strSaveDirPath)

set ocidSaveDirPath to ocidSaveDirPathStr's stringByStandardizingPath()

set ocidSaveDirPathURL to (refMe's NSURL's alloc()'s initFileURLWithPath:(ocidSaveDirPath) isDirectory:true)

##保存先確保

set appFileManager to refMe's NSFileManager's defaultManager()

set ocidAttrDict to refMe's NSMutableDictionary's alloc()'s initWithCapacity:0

# 777-->511 755-->493 700-->448 766-->502

ocidAttrDict's setValue:(448) forKey:(refMe's NSFilePosixPermissions)

set listBoolMakeDir to appFileManager's createDirectoryAtURL:(ocidSaveDirPathURL) withIntermediateDirectories:true attributes:(ocidAttrDict) |error|:(reference)

###保存先　ファイルパス

set ocidSaveFilePathURL to ocidSaveDirPathURL's URLByAppendingPathComponent:(strFileName) isDirectory:(false)

set strSaveFilePath to (ocidSaveFilePathURL's |path|()) as text

###サファリのウィンドウの位置を確定

tell application "Safari"

  tell front window

    properties

  end tell

end tell

tell application "Safari"

  tell front window

    set bounds to {0, 25, 1130, 900}

  end tell

end tell

tell application "Safari"

  activate

  tell front window

    properties

  end tell

end tell

##

# set strCommandText to ("/usr/sbin/screencapture \" -R0,100,1130,800 -t png -o -a -r -x -B com.apple.Safari " & strSaveFilePath & "\"") as text

## RECT指定

# set strCommandText to ("/usr/sbin/screencapture \" -x -R0,100,1130,800 " & strSaveFilePath & "\"") as text

##キャプチャー撮って開く

# set strCommandText to ("/usr/sbin/screencapture \" -Bcom.apple.Safari " & strSaveFilePath & "\" ") as text

##

set strCommandText to ("/usr/sbin/screencapture -R0,100,1130,800 -x -t png -o \"" & strSaveFilePath & "\"") as text

do shell script strCommandText

delay 1

tell application "Safari"

  activate

end tell

##ページを送る　（これは左矢印キー）

tell application "System Events"

  key code 123

  tell process "Safari"

key code 123

  end tell

end tell

################################

# 日付 doGetDateNo(argDateFormat,argCalendarNO)

# argCalendarNO 1 NSCalendarIdentifierGregorian 西暦

# argCalendarNO 2 NSCalendarIdentifierJapanese 和暦

################################

to doGetDateNo({argDateFormat, argCalendarNO})

  ##渡された値をテキストで確定させて

  set strDateFormat to argDateFormat as text

  set intCalendarNO to argCalendarNO as integer

  ###日付情報の取得

  set ocidDate to current application's NSDate's |date|()

  ###日付のフォーマットを定義（日本語）

  set ocidFormatterJP to current application's NSDateFormatter's alloc()'s init()

  ###和暦　西暦　カレンダー分岐

  if intCalendarNO = 1 then

    set ocidCalendarID to (current application's NSCalendarIdentifierGregorian)

  else if intCalendarNO = 2 then

    set ocidCalendarID to (current application's NSCalendarIdentifierJapanese)

  else

    set ocidCalendarID to (current application's NSCalendarIdentifierISO8601)

  end if

  set ocidCalendarJP to current application's NSCalendar's alloc()'s initWithCalendarIdentifier:(ocidCalendarID)

  set ocidTimezoneJP to current application's NSTimeZone's alloc()'s initWithName:("Asia/Tokyo")

  set ocidLocaleJP to current application's NSLocale's alloc()'s initWithLocaleIdentifier:("ja_JP_POSIX")

  ###設定

ocidFormatterJP's setTimeZone:(ocidTimezoneJP)

ocidFormatterJP's setLocale:(ocidLocaleJP)

ocidFormatterJP's setCalendar:(ocidCalendarJP)

  # ocidFormatterJP's setDateStyle:(current application's NSDateFormatterNoStyle)

  # ocidFormatterJP's setDateStyle:(current application's NSDateFormatterShortStyle)

  # ocidFormatterJP's setDateStyle:(current application's NSDateFormatterMediumStyle)

  # ocidFormatterJP's setDateStyle:(current application's NSDateFormatterLongStyle)

ocidFormatterJP's setDateStyle:(current application's NSDateFormatterFullStyle)

  ###渡された値でフォーマット定義

ocidFormatterJP's setDateFormat:(strDateFormat)

  ###フォーマット適応

  set ocidDateAndTime to ocidFormatterJP's stringFromDate:(ocidDate)

  ###テキストで戻す

  set strDateAndTime to ocidDateAndTime as text

return strDateAndTime

end doGetDateNo

---