Applescript实现无痕检测是否注册iMessage服务,iMessages数据筛选,iMessage蓝号检测完美实现

一、实现iMessage蓝号数据筛选的两种方式:
1.人工筛选，将要验证的号码输出到文件中，以逗号分隔。再将文件中的号码粘贴到iMessage客户端的地址栏，iMessage客户端会自动逐个检验该号码是否为iMessage账号，检验速度视网速而定。红色表示不是iMessage账号，蓝色表示iMessage账号。
2.编写脚本控制Mac os/iphone上自带的iMessage应用进行验证(全自动无痕迹检测,无需人工干预),将数据自动填充到号码框之后,如果捕获到失败则不是iMessage账号,捕获到成功则把数据保存下来。
3.最新升级版本请参考博文首页相关文章: https://www.cnblogs.com/imblog/

 

二、脚本程序或app对指定数据全自动无痕过滤
Mac OS系统下无痕检测手机号是否注册imessage的程序(注意：检测不同国家手机号需要在手机号的前缀 +国家代码即可,自动检测导入的txt数据，蓝号数据自动保存,新升级版经测试单app id可检测1000+条，有意可联系)
检测数据是否开通imessge示例代码:

  1 -- 全自动无痕检测导入的数据是否注册imesaages
  2 startApp()
  3 
  4 
  5 --执行主程序
  6 on startApp()
  7     tell application "Finder" to activate
  8     
  9     tell application "Finder"
 10         set chosenfile to (choose file)
 11     end tell
 12     
 13     tell application "Messages"
 14         tell application "Messages" to activate
 15         
 16         set phoneData to read chosenfile
 17         set cards to paragraphs of phoneData
 18         
 19         repeat with phone in cards
 20             --set msgText to (my AppendFace(" "))
 21             
 22             -- 假如字符串大于0，则草率判定是手机号
 23             set num to the length of phone
 24             if (num > 0) then
 25                 --执行检测
 26                 my sendMsg(phone)
 27                 delay 1    
 28             end if
 29         end repeat
 30         display dialog "恭喜，数据已全部检测完毕！"
 31     end tell
 32 end startApp
 33 
 34 
 35 # 开始检测
 36 on sendMsg(phone)
 37     tell application "Messages" to activate
 38     tell application "System Events"
 39         tell process "Messages"
 40             tell window 1
 41                 --核心代码，省略.........
 42                 
 43                 if static text of sheet 1 of window "信息" of application process "Messages" of application "System Events" exists then
 44                     --对未启用imessage的手机号码进行记录
 45                     my WritePhone(phone, "未开启im的数据.txt")
 46                 else
 47                     --对已启用imessage的手机号码进行记录
 48                     my WritePhone(phone, "已开启im的数据.txt")
 49                 end if
 50                 
 51                 
 52                 delay 0.2
 53                 key code 76
 54 
 55                 
 56             end tell
 57         end tell
 58     end tell
 59 end sendMsg
 60 
 61 
 62 -- 记录有效手机号
 63 on WritePhone(the_phone, file_name)
 64     set num to the length of the_phone
 65     if (num > 0) then
 66         set fileName to date string of (current date)
 67         set logFilePath to my current_folder_path() & "send/" & file_name
 68         set this_file to (POSIX file logFilePath as string)
 69         set this_story to the_phone & "
 70 "
 71         try
 72             set fp to open for access this_file
 73             set myText to read fp
 74             
 75             if (myText does not contain the_phone) then
 76                 my write_to_file(this_story, this_file, true, true)
 77             end if
 78         on error
 79             my write_to_file(this_story, this_file, true, true)
 80         end try
 81     end if
 82 end WritePhone
 83 
 84 
 85 -- 写入文件
 86 on write_to_file(this_data, target_file, append_data, append_end)
 87     try
 88         set the target_file to the target_file as text
 89         set the open_target_file to ¬
 90             open for access file target_file with write permission
 91         
 92         if append_data is false then
 93             set eof of the open_target_file to 0
 94             write this_data to the open_target_file starting at eof
 95         else if append_end is false then
 96             try
 97                 set fp to open for access target_file
 98                 set myText to read fp
 99                 set eof of the open_target_file to 0
100                 write this_data to the open_target_file starting at eof
101                 write myText to the open_target_file starting at eof
102             on error
103                 write this_data to the open_target_file starting at eof
104             end try
105         else
106             write this_data to the open_target_file starting at eof
107         end if
108         
109         close access the open_target_file
110         return target_file
111     on error
112         try
113             close access file target_file
114         end try
115         return false
116     end try
117 end write_to_file
118 
119 
120 -- 获取当前文件的父文件夹路径
121 on current_folder_path()
122     set UnixPath to POSIX path of ((path to me as text) & "::")
123     return UnixPath
124 end current_folder_path

 1.电脑版Mac OS系统上的检测程序,全自动无痕检测手机号或邮箱是否开通imessage(全自动无痕检测用户导入的手机号或邮箱数据,默认0.1秒到0.5秒检测一封，自动保存已开启im的数据和未开启的im的数据）

 2.iPhone手机上的检测程序,全自动无痕检测数据手机号是否开通imessage(全自动无痕检测用户导入的手机号或邮箱数据,默认2-5秒检测一封蓝号数据,检测结果自动保存)