WEBページのGUIでペーストを使ってファイルをアップロード

---

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

WEBページのGUIでペーストを使ってファイルをアップロード.scpt

	ソース
001	#!/usr/bin/env osascript
002	----+----1----+----2----+-----3----+----4----+----5----+----6----+----7
003	(*
004
005	WEBページのGUIでペーストを使ってファイルをアップロード
006	サンプルはopenAI
007
008	『たぶん』サイト側がペーストに対応している必要があります
009
010	com.cocolog-nifty.quicktimer.icefloe　*)
011	----+----1----+----2----+-----3----+----4----+----5----+----6----+----7
012	use AppleScript version "2.8"
013	use scripting additions
014
015	#選択中のファイルをコピーして
016	tell application "Finder"
017	activate
018	tell application "System Events"
019	keystroke "c" using {command down}
020	end tell
021	end tell
022
023
024	set strURL to ("https://chatgpt.com/") as text
025
026	tell application "Microsoft Edge"
027	tell front window
028	make new tab with properties {URL:strURL}
029	repeat 30 times
030	tell active tab
031	set boolLoading to loading as boolean
032	end tell
033	if boolLoading is true then
034	delay 0.5
035	else
036	#魔法の0.5秒
037	delay 0.5
038	exit repeat
039	end if
040	end repeat
041	end tell
042	end tell
043
044	#入力部分へカーソルを移動させて
045	tell application "Microsoft Edge"
046	activate
047	tell application "System Events"
048	tell application process "Microsoft Edge"
049	tell front window
050	key code 53 using {shift down}
051	end tell
052	end tell
053	end tell
054	end tell
055	#ペーストでアップロード
056	tell application "Microsoft Edge"
057	activate
058	tell application "System Events"
059	tell application process "Microsoft Edge"
060	tell front window
061	keystroke "v" using {command down}
062	end tell
063	end tell
064	end tell
065	end tell
AppleScriptで生成しました

---

[UI] 『フォルダへ移動』のUI上でのクリック

macscripterに投稿したのと同じ内容だけど

---

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

『フォルダへ移動』のUI上でのクリック.scpt

	ソース
001	#!/usr/bin/env osascript
002	----+----1----+----2----+-----3----+----4----+----5----+----6----+----7
003	(*
004	『フォルダへ移動』のUI上でのクリック
005	com.cocolog-nifty.quicktimer.icefloe *)
006	----+----1----+----2----+-----3----+----4----+----5----+----6----+----7
007	use AppleScript version "2.8"
008	use scripting additions
009
010	tell application "Microsoft Edge"
011	activate
012	tell application "System Events"
013	tell application process "Microsoft Edge"
014	tell front window
015	#フォルダへ移動画面を出して
016	keystroke "g" using {command down, shift down}
017	#フォルダへ移動画面が出る待ち時間魔法の１秒
018	delay 1
019	#入力可能エリアのXボタンを
020	tell button 1 of sheet 1 of sheet 1
021	#クリックして　内容を消して
022	click
023	#内容を入れて
024	keystroke "/tmp\n\n"
025	#リターンで
026	keystroke return
027	end tell
028	end tell
029	end tell
030	end tell
031	end tell
AppleScriptで生成しました

---

前回Openパネルが使用したフォルダパスのリセット（失敗作）

これは、設定した値が
反映されたり、されなかったりで
どうも、安定に欠くが
基本は
アプリケーションの設定ファイルの
NSOSPLastRootDirectory
と
com.apple.appkit.xpc.openAndSavePanelService.plist
NSOSPRecentPlaces
の０番を変更すればいいのだろうけど
上手くいかなかった
失敗ではないけど、安定しないので不採用

---

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

OPENダイアログのdefault locationのセット.applescript

	ソース
001	#!/usr/bin/env osascript
002	----+----1----+----2----+-----3----+----4----+----5----+----6----+----7
003	(*
004
005	OPEN/SAVEパネルのdefault location
006	実行時に表示されるパスの値の変更
007
008
009	com.cocolog-nifty.quicktimer.icefloe *)
010	----+----1----+----2----+-----3----+----4----+----5----+----6----+----7
011	use AppleScript version "2.8"
012	use framework "Foundation"
013	use framework "AppKit"
014	use framework "UniformTypeIdentifiers"
015	use scripting additions
016
017	property refMe : a reference to current application
018
019	#設定項目
020	#このパスをデフォルトとケーションとして設定する
021	set strDirPath to ("/tmp") as text
022
023	#設定項目
024	#設定するアプリケーションのplistのパス
025	set strFilePath to "~/Library/Preferences/com.microsoft.edgemac.plist" as text
026
027
028
029	set ocidFilePathStr to refMe's NSString's stringWithString:(strFilePath)
030	set ocidFilePath to ocidFilePathStr's stringByStandardizingPath()
031	set ocidFilePathURL to refMe's NSURL's alloc()'s initFileURLWithPath:(ocidFilePath) isDirectory:(false)
032
033	#NSDATA
034	set ocidOption to (refMe's NSDataReadingMappedIfSafe)
035	set listResponse to refMe's NSData's alloc()'s initWithContentsOfURL:(ocidFilePathURL) options:(ocidOption) |error|:(reference)
036	if (item 2 of listResponse) = (missing value) then
037	log "initWithContentsOfURL 正常処理"
038	set ocidReadData to (item 1 of listResponse)
039	else if (item 2 of listResponse) ≠ (missing value) then
040	set strErrorNO to (item 2 of listResponse)'s code() as text
041	set strErrorMes to (item 2 of listResponse)'s localizedDescription() as text
042	refMe's NSLog("■：" & strErrorNO & strErrorMes)
043	return "initWithContentsOfURL エラーしました" & strErrorNO & strErrorMes
044	end if
045	#NSPropertyListSerializationにする
046	set appPlistSerial to (refMe's NSPropertyListSerialization)
047	set ocidOption to (refMe's NSPropertyListMutableContainersAndLeaves)
048	set listResponse to appPlistSerial's propertyListWithData:(ocidReadData) options:(ocidOption) format:(reference) |error|:(reference)
049	log (count of listResponse)
050	if (item 3 of listResponse) = (missing value) then
051	set ocidPlistDict to (item 1 of listResponse)
052	set ocidFormat to (item 2 of listResponse)
053	else if (item 3 of listResponse) ≠ (missing value) then
054	set strErrorNO to (item 2 of listResponse)'s code() as text
055	set strErrorMes to (item 2 of listResponse)'s localizedDescription() as text
056	current application's NSLog("■：" & strErrorNO & strErrorMes)
057	return "エラーしましたpropertyListWithData:" & strErrorNO & strErrorMes
058	end if
059
060	#NSURLBookmark
061	set ocidBookMarkData to ocidPlistDict's objectForKey:("NSOSPLastRootDirectory")
062
063	#BOOKMARKを変換パス
064	set ocidKeyArray to refMe's NSMutableArray's alloc()'s init()
065	ocidKeyArray's addObject:(refMe's NSURLPathKey)
066	ocidKeyArray's addObject:(refMe's NSURLNameKey)
067	set ocidResourceValues to refMe's NSURL's resourceValuesForKeys:(ocidKeyArray) fromBookmarkData:(ocidBookMarkData)
068	set ocidFilePath to (ocidResourceValues's objectForKey:(refMe's NSURLPathKey))
069	log ocidFilePath as text
070
071	#BOOKMARKを変換ファイルURL
072	set ocidOption to (refMe's NSURLBookmarkResolutionWithoutUI)
073	set listResponse to refMe's NSURL's URLByResolvingBookmarkData:(ocidBookMarkData) options:(ocidOption) relativeToURL:(missing value) bookmarkDataIsStale:(false) |error|:(reference)
074	set ocidFileURL to (item 1 of listResponse)
075	log ocidFileURL's absoluteString() as text
076
077	#この値をセットしていく
078
079	set ocidDirPathStr to refMe's NSString's stringWithString:(strDirPath)
080	set ocidDirPath to ocidDirPathStr's stringByStandardizingPath()
081	set ocidDirPathURL to (refMe's NSURL's alloc()'s initFileURLWithPath:(ocidDirPath) isDirectory:true)
082
083	#BOOKマークデータを作成して
084	set ocidOption to (refMe's NSURLBookmarkResolutionWithoutUI)
085	set listResponse to ocidDirPathURL's bookmarkDataWithOptions:(ocidOption) includingResourceValuesForKeys:(missing value) relativeToURL:(missing value) |error|:(reference)
086	set ocidSetBookmarkData to (item 1 of listResponse)
087
088
089	#セットして
090	ocidPlistDict's setObject:(ocidSetBookmarkData) forKey:("NSOSPLastRootDirectory")
091
092	#NSPropertyListSerialization
093	set listResponse to (refMe's NSPropertyListSerialization's dataWithPropertyList:(ocidPlistDict) format:(ocidFormat) options:(0) |error|:(reference))
094	if (item 2 of listResponse) = (missing value) then
095	set ocidSaveData to (item 1 of listResponse)
096	else if (item 2 of listResponse) ≠ (missing value) then
097	set strErrorNO to (item 2 of listResponse)'s code() as text
098	set strErrorMes to (item 2 of listResponse)'s localizedDescription() as text
099	refMe's NSLog("■：" & strErrorNO & strErrorMes)
100	return "エラーしましたdataWithPropertyList:" & strErrorNO & strErrorMes
101	end if
102
103	#NSDATAで保存
104	set ocidOption to (refMe's NSDataWritingAtomic)
105	set listDone to (ocidSaveData's writeToURL:(ocidFilePathURL) options:(ocidOption) |error|:(reference))
106	if (item 2 of listResponse) ≠ (missing value) then
107	set strErrorNO to (item 2 of listResponse)'s code() as text
108	set strErrorMes to (item 2 of listResponse)'s localizedDescription() as text
109	refMe's NSLog("■：" & strErrorNO & strErrorMes)
110	return "エラーしましたwriteToURL: " & strErrorNO & strErrorMes
111	end if
112
113
114
115
116	set strFilePath to ("~/Library/Preferences/com.apple.appkit.xpc.openAndSavePanelService.plist") as text
117	set ocidFilePathStr to refMe's NSString's stringWithString:(strFilePath)
118	set ocidFilePath to ocidFilePathStr's stringByStandardizingPath()
119	set ocidFilePathURL to refMe's NSURL's alloc()'s initFileURLWithPath:(ocidFilePath) isDirectory:(false)
120
121
122	set listResponse to refMe's NSMutableDictionary's alloc()'s initWithContentsOfURL:(ocidFilePathURL) |error|:(reference)
123	if (item 2 of listResponse) = (missing value) then
124	set ocidXPCDict to (item 1 of listResponse)
125	else if (item 2 of listResponse) ≠ (missing value) then
126	set strErrorNO to (item 2 of listResponse)'s code() as text
127	set strErrorMes to (item 2 of listResponse)'s localizedDescription() as text
128	refMe's NSLog("■：" & strErrorNO & strErrorMes)
129	return "エラーしました" & strErrorNO & strErrorMes
130	end if
131
132	set ocidRecentArray to ocidXPCDict's objectForKey:("NSOSPRecentPlaces")
133	ocidRecentArray's replaceObjectAtIndex:(0) withObject:(ocidSetBookmarkData)
134
135
136
137	set listDone to ocidXPCDict's writeToURL:(ocidFilePathURL) |error|:(reference)
138	if (item 1 of listDone) is true then
139	log "writeToURL 正常処理"
140	else if (item 2 of listDone) ≠ (missing value) then
141	set strErrorNO to (item 2 of listDone)'s code() as text
142	set strErrorMes to (item 2 of listDone)'s localizedDescription() as text
143	refMe's NSLog("■：" & strErrorNO & strErrorMes)
144	return "writeToURL エラーしました" & strErrorNO & strErrorMes
145	end if
AppleScriptで生成しました

---

[redesigned_text_cursor]入力支援のUIを停止・再開する

停止

---

サンプルコード

クリップボードへコピー

サンプルソース（参考）

行番号	ソース
001	#!/bin/bash
002	#com.cocolog-nifty.quicktimer.icefloe
003	#
004	# /System/Library/FeatureFlags/Domain
005	# に
006	# 各種フラッグのキー名が格納されている
007	#################################################
008	###
009	USER_WHOAMI=$(/usr/bin/whoami)
010	/bin/echo "実行ユーザー(whoami): $USER_WHOAMI"
011	###実行しているユーザー名
012	CONSOLE_USER=$(/bin/echo "show State:/Users/ConsoleUser" | /usr/sbin/scutil | /usr/bin/awk '/Name :/ { print $3 }')
013	/bin/echo "コンソールユーザー(scutil): $CONSOLE_USER"
014	###実行しているユーザー名
015	CONSOLE_USER=$(/bin/echo "show State:/Users/ConsoleUser" | /usr/sbin/scutil | /usr/bin/awk '/Name :/ { print $3 }')
016	/bin/echo "コンソールユーザー(scutil): $CONSOLE_USER"
017	###実行しているユーザー名
018	HOME_USER=$(/bin/echo "$HOME" | /usr/bin/awk -F'/' '{print $NF}')
019	/bin/echo "実行ユーザー(HOME): $HOME_USER"
020	###logname
021	LOGIN_NAME=$(/usr/bin/logname)
022	/bin/echo "ログイン名(logname): $LOGIN_NAME"
023	###UID
024	USER_NAME=$(/usr/bin/id -un)
025	/bin/echo "ユーザー名(id): $USER_NAME"
026	###STAT
027	STAT_USR=$(/usr/bin/stat -f%Su /dev/console)
028	/bin/echo "STAT_USR(console): $STAT_USR"
029
030	########################################
031	#サブフォルダのアクセス権チェック(定型）
032	/bin/echo "USER DIRチェック開始"
033	STR_CHK_PATH="/Users/$CONSOLE_USER/"
034	/bin/chmod 755  "$STR_CHK_PATH"
035
036	LIST_SUB_DIR_NAME=("Desktop" "Documents" "Downloads" "Movies" "Music" "Pictures" "Groups" "Developer" "Applications" "bin")
037	for ITEM_DIR_NAME in "${LIST_SUB_DIR_NAME[@]}"; do
038	STR_CHK_PATH="/Users/$CONSOLE_USER/${ITEM_DIR_NAME}"
039	/bin/chmod 700 "$STR_CHK_PATH"
040	/bin/chmod +a "group:everyone deny delete" "$STR_CHK_PATH"
041	done
042
043	STR_CHK_PATH="/Users/$CONSOLE_USER/Sites"
044	/bin/chmod 755  "$STR_CHK_PATH"
045
046
047	########################################
048	#ユーザー環境
049	PATH_PREF_DIR="/Users/${STAT_USR}/Library/Preferences/FeatureFlags/Domain"
050	/bin/mkdir -p "$PATH_PREF_DIR"
051	##
052	PATH_PLIST_FILE="${PATH_PREF_DIR}/UIKit.plist"
053	#空のPLIST
054	/usr/libexec/PlistBuddy -c "Save" "$PATH_PLIST_FILE"
055	#DICTを作って
056	/usr/libexec/PlistBuddy -c "Add :redesigned_text_cursor dict" "$PATH_PLIST_FILE"
057	#KEY VALUE
058	/usr/libexec/PlistBuddy -c "Add :redesigned_text_cursor:Enabled bool false" "$PATH_PLIST_FILE"
059	#保存
060	/usr/libexec/PlistBuddy -c "Save" "$PATH_PLIST_FILE"
061	#確認
062	/usr/bin/defaults read "$PATH_PLIST_FILE" redesigned_text_cursor
063	#
064	#/usr/bin/defaults write "$PATH_PLIST_FILE" redesigned_text_cursor -dict-add Enabled -false
065
066	########################################
067	#ローカル環境
068	PATH_PREF_DIR="/Library/Preferences/FeatureFlags/Domain"
069	/usr/bin/sudo /bin/mkdir -p "$PATH_PREF_DIR"
070	##
071	PATH_PLIST_FILE="${PATH_PREF_DIR}/UIKit.plist"
072	#空のPLIST
073	/usr/bin/sudo /usr/libexec/PlistBuddy -c "Save" "$PATH_PLIST_FILE"
074	#DICTを作って
075	/usr/bin/sudo /usr/libexec/PlistBuddy -c "Add :redesigned_text_cursor dict" "$PATH_PLIST_FILE"
076	#KEY VALUE
077	/usr/bin/sudo /usr/libexec/PlistBuddy -c "Add :redesigned_text_cursor:Enabled bool false" "$PATH_PLIST_FILE"
078	#保存
079	/usr/bin/sudo /usr/libexec/PlistBuddy -c "Save" "$PATH_PLIST_FILE"
080	#確認
081	/usr/bin/defaults read "$PATH_PLIST_FILE" redesigned_text_cursor
082	#
083	#/usr/bin/sudo /usr/bin/defaults write "$PATH_PLIST_FILE" redesigned_text_cursor -dict-add Enabled -false
084	exit 0
AppleScriptで生成しました

---

再開

---

サンプルコード

クリップボードへコピー

サンプルソース（参考）

行番号	ソース
001	#!/bin/bash
002	#com.cocolog-nifty.quicktimer.icefloe
003	#
004	# /System/Library/FeatureFlags/Domain
005	# に
006	# 各種フラッグのキー名が格納されている
007	#################################################
008	###
009	USER_WHOAMI=$(/usr/bin/whoami)
010	/bin/echo "実行ユーザー(whoami): $USER_WHOAMI"
011	###実行しているユーザー名
012	CONSOLE_USER=$(/bin/echo "show State:/Users/ConsoleUser" | /usr/sbin/scutil | /usr/bin/awk '/Name :/ { print $3 }')
013	/bin/echo "コンソールユーザー(scutil): $CONSOLE_USER"
014	###実行しているユーザー名
015	CONSOLE_USER=$(/bin/echo "show State:/Users/ConsoleUser" | /usr/sbin/scutil | /usr/bin/awk '/Name :/ { print $3 }')
016	/bin/echo "コンソールユーザー(scutil): $CONSOLE_USER"
017	###実行しているユーザー名
018	HOME_USER=$(/bin/echo "$HOME" | /usr/bin/awk -F'/' '{print $NF}')
019	/bin/echo "実行ユーザー(HOME): $HOME_USER"
020	###logname
021	LOGIN_NAME=$(/usr/bin/logname)
022	/bin/echo "ログイン名(logname): $LOGIN_NAME"
023	###UID
024	USER_NAME=$(/usr/bin/id -un)
025	/bin/echo "ユーザー名(id): $USER_NAME"
026	###STAT
027	STAT_USR=$(/usr/bin/stat -f%Su /dev/console)
028	/bin/echo "STAT_USR(console): $STAT_USR"
029
030	########################################
031	#サブフォルダのアクセス権チェック(定型）
032	/bin/echo "USER DIRチェック開始"
033	STR_CHK_PATH="/Users/$CONSOLE_USER/"
034	/bin/chmod 755  "$STR_CHK_PATH"
035
036	LIST_SUB_DIR_NAME=("Desktop" "Documents" "Downloads" "Movies" "Music" "Pictures" "Groups" "Developer" "Applications" "bin")
037	for ITEM_DIR_NAME in "${LIST_SUB_DIR_NAME[@]}"; do
038	STR_CHK_PATH="/Users/$CONSOLE_USER/${ITEM_DIR_NAME}"
039	/bin/chmod 700 "$STR_CHK_PATH"
040	/bin/chmod +a "group:everyone deny delete" "$STR_CHK_PATH"
041	done
042
043	STR_CHK_PATH="/Users/$CONSOLE_USER/Sites"
044	/bin/chmod 755  "$STR_CHK_PATH"
045
046
047	########################################
048	#ユーザー環境
049	PATH_PREF_DIR="/Users/${STAT_USR}/Library/Preferences/FeatureFlags/Domain"
050	/bin/mkdir -p "$PATH_PREF_DIR"
051	##
052	PATH_PLIST_FILE="${PATH_PREF_DIR}/UIKit.plist"
053	#空のPLIST
054	/usr/libexec/PlistBuddy -c "Save" "$PATH_PLIST_FILE"
055	#DICTを作って
056	/usr/libexec/PlistBuddy -c "Add :redesigned_text_cursor dict" "$PATH_PLIST_FILE"
057	#KEY VALUE
058	/usr/libexec/PlistBuddy -c "Add :redesigned_text_cursor:Enabled bool true" "$PATH_PLIST_FILE"
059	#値を変更するか？削除してしまうか？はお好みで
060	#値の変更
061	/usr/libexec/PlistBuddy -c "Set :redesigned_text_cursor:Enabled true" "$PATH_PLIST_FILE"
062	# redesigned_text_cursorを削除する
063	/usr/libexec/PlistBuddy -c "Delete :redesigned_text_cursor" "$PATH_PLIST_FILE"
064	#保存
065	/usr/libexec/PlistBuddy -c "Save" "$PATH_PLIST_FILE"
066	#確認
067	/usr/bin/defaults read "$PATH_PLIST_FILE" redesigned_text_cursor
068	#
069	#/usr/bin/defaults write "$PATH_PLIST_FILE" redesigned_text_cursor -dict-add Enabled -true
070	exit 0
071	########################################
072	#ローカル環境
073	PATH_PREF_DIR="/Library/Preferences/FeatureFlags/Domain"
074	/usr/bin/sudo /bin/mkdir -p "$PATH_PREF_DIR"
075	##
076	PATH_PLIST_FILE="${PATH_PREF_DIR}/UIKit.plist"
077	#空のPLIST
078	/usr/bin/sudo /usr/libexec/PlistBuddy -c "Save" "$PATH_PLIST_FILE"
079	#DICTを作って
080	/usr/bin/sudo /usr/libexec/PlistBuddy -c "Add :redesigned_text_cursor dict" "$PATH_PLIST_FILE"
081	#KEY VALUE
082	/usr/bin/sudo /usr/libexec/PlistBuddy -c "Add :redesigned_text_cursor:Enabled bool true" "$PATH_PLIST_FILE"
083	#値を変更するか？削除してしまうか？はお好みで
084	#値の変更
085	/usr/bin/sudo /usr/libexec/PlistBuddy -c "Set :redesigned_text_cursor:Enabled true" "$PATH_PLIST_FILE"
086	# redesigned_text_cursorを削除する
087	/usr/bin/sudo /usr/libexec/PlistBuddy -c "Delete :redesigned_text_cursor" "$PATH_PLIST_FILE"
088	#保存
089	/usr/bin/sudo /usr/libexec/PlistBuddy -c "Save" "$PATH_PLIST_FILE"
090	#確認
091	/usr/bin/defaults read "$PATH_PLIST_FILE" redesigned_text_cursor
092	#
093	#/usr/bin/sudo /usr/bin/defaults write "$PATH_PLIST_FILE" redesigned_text_cursor -dict-add Enabled -true
094	exit 0
AppleScriptで生成しました

---

[UI]AdobeReaderの環境設定・ユーザー情報を開く

---

あくまでも参考にしてください

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

サンプルソース（参考）

行番号	ソース
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	tell application "Adobe Acrobat Reader" to activate
010
011	tell application id "com.adobe.Reader"
012	tell application "System Events"
013	tell process "AdobeReader"
014	key down {command}
015	keystroke ","
016	key up {command}
017	end tell
018	end tell
019	end tell
020	tell application id "com.adobe.Reader"
021	tell application "System Events"
022	click static text "ユーザー情報" of row 22 of outline 1 of scroll area 1 of window "環境設定" of application process "AdobeReader"
023	select row 22 of outline 1 of scroll area 1 of window "環境設定" of application process "AdobeReader"
024	end tell
025	end tell
AppleScriptで生成しました

---

[UI]システム設定のUI項目を取得する

こちらを参考にした
https://www.sudoade.com/scripting-the-unscriptable-macadmins-2023-presentation/

---

あくまでも参考にしてください

クリップボードへコピー

サンプルソース（参考）

行番号	ソース
001	(*
002	参考スクリプト
003	https://stream.lib.utah.edu/
004	MacAdmins Slack: @Xirias
005	*)
006
007
008	###起動
009	tell application id "com.apple.systempreferences"
010	# launch launchを使うとストールする事がある
011	activate
012	end tell
013	###起動待ち
014	tell application id "com.apple.systempreferences"
015	###起動確認　最大１０秒
016	repeat 10 times
017	activate
018	set boolFrontMost to frontmost as boolean
019	if boolFrontMost is true then
020	exit repeat
021	else
022	delay 1
023	end if
024	end repeat
025	end tell
026	###本処理
027	tell application id "com.apple.systempreferences"
028	tell application "System Events"
029	tell process "System Settings"
030	tell front window
031	##全てのエレメントを書き出す
032	set listUIelement to entire contents
033	repeat with itemElement in listUIelement
034	log itemElement
035	tell itemElement
036	properties
037	log role description as text
038	end tell
039	end repeat
040	end tell
041	end tell
042	end tell
043	end tell
044
045
AppleScriptで生成しました

---

[Quartz]マウスカーソルの移動

---

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

[Quartz]マウスカーソルの移動 .scpt

	ソース
001	#!/usr/bin/env osascript
002	----+----1----+----2----+-----3----+----4----+----5----+----6----+----7
003	(*
004
005
006	com.cocolog-nifty.quicktimer.icefloe *)
007	----+----1----+----2----+-----3----+----4----+----5----+----6----+----7
008	use AppleScript version "2.8"
009	use framework "Foundation"
010	use framework "AppKit"
011	use framework "CoreGraphics"
012	use scripting additions
013
014	property refMe : a reference to current application
015
016	#X秒間移動を続ける
017	set numCntTimer to 10 as integer
018
019
020	repeat numCntTimer times
021
022	###移動させたい位置（左上が0x0）
023	set ocidNSpoint to refMe's NSPoint's NSMakePoint(460, 360)
024	###移動前の位置
025	set mouseLoc to refMe's NSEvent's mouseLocation()
026	log mouseLoc
027	###移動
028	refMe's CGWarpMouseCursorPosition(ocidNSpoint)
029	###移動後の位置
030	set mouseLoc to refMe's NSEvent's mouseLocation()
031	log mouseLoc
032	#
033	delay 0.25
034	###移動させたい位置（左上が0x0）
035	set ocidNSpoint to refMe's NSPoint's NSMakePoint(360, 460)
036	###移動前の位置
037	set mouseLoc to refMe's NSEvent's mouseLocation()
038	log mouseLoc
039	###移動
040	refMe's CGWarpMouseCursorPosition(ocidNSpoint)
041	###移動後の位置
042	set mouseLoc to refMe's NSEvent's mouseLocation()
043	log mouseLoc
044	#
045	delay 0.25
046	###移動させたい位置（左上が0x0）
047	set ocidNSpoint to refMe's NSPoint's NSMakePoint(260, 360)
048	###移動前の位置
049	set mouseLoc to refMe's NSEvent's mouseLocation()
050	log mouseLoc
051	###移動
052	refMe's CGWarpMouseCursorPosition(ocidNSpoint)
053	###移動後の位置
054	set mouseLoc to refMe's NSEvent's mouseLocation()
055	log mouseLoc
056	#
057	delay 0.25
058	###移動させたい位置（左上が0x0）
059	set ocidNSpoint to refMe's NSPoint's NSMakePoint(360, 260)
060	###移動前の位置
061	set mouseLoc to refMe's NSEvent's mouseLocation()
062	log mouseLoc
063	###移動
064	refMe's CGWarpMouseCursorPosition(ocidNSpoint)
065	###移動後の位置
066	set mouseLoc to refMe's NSEvent's mouseLocation()
067	log mouseLoc
068	#
069	delay 0.25
070
071	end repeat
072
073
074
AppleScriptで生成しました

---

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

[Quartz]マウスカーソルの移動 .scpt

	ソース
001	#!/usr/bin/env osascript
002	----+----1----+----2----+-----3----+----4----+----5----+----6----+----7
003	(*
004
005
006	com.cocolog-nifty.quicktimer.icefloe *)
007	----+----1----+----2----+-----3----+----4----+----5----+----6----+----7
008	use AppleScript version "2.8"
009	use framework "Foundation"
010	use framework "AppKit"
011	use framework "Quartz"
012	use scripting additions
013
014	property refMe : a reference to current application
015
016	#X秒間移動を続ける
017	set numCntTimer to 10 as integer
018
019	repeat numCntTimer times
020
021	###移動させたい位置（左上が0x0）
022	set ocidNSpoint to refMe's NSPoint's NSMakePoint(0, 0)
023
024	###移動前の位置
025	set mouseLoc to refMe's NSEvent's mouseLocation()
026	log mouseLoc
027
028	###移動
029	refMe's CGWarpMouseCursorPosition(ocidNSpoint)
030
031	###移動後の位置
032	set mouseLoc to refMe's NSEvent's mouseLocation()
033	log mouseLoc
034	delay 0.2
035	###移動させたい位置（左上が0x0）
036	set ocidNSpoint to refMe's NSPoint's NSMakePoint(100, 100)
037
038	###移動前の位置
039	set mouseLoc to refMe's NSEvent's mouseLocation()
040	log mouseLoc
041
042	###移動
043	refMe's CGWarpMouseCursorPosition(ocidNSpoint)
044
045	###移動後の位置
046	set mouseLoc to refMe's NSEvent's mouseLocation()
047	log mouseLoc
048	delay 0.2
049	###移動させたい位置（左上が0x0）
050	set ocidNSpoint to refMe's NSPoint's NSMakePoint(200, 200)
051
052	###移動前の位置
053	set mouseLoc to refMe's NSEvent's mouseLocation()
054	log mouseLoc
055
056	###移動
057	refMe's CGWarpMouseCursorPosition(ocidNSpoint)
058
059	###移動後の位置
060	set mouseLoc to refMe's NSEvent's mouseLocation()
061	log mouseLoc
062
063	delay 0.2
064	end repeat
065
066
067
AppleScriptで生成しました

---

【スクリプトエディタで開く】

use AppleScript version "2.4"

use scripting additions

use framework "Foundation"

use framework "AppKit"

use framework "Quartz"

property refMe : a reference to current application

###移動させたい位置（左上が0x0）

set ocidNSpoint to refMe's NSMakePoint(0, 0)

###移動前の位置

set mouseLoc to refMe's NSEvent's mouseLocation()

log mouseLoc

###移動

refMe's CGWarpMouseCursorPosition(ocidNSpoint)

###移動後の位置

set mouseLoc to refMe's NSEvent's mouseLocation()

log mouseLoc

[UI]Wi-Fi システム設定

---

【スクリプトエディタで開く】

tell application "System Settings" to launch

--システム環境設定が開くのを待つ

repeat

  set doLaunchApp to get running of application "System Settings"

  if doLaunchApp is false then

    delay 1

  else

    exit repeat

  end if

end repeat

open location "x-apple.systempreferences:com.apple.Network-Settings.extension?Wi-Fi"

repeat

  tell application "System Settings"

    tell window 1

      set strWindowName to name as text

    end tell

  end tell

  if strWindowName is "Wi-Fi" then

    exit repeat

  else

    delay 1

  end if

end repeat

tell application "System Settings"

  tell application "System Events" to tell application process "System Settings"

    tell window "Wi-Fi"

      tell group 1

        # get properties of every UI element

        tell splitter group 1

          #   get properties of every UI element

          tell group 2

            #   get properties of every UI element

            tell group 1

              #   get properties of every UI element

              tell group 1

                #   get properties of every UI element

                tell scroll area 1

                  #   get properties of every UI element

                  tell group 1

                    get properties of every UI element

                    tell button 1

                      click

                    end tell

                  end tell

                end tell

              end tell

            end tell

          end tell

        end tell

      end tell

    end tell

  end tell

end tell

---

UI BROWSER

https://latenightsw.com/freeware/ui-browser/

[System Events]モニタの数（システム環境設定のUI）

ボタンの『"ディスプレイ設定…"』の有無で判断つきます

tell application "System Preferences"

activate

reveal anchor "displaysDisplayTab" of pane id "com.apple.preference.displays"

end tell

tell application "System Preferences"

activate

properties

tell pane id "com.apple.preference.displays"

properties

end tell

end tell

tell application "System Preferences"

activate

properties

tell pane id "com.apple.preference.displays"

properties

end tell

tell window 1

properties

end tell

end tell

tell application "System Preferences"

activate

delay 3

tell application "System Events"

tell process "System Preferences"

activate

get properties of every UI element

tell window "ディスプレイ"

get properties of every UI element

tell button "ディスプレイ設定…"

try

get properties of every UI element

log "デュアルディスプレイで利用中"

click

on error

log "シングルディスプレイで利用中"

end try

end tell

end tell

end tell

end tell

end tell