« システム環境設定のAnchoを選んで開く | トップページ | anchor of current pane »

com.apple.preference.security

com.apple.preference.security をアンカー指定して開く『だけ』

ダウンロード - apple.systempreferences.scpt.zip

Privacy_LocationServices
Privacy_Contacts
Privacy_Calendars
Privacy_Reminders
Privacy_Photos
Privacy_Camera
Privacy_Microphone
Privacy_SpeechRecognition
Privacy_Accessibility
Privacy_ListenEvent
Privacy_AllFiles
Privacy_DocumentsFolder
Privacy_ScreenCapture
Privacy_Media
Privacy_HomeKit
Privacy_Bluetooth
Privacy_Focus
Privacy_Automation
Privacy_DevTools
Privacy_Diagnostics
Privacy_Advertising
General
FDE
Firewall
Privacy
Advanced

2



set listSecurityAnk to
"Privacy_LocationServices", ¬
"Privacy_Contacts", ¬
"Privacy_Calendars", ¬
"Privacy_Reminders", ¬
"Privacy_Photos", ¬
"Privacy_Camera", ¬
"Privacy_Microphone", ¬
"Privacy_SpeechRecognition", ¬
"Privacy_Accessibility", ¬
"Privacy_ListenEvent", ¬
"Privacy_AllFiles", ¬
"Privacy_DocumentsFolder", ¬
"Privacy_ScreenCapture", ¬
"Privacy_Media", ¬
"Privacy_HomeKit", ¬
"Privacy_Bluetooth", ¬
"Privacy_Focus", ¬
"Privacy_Automation", ¬
"Privacy_DevTools", ¬
"Privacy_Diagnostics", ¬
"Privacy_Advertising", ¬
"General", ¬
"FDE", ¬
"Firewall", ¬
"Privacy", ¬
"Advanced"} as list

set objRespoce to (choose from list listSecurityAnk with title "セキュリティ&プライバシー" with prompt "セキュリティ&プライバシーの項目を開きます" without multiple selections allowed)

set theRespoce to objRespoce as text

tell application "System Preferences"
launch
activate
try
set the current pane to pane id "com.apple.preference.security"
set listPanelName to get the name of every anchor of current pane
on error
repeat
try
set listPanelName to get the name of every anchor of current pane
exit repeat
on error
delay 1
end try
end repeat
end try
try
tell current pane
tell anchor theRespoce
reveal
activate
end tell
end tell
on error
set theCommand to ("open \"x-apple.systempreferences:com.apple.preference.security?" & theRespoce & "\"") as text
do shell script theCommand
end try
try
tell current pane
reveal anchor theRespoce
activate
end tell
on error
set theCommand to ("open \"x-apple.systempreferences:com.apple.preference.security?" & theRespoce & "\"") as text
do shell script theCommand
end try
end tell

|

« システム環境設定のAnchoを選んで開く | トップページ | anchor of current pane »

TCC」カテゴリの記事

prefPane」カテゴリの記事