Week of 12/3 - 12/9, 2023: Insights

 

This article will continue to be updated until the weekend.

Changes in Behavior:

• I Improved graph output program.
  https://github.com/uminomae/Muse2graph/tree/main
  
  

  
  

  
  
  

  

  
  
  
  
• I created a GUI.
  
  
  
  
  
• I tried automatic recording of meetings in the zoom app using Applescript and calendar. Call up a script from the calendar and record the screen (command + shift + 5).　We have not yet started acquiring the audio of the zoom meeting.
  I will also post a video of the situation report for my close friends. Contains inside humor, please ignore.
  Note: Music will be played. Please be careful about the volume.

Create an app with Autometer. The code is below. This is a trial and error code that ignores cleanliness.

-- いつも使う「書類」ディレクトリに「zoomRec.txt」を作成し、
--1行目に会議ID、2行目に録画時間（分）、3行目にパスコードを記載しておく。
--ユーザーのホームディレクトリの絶対パスを取得
set homePath to (path to home folder as text)
-- zoomRec.txtファイルへの絶対パスを作成
set filePath to homePath & "Documents:zoomRec.txt"

-- zoomRec.txtファイルを開く
try
	set fileReference to open for access file filePath
	set fileContents to read fileReference
	close access fileReference
on error errMsg number errNum
	display dialog "ファイルにアクセスできません: " & errMsg & " (エラーコード: " & errNum & ")"
	return
end try

-- ファイルの内容を改行で分割して、ミーティングIDと収録時間を取得
set textItems to paragraphs of fileContents
set meetingID to item 1 of textItems
set recordingTimeMinutes to item 2 of textItems
if (count of textItems) ≥ 3 then
	set passcode to item 3 of textItems
else
	set passcode to "" -- またはデフォルトのパスコードをここに設定
end if
set recordingTimeSeconds to recordingTimeMinutes * 60


-- Zoomをアクティブにする
tell application "zoom.us"
	activate
	delay 2 -- アプリケーションが前面に来るのを待つ
end tell

-- ショートカットコマンドでミーティングID入力ウィンドウを開く
tell application "System Events"
	keystroke "j" using {command down}
	delay 2 -- ウィンドウが開くのを待つ
	keystroke meetingID -- ミーティングIDを入力
	delay 2 -- IDが入力されるのを待つ
	keystroke return -- OKを押す
	
	tell application "System Events"
		tell process "zoom.us"
			-- ミーティングID入力後の処理
			delay 5 -- Zoomがパスコードを要求するかどうかを確認するために待機
			
			-- パスコード入力フィールドが表示されているかを確認
			if exists (text field 1 of window 1 where description is "meetingPassword") then
				-- パスコード入力が要求された場合
				set passcode to item 3 of textItems
				keystroke passcode -- パスコードを入力
				delay 1
				keystroke return -- OKを押す
			else
				-- パスコード入力が要求されない場合は何もしない
			end if
		end tell
	end tell
	
	delay 5 -- 参加処理を待つ
	keystroke return -- 
	delay 2 --
	keystroke "f" using {shift down, command down}
	delay 2 -- 待つ
	keystroke "a" using {shift down, command down}
	delay 2 -- 待つ
end tell

-- スクリーンレコーディングツールを開く
tell application "System Events"
	key code 23 using {command down, shift down} -- Command + Shift + 5
	delay 1 -- ツールが開くのを待つ
end tell

-- 録画の開始
tell application "System Events"
	key code 36 -- Returnキーを押して録画を開始
	delay 1
end tell

-- 指定された時間（秒）待機（録画時間）
delay recordingTimeSeconds

tell application "System Events"
	key code 53 using {command down, control down}
	delay 10
	keystroke "q" using {command down}
	keystroke return
end tell

Inklings & Insights: 

• There may be a use for a used Mac.