AppleScript成功实现FaceTime语音,FaceTime视频,FaceTime数据筛选,检测手机号是否开通FaceTime

  1 --get_ui()
  2 facetime()
  3 
  4 
  5 --获取facetime应用所有ui
  6 on get_ui()
  7     tell application "FaceTime" to activate
  8     tell application "System Events"
  9         tell process "FaceTime"
 10             tell window 1
 11                 entire contents
 12             end tell
 13         end tell
 14     end tell
 15 end get_ui
 16 
 17 
 18 
 19 on facetime()
 20     tell application "Finder" to activate
 21     
 22     tell application "Finder"
 23         set chosenfile to (choose file)
 24     end tell
 25     
 26     
 27     tell application "FaceTime"
 28         tell application "FaceTime" to activate
 29         
 30         set phoneData to read chosenfile
 31         set cards to paragraphs of phoneData
 32         repeat with phone in cards
 33             
 34             set num to the length of phone
 35             if (num > 0) then
 36                 my check_data(phone)
 37                 delay 1
 38             end if
 39         end repeat
 40         
 41     end tell
 42 end facetime
 43 
 44 
 45 # 检测数据是否开通或启用facetime
 46 on check_data(phone)
 47     tell application "System Events"
 48         tell process "FaceTime"
 49             --核心代码...
 50         end tell
 51     end tell
 52 end check_data
 53 
 54 
 55 
 56 -- 记录有效数据
 57 on WritePhone(the_phone)
 58     set num to the length of the_phone
 59     if (num > 0) then
 60         set fileName to date string of (current date)
 61         set logFilePath to my current_folder_path() & "success/检测成功的FaceTime数据.txt"
 62         set this_file to (POSIX file logFilePath as string)
 63         set this_story to the_phone & "
 64 "
 65         try
 66             set fp to open for access this_file
 67             set myText to read fp
 68             
 69             if (myText does not contain the_phone) then
 70                 my write_to_file(this_story, this_file, true, true)
 71             end if
 72         on error
 73             my write_to_file(this_story, this_file, true, true)
 74         end try
 75     end if
 76 end WritePhone
 77 
 78 
 79 
 80 -- 写入文件
 81 on write_to_file(this_data, target_file, append_data, append_end)
 82     try
 83         set the target_file to the target_file as text
 84         set the open_target_file to ¬
 85             open for access file target_file with write permission
 86         
 87         if append_data is false then
 88             set eof of the open_target_file to 0
 89             write this_data to the open_target_file starting at eof
 90         else if append_end is false then
 91             try
 92                 set fp to open for access target_file
 93                 set myText to read fp
 94                 set eof of the open_target_file to 0
 95                 write this_data to the open_target_file starting at eof
 96                 write myText to the open_target_file starting at eof
 97             on error
 98                 write this_data to the open_target_file starting at eof
 99             end try
100         else
101             write this_data to the open_target_file starting at eof
102         end if
103         
104         close access the open_target_file
105         return target_file
106     on error
107         try
108             close access file target_file
109         end try
110         return false
111     end try
112 end write_to_file
113 
114 
115 -- 获取当前文件的父文件夹路径
116 on current_folder_path()
117     set UnixPath to POSIX path of ((path to me as text) & "::")
118     return UnixPath
119 end current_folder_path