第二篇:imessages群发,苹果imessages短信,苹果imessages推信,完美实现总结 – 电脑版

二、iMessage自动群发
注意:文中包含的代码、软件、系统、图样等是作为技术研究,请勿作为非法用途，因违反相关规定的，一切后果自负，与作者无关。
1.imessage协议版自动群发是通过调用苹果系统上的iMssage应用全自动发送(最新升级版本请参考博文首页相关文章: http://www.opsers.net)
示例代码:(完整版包含:根据CPU,主板,显卡型号安装匹配机型的苹果系统、自动更换ID、自动换序列号、防封系统、新老ID皆可激活发信。全套部署有意联系.)

set successCount to 0
set errorCount to 0

tell application "Messages"
    with timeout of 8 * 3600 seconds
        set phoneFilePath to my current_folder_path() & "phoneNumber.txt"
        set phoneData to read phoneFilePath
        set phoneEntries to paragraphs of phoneData
        set phone_nums to count phoneEntries
        
        repeat with i from 1 to count phoneEntries
            -- *******************************************
            -- 将要发送的短信文本内容
            -- *******************************************
            set msgText to (my AppendFace("hello,")) & my AppendFace("下午好啊") &  my AppendFace("张三")
            set phone to (phoneEntries's item i)'s text
            set targetService to (1st service whose service type = iMessage)
            set theBuddy to buddy phone of targetService
            

            set num to the length of phone
            -- 如果需要发送AppleID账号设为true 否则设为false
            set isEmail to true
            if ((num = 11 and (my isSendPhone(phone)) = false) or isEmail) then
                try
                    --发送文字内容消息                        
                    send msgText to theBuddy
                    
                    -- 发送图片内容消息                    
                    set imageFilePath to my current_folder_path() & "imessages.jpg"
                    send file (POSIX file imageFilePath as string) to theBuddy
                    
                    set logText to phone & " *** " & "1" & " *** " & date string of (current date) & " " & time string of (current date) & " *** " & "发送成功
"
                    ---延时一秒，不然取不到已发送的状态
                    --delay (random number from 3 to 5)
                    delay 1--删除多余的消息
                    (*
                    set chatNum to (get count of chat)
                    if (chatNum >50)  then
                        my deleteMsg(chatNum)
                    end if
                    *)
                    
                    my WriteLog(logText)
                    my WritePhone(phone)
                    
                    set successCount to successCount + 1 -- 记录成功数        
                on error errorMessage number errorNumber
                    
                    set logText to phone & " *** " & "0" & " *** " & date string of (current date) & " " & time string of (current date) & " *** " & "发送失败
"
                    my WriteLog(logText)
                    log "捕获的异常：" & errorMessage & "异常的编号:" & errorNumber
                    set errorCount to errorCount + 1 -- 记录失败数
                end try
            end if
        end repeat
        
        
        set titleStr to "数据总数：" & phone_nums & "个  " & "发送成功：" & successCount & "个 " & "发送失败：" & errorCount & "个"
        set btns to {"知道了"}
        display dialog titleStr buttons btns default button 1 --默认选择第1个按钮(按return时就会让弹出框消失)
        get the button returned of the result -- 弹出框
    end timeout
end tell


# 删除信息
on deleteMsg(maxNum)
    tell application "Messages" to activate
    
    tell application "System Events"
        tell process "Messages"
            tell window 1
                repeat's maxNum times --需要删除的数量
                    
                    delay 0.5 
                    click row 1 of table 1 of scroll area 1 of splitter group 1
                    delay 0.2
                    click menu item "删除对话…" of menu "文件" of menu bar item "文件" of menu bar 1 of application process "Messages" of application "System Events"
                    delay 0.2
                    try
                        click buttons "删除" of sheet 1
                    end try
                end repeat
            end tell
        end tell
    end tell
end deleteMsg


-- 拼接表情
on AppendFace(msgText)
    set face to my RandomFace()
    set content to face & msgText & "
"
end AppendFace


-- 随机表情
on RandomFace()
    -- 表情数组
    set faceList to {"🐟", "🦐", "🦀️", "😊", "😂", "😄", "🎆", "🎉", "🍺", "💐", "🌹", "🦈", "🐲", "🐢", "🐳", "🐬", "🐚", "💰", "🎁"}
    set face to item (random number from 1 to count faceList) of faceList
    return face
end RandomFace


-- 判断是否已经发送过该手机号
--     the_phone(手机号码)
on isSendPhone(the_phone)
    set num to the length of the_phone
    if (num = 11) then
        set fileName to date string of (current date)
        set logFilePath to my current_folder_path() & "send/" & fileName & ".txt"
        set this_file to (POSIX file logFilePath as string)
        set this_story to the_phone & "
"
        try
            set fp to open for access this_file
            set myText to read fp
            
            if (myText does not contain the_phone) then
                return false
            else
                return true
            end if
        on error
            return false
        end try
    end if
end isSendPhone


-- 记录有效手机号
--     the_phone(手机号)
on WritePhone(the_phone)
    set num to the length of the_phone
    if (num = 11) then
        set fileName to date string of (current date)
        set logFilePath to my current_folder_path() & "send/" & fileName & ".txt"
        set this_file to (POSIX file logFilePath as string)
        set this_story to the_phone & "
"
        try
            set fp to open for access this_file
            set myText to read fp
            
            if (myText does not contain the_phone) then
                my write_to_file(this_story, this_file, true, true)
            end if
        on error
            my write_to_file(this_story, this_file, true, true)
        end try
    end if
end WritePhone


-- 日志写入
--     the_text(日志内容)
on WriteLog(the_text)
    set fileName to date string of (current date)
    set logFilePath to my current_folder_path() & "log/" & fileName & ".txt"
    set this_file to (POSIX file logFilePath as string)
    my write_to_file(the_text, this_file, true, false)
end WriteLog


-- 写入文件
--    this_data(文本内容，string)
--    target_file(文件路径，string)
--    append_data(是否拼接，boolean)
--    append_end(是否从后面拼接，boolean)
on write_to_file(this_data, target_file, append_data, append_end)
    try
        set the target_file to the target_file as text
        set the open_target_file to ¬
            open for access file target_file with write permission
        
        if append_data is false then
            set eof of the open_target_file to 0
            write this_data to the open_target_file starting at eof
        else if append_end is false then
            -- 1、读取原来内容；
            -- 2、清空文件，写入新内容；
            -- 3、在新内容后面拼接原始内容
            try
                set fp to open for access target_file
                set myText to read fp
                set eof of the open_target_file to 0
                write this_data to the open_target_file starting at eof
                write myText to the open_target_file starting at eof
            on error
                write this_data to the open_target_file starting at eof
            end try
        else
            write this_data to the open_target_file starting at eof
        end if
        
        close access the open_target_file
        return target_file
    on error
        try
            close access file target_file
        end try
        return false
    end try
end write_to_file


-- 获取当前文件的父文件夹路径
on current_folder_path()
    set UnixPath to POSIX path of ((path to me as text) & "::")
    return UnixPath
end current_folder_path

2.全自动imessage蓝号检测系统(检测过蓝的数据后,自动保存过篮的数据到txt文本,使用过滤好的数据发送,效率大大提高)

3.单台windows系统电脑虚拟无数台苹果系统,自动登陆ID,全天自动群发(发送的内容可以是三种模式：1.纯文字，2.纯图片，3.文字+图片组合)

4.群控系统,机房首选系统,后台导入五码,数据,设置发信内容;自动换ID,序列号,发送完毕显示发送结果统计.(发送的内容可以是三种模式：1.纯文字，2.纯图片，3.文字+图片组合)

三、AMD或者英特尔架构的电脑上安装的黑苹果系统(Mac os)或Vmware下的黑苹果系统imessages群发短信注意事项:
1.黑苹果Mac Os系统注入三码或五码，App Store  iMessages 和FaceTime 可用
/* 如果登陆app store过程一直在转圈的情况,或imessages一直无法激活的原因是：app store 会检查机器的smbios 信息，如果不是 mac 机器，就不让登录。*/
(1) Clover configurator 或OpenCore制作引导EFI文件后。正确的注入三码或五码。(黑苹果正确的注入了三码或五码,三码或五码不能胡乱套用，必须和机型ID匹配)
(2) 登录“偏好设置-icloud”  或直接登录imessages时正确输入app id账号信息。
(3)记录良好的 Apple ID：App Store 和 iMessage 没有黑历史；账号注册及使用时间越长越好；账号下绑定了多个苹果设备并且有 App Store 的消费记录就更好了。有了这种 Apple ID，三码问题和各类苹果服务不能用的情况基本不会在你这里出现。

2.黑苹果洗白苹果后全自动群发方案(Imessages数据检测脚本，全自动群发imessages脚本)
(1)苹果手机自动群发imessages、批量群控手机设备群发，部署方案以及苹果手机群发脚本或APP可参考博文：http://www.opsers.net/archives/201.html
(2)对于苹果系统发送多少被限制，被风控, APP ID被冻，设备串码（序列号，设备串码等）被apple拉黑，无法发送及送达,通过指定的工具正确的将三码或五码注入到系统来解封ID被封或无法发送等问题，有偿提供解决方案。
(3)电脑端Mac Os黑苹果洗白苹果后群发Imessages，全自动检测数据脚本，全自动群发脚本，新老ID皆可激活使用imessages，PC端全套无限群发imessages系统。