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
            set isEmail to true
            if ((num > 0 and (my isSendPhone(phone)) = false) or isEmail) then
                try
                    send msgText to theBuddy
                    set logText to phone & " *** " & "1" & " *** " & date string of (current date) & " " & time string of (current date) & " *** " & "發送成功
"
                    ---延時，不然取不到已發送的狀態
                    delay (random number from 1 to 3)
                    set chatNum to (get count of chat)
                    if (chatNum >100)  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
 
 
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
 
 
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
 
 
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
 
 
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
            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