posters-shared-functions/APIs-Shared-Functions.ahk

;---FUNCTIONS-----------------------------------------------------------------------
; Misc Functions that are called by both the Video and Social Media poster



; -------------------------------Discord-------------------------------
PostToDiscordChannel(Message,WebhookChannel){
    ; Msgbox % "Message: " Message
    ; Msgbox % "WebhookChannel: " WebhookChannel

    ; Replace all the json forbidden characters
    SingleQuote = "
    ReplacedQuote = \"

    Message := StrReplace(Message, "\", "\\") ; Replace Tabs
    Message := StrReplace(Message, SingleQuote, ReplacedQuote) ; Replace single quote 
    Message := StrReplace(Message, "`r", "") ; Replace Carriage return
    Message := StrReplace(Message, A_Tab, "\t") ; Replace Tabs
    Message := StrReplace(Message, "`n", "\n") ; Escape New Line Character 
    Message := StrReplace(Message, "`f", "\f") ; Replace Tabs


    ; Convert into json string
    JsonString=
    (
    {
      "content": "%Message%"
  }
  )

    ; Msgbox % "JsonString: " JsonString
    ; 
    try WebRequest := ComObjCreate("WinHttp.WinHttpRequest.5.1")
    try WebRequest.Open("POST", WebhookChannel, false)
    try WebRequest.SetRequestHeader("Content-Type", "application/json")
    try WebRequest.Send(JsonString)  
}


; -------------------------------/Discord-------------------------------



; -------------------------------TelegramAPI-------------------------------
TelegramMsgBox(Text:="", TelegramBotToken := "", TelegramBotChatID :=""){
    ; Send Images: 
    ; https://www.autohotkey.com/boards/viewtopic.php?f=76&t=68417&p=294332#p294332

    ; Msgbox % "Text: " Text


    ; Replace all forbidden characters - https://www.ascii-code.com/
    ; Text := StrReplace(Text, "`%", "%25") ; percent with 
    Text := StrReplace(Text, "`n", "%0A") ; New Line
    ; Text := StrReplace(Text, "`n", "%0A") ; New Line

    ; Text := StrReplace(Text, " ", "%23") ; New Line
    ; Text := 
    ; Text := StrReplace(Text, "`n", "%0A") ; New Line

    ; Msgbox % "Text: " Text

    ErrorLoggingPath = %A_ScriptDir%\Lib\ErrorLogging\check.rups

    loop 3
    {
        UrlDownloadToFile https://api.telegram.org/bot%TelegramBotToken%/sendmessage?chat_id=%TelegramBotChatID%&text=%Text%, %ErrorLoggingPath%
        sleep 1000
        ifexist %ErrorLoggingPath%
        {
            break
        }
        if A_index = 3
        {
            Message = Post failed due to API Issue. 
            SaveOrPostProgress(Message:=Message,PostType:="Tooltip,ErrorLoggingTextFile,ErrorSummaryVar,DiscordErrorLogging")
            Return "Failed"
            ; MsgBox, 16,, something went wrong with sending
        }
    }
    FileRead, TelegramOutput, %ErrorLoggingPath%
    TelegramOutput := "API Result: " . TelegramOutput
    ; Msgbox % "TelegramOutput: " TelegramOutput
    filedelete %ErrorLoggingPath%
    SaveOrPostProgress(Message:=TelegramOutput,PostType:="ErrorLoggingTextFile")

    if(InStr(TelegramOutput, "error_code")){
        Return "Failed"
    }

}

; -------------------------------/TelegramAPI-------------------------------

; Telegram Message API
;------------------------------------------------
SendTelegramMessage(token, chatID, text := "", ParseMode := "MarkdownV2")       ; you could add more options; compare the Telegram API docs
{
    ; ParseMode := "MarkdownV2"
    ; msgbox
    ; Msgbox % "text: " text
    url_str := "https://api.telegram.org/bot" token "/sendMessage"
    objParam := { "chat_id" : chatID                                                                              
    ,"parse_mode" : ParseMode
    ,"text" : text }

    CreateFormData(postData, hdr_ContentType, objParam)
    whr := ComObjCreate("WinHttp.WinHttpRequest.5.1")
    whr.Open("POST", url_str, true)
    whr.SetRequestHeader("Content-Type", hdr_ContentType)
    ; whr.SetRequestHeader("User-Agent", "Mozilla/5.0 (Windows NT 6.1; WOW64; Trident/7.0; rv:11.0) like Gecko")                ; ???????
    whr.Option(6) := False ; No auto redirect
    whr.Send(postData)
    whr.WaitForResponse()
    json_resp := whr.ResponseText
    whr :=                                              ; free COM object
    ; Msgbox % "json_resp: " json_resp
    if(InStr(json_resp, "error_code"))
    Return json_resp
}

/*

*bold \*text*
_italic \*text_
__underline__
~strikethrough~
*bold _italic bold ~italic bold strikethrough~ __underline italic bold___ bold*
[inline URL](http://www.example.com/)
[inline mention of a user](tg://user?id=123456789)
`inline fixed-width code`
```
pre-formatted fixed-width code block
```
```python
pre-formatted fixed-width code block written in the Python programming language
```

*/



; -------------------------------Telegram Image Sending-------------------------------
; https://www.autohotkey.com/boards/viewtopic.php?t=68417
SendTelegramPhoto(token, chatID, file, caption := "", ParseMode := "MarkdownV2")       ; you could add more options; compare the Telegram API docs
{

    ; ParseMode := "MarkdownV2"
    url_str := "https://api.telegram.org/bot" token "/sendPhoto" 
    objParam := {       "chat_id" : chatID                                                                              
    ,   "photo" : [file]  
    ,   "parse_mode" : ParseMode 
    , "caption" : caption}

    CreateFormData(postData, hdr_ContentType, objParam)
    whr := ComObjCreate("WinHttp.WinHttpRequest.5.1")
    whr.Open("POST", url_str, true)
    whr.SetRequestHeader("Content-Type", hdr_ContentType)
    ; whr.SetRequestHeader("User-Agent", "Mozilla/5.0 (Windows NT 6.1; WOW64; Trident/7.0; rv:11.0) like Gecko")                ; ???????
    whr.Option(6) := False ; No auto redirect
    whr.Send(postData)
    whr.WaitForResponse()
    json_resp := whr.ResponseText
    whr :=                                              ; free COM object
    ; Msgbox % "json_resp: " json_resp

    if(InStr(json_resp, "error_code"))
    Return json_resp
}


; -------------------------------Telegram Image Sending-------------------------------
; https://www.autohotkey.com/boards/viewtopic.php?t=68417
SendTelegramVideo(token, chatID, file, caption := "", ParseMode := "MarkdownV2")       ; you could add more options; compare the Telegram API docs
{

    ; ParseMode := "MarkdownV2"
    url_str := "https://api.telegram.org/bot" token "/sendVideo?caption=" caption
    objParam := {       "chat_id" : chatID                                                                              
    ,   "video" : [file]  
    ,   "parse_mode" : ParseMode }

    CreateFormData(postData, hdr_ContentType, objParam)
    whr := ComObjCreate("WinHttp.WinHttpRequest.5.1")
    whr.Open("POST", url_str, true)
    whr.SetRequestHeader("Content-Type", hdr_ContentType)
    ; whr.SetRequestHeader("User-Agent", "Mozilla/5.0 (Windows NT 6.1; WOW64; Trident/7.0; rv:11.0) like Gecko")                ; ???????
    whr.Option(6) := False ; No auto redirect
    whr.Send(postData)
    whr.WaitForResponse()
    json_resp := whr.ResponseText
    whr :=                                              ; free COM object
    ; Msgbox % "json_resp: " json_resp

    if(InStr(json_resp, "error_code"))
    Return json_resp
}



; -------------------------------Telegram File Sending-------------------------------
; https://www.autohotkey.com/boards/viewtopic.php?t=68417
SendTelegramFile(token, chatID, file, caption := "", ParseMode := "MarkdownV2")       ; you could add more options; compare the Telegram API docs
{

    ; ParseMode := "MarkdownV2"
    url_str := "https://api.telegram.org/bot" token "/sendDocument?caption=" caption
    objParam := {       "chat_id" : chatID                                                                              
    ,   "document" : [file]  
    ,   "parse_mode" : ParseMode }

    CreateFormData(postData, hdr_ContentType, objParam)
    whr := ComObjCreate("WinHttp.WinHttpRequest.5.1")
    whr.Open("POST", url_str, true)
    whr.SetRequestHeader("Content-Type", hdr_ContentType)
    ; whr.SetRequestHeader("User-Agent", "Mozilla/5.0 (Windows NT 6.1; WOW64; Trident/7.0; rv:11.0) like Gecko")                ; ???????
    whr.Option(6) := False ; No auto redirect
    whr.Send(postData)
    whr.WaitForResponse()
    json_resp := whr.ResponseText
    whr :=                                              ; free COM object
    ; Msgbox % "json_resp: " json_resp

    if(InStr(json_resp, "error_code"))
    Return json_resp
}






; -------------------------------/Telegram API Image Sending-------------------------------


ASCIISTRReplace(Message){
    ; Msgbox % "Message of function: " Message
    ; https://tech.saigonist.com/b/code/escaping-special-characters-markdown.html
    ; Replace all forbidden characters - https://www.ascii-code.com/

    LineBreakChar = `%0A ; Used for API

    ; @ todo: replace with regex
    Message := StrReplace(Message, "\", "\\") ; replace all new line characters with the global charater
    Message := StrReplace(Message, "*", "\*") ; replace all new line characters with the global charater
    ; Message := StrReplace(Message, "`n", LineBreakChar) ; replace all new line characters with the global charater
    Message := StrReplace(Message, "!", "\!") ; replace all new line characters with the global charater
    Message := StrReplace(Message, "_", "\_") ; replace all new line characters with the global charater
    Message := StrReplace(Message, "{", "\{") ; replace all new line characters with the global charater
    Message := StrReplace(Message, "}", "\}") ; replace all new line characters with the global charater
    Message := StrReplace(Message, "[", "\[") ; replace all new line characters with the global charater
    Message := StrReplace(Message, "]", "\]") ; replace all new line characters with the global charater
    Message := StrReplace(Message, "(", "\(") ; replace all new line characters with the global charater
    Message := StrReplace(Message, ")", "\)") ; replace all new line characters with the global charater
    Message := StrReplace(Message, "#", "\#") ; replace all new line characters with the global charater
    Message := StrReplace(Message, "+", "\+") ; replace all new line characters with the global charater
    Message := StrReplace(Message, "-", "\-") ; replace all new line characters with the global charater
    Message := StrReplace(Message, ".", "\.") ; replace all new line characters with the global charater
    Message := StrReplace(Message, ">", "\>") ; replace all new line characters with the global charater
    Message := StrReplace(Message, "<", "\<") ; replace all new line characters with the global charater
    Message := StrReplace(Message, "=", "\=") ; replace all new line characters with the global charater
    Message := StrReplace(Message, "|", "\|") ; replace all new line characters with the global charater
    Message := StrReplace(Message, "~", "\~") ; replace all new line characters with the global charater
    Message := StrReplace(Message, "`", "\`") ; replace all new line characters with the global charater
    Message := StrReplace(Message, "$", "\$") ; replace all new line characters with the global charater
    ; Message := StrReplace(Message, "%", "\%") ; replace all new line characters with the global charater
    Message := StrReplace(Message, "&", "\&") ; replace all new line characters with the global charater

    ; Msgbox % "replaced Message: " Message


    Return Message
}



; -------------------------------Discord Images-------------------------------
UploadImageToDiscord(Webhook, Message:="", Filepath:=""){

    filepath := [Filepath] ; Create object
    
    objParam := {file: filepath, content: Message}
    CreateFormData(PostData, hdr_ContentType, objParam)

    HTTP := ComObjCreate("WinHTTP.WinHTTPRequest.5.1")
    HTTP.Open("POST", Webhook, true)
    HTTP.SetRequestHeader("User-Agent", "Mozilla/5.0 (Windows NT 6.1; WOW64; Trident/7.0; rv:11.0) like Gecko")
    HTTP.SetRequestHeader("Content-Type", hdr_ContentType)
    HTTP.SetRequestHeader("Pragma", "no-cache")
    HTTP.SetRequestHeader("Cache-Control", "no-cache, no-store")
    HTTP.SetRequestHeader("If-Modified-Since", "Sat, 1 Jan 2000 00:00:00 GMT")
    HTTP.Send(PostData)
    HTTP.WaitForResponse()
    ; msgbox % HTTP.ResponseText
    return HTTP.ResponseText
}
; -------------------------------/Discord Images-------------------------------


;---------------------------Discord Messages---------------------
UploadMessageToDiscord(Webhook, Message:=""){

    ; filepath := [Filepath] ; Create object

    objParam := {file: filepath, content: Message}
    CreateFormData(PostData, hdr_ContentType, objParam)

    HTTP := ComObjCreate("WinHTTP.WinHTTPRequest.5.1")
    HTTP.Open("POST", Webhook, true)
    HTTP.SetRequestHeader("User-Agent", "Mozilla/5.0 (Windows NT 6.1; WOW64; Trident/7.0; rv:11.0) like Gecko")
    HTTP.SetRequestHeader("Content-Type", hdr_ContentType)
    HTTP.SetRequestHeader("Pragma", "no-cache")
    HTTP.SetRequestHeader("Cache-Control", "no-cache, no-store")
    HTTP.SetRequestHeader("If-Modified-Since", "Sat, 1 Jan 2000 00:00:00 GMT")
    HTTP.Send(PostData)
    HTTP.WaitForResponse()
    ; msgbox % HTTP.ResponseText
    return HTTP.ResponseText
}




;---------------------------/Discord Messages---------------------







; -------------------------------CreateFormData - Creates "multipart/form-data" for http post-------------------------------

; Used for WinHttp.WinHttpRequest.5.1, Msxml2.XMLHTTP ...
CreateFormData(ByRef retData, ByRef retHeader, objParam) {
    New CreateFormData(retData, retHeader, objParam)
}

; Used for WinInet
CreateFormData_WinInet(ByRef retData, ByRef retHeader, objParam) {
    New CreateFormData(safeArr, retHeader, objParam)

    size := safeArr.MaxIndex() + 1
    VarSetCapacity(retData, size, 1)
    DllCall("oleaut32\SafeArrayAccessData", "ptr", ComObjValue(safeArr), "ptr*", pdata)
    DllCall("RtlMoveMemory", "ptr", &retData, "ptr", pdata, "ptr", size)
    DllCall("oleaut32\SafeArrayUnaccessData", "ptr", ComObjValue(safeArr))
}

Class CreateFormData {

    __New(ByRef retData, ByRef retHeader, objParam) {

        CRLF := "`r`n"

        Boundary := this.RandomBoundary()
        BoundaryLine := "------------------------------" . Boundary

        ; Loop input paramters
        binArrs := []
        For k, v in objParam
        {
            If IsObject(v) {
                For i, FileName in v
                {
                    str := BoundaryLine . CRLF
                    . "Content-Disposition: form-data; name=""" . k . """; filename=""" . FileName . """" . CRLF
                    . "Content-Type: " . this.MimeType(FileName) . CRLF . CRLF
                    binArrs.Push( BinArr_FromString(str) )
                    binArrs.Push( BinArr_FromFile(FileName) )
                    binArrs.Push( BinArr_FromString(CRLF) )
                }
            } 
            Else {
                str := BoundaryLine . CRLF
                . "Content-Disposition: form-data; name=""" . k """" . CRLF . CRLF
                . v . CRLF
                binArrs.Push( BinArr_FromString(str) )
            }
        }

        str := BoundaryLine . "--" . CRLF
        binArrs.Push( BinArr_FromString(str) )

        retData := BinArr_Join(binArrs*)
        retHeader := "multipart/form-data; boundary=----------------------------" . Boundary
    }

    RandomBoundary() {
        str := "0|1|2|3|4|5|6|7|8|9|a|b|c|d|e|f|g|h|i|j|k|l|m|n|o|p|q|r|s|t|u|v|w|x|y|z"
        Sort, str, D| Random
        str := StrReplace(str, "|")
        Return SubStr(str, 1, 12)
    }

    MimeType(FileName) {
        n := FileOpen(FileName, "r").ReadUInt()
        Return (n        = 0x474E5089) ? "image/png"
        : (n        = 0x38464947) ? "image/gif"
        : (n&0xFFFF = 0x4D42    ) ? "image/bmp"
        : (n&0xFFFF = 0xD8FF    ) ? "image/jpeg"
        : (n&0xFFFF = 0x4949    ) ? "image/tiff"
        : (n&0xFFFF = 0x4D4D    ) ? "image/tiff"
        : "application/octet-stream"
    }

}
;#############################################################################################################
; Update: 2015-6-4 - Added BinArr_ToFile()

BinArr_FromString(str) {
    oADO := ComObjCreate("ADODB.Stream")

    oADO.Type := 2 ; adTypeText
    oADO.Mode := 3 ; adModeReadWrite
    oADO.Open
    oADO.Charset := "UTF-8"
    oADO.WriteText(str)

    oADO.Position := 0
    oADO.Type := 1 ; adTypeBinary
    oADO.Position := 3 ; Skip UTF-8 BOM
    return oADO.Read, oADO.Close
}

BinArr_FromFile(FileName) {
    oADO := ComObjCreate("ADODB.Stream")

    oADO.Type := 1 ; adTypeBinary
    oADO.Open
    oADO.LoadFromFile(FileName)
    return oADO.Read, oADO.Close
}

BinArr_Join(Arrays*) {
    oADO := ComObjCreate("ADODB.Stream")

    oADO.Type := 1 ; adTypeBinary
    oADO.Mode := 3 ; adModeReadWrite
    oADO.Open
    For i, arr in Arrays
    oADO.Write(arr)
    oADO.Position := 0
    return oADO.Read, oADO.Close
}

BinArr_ToString(BinArr, Encoding := "UTF-8") {
    oADO := ComObjCreate("ADODB.Stream")

    oADO.Type := 1 ; adTypeBinary
    oADO.Mode := 3 ; adModeReadWrite
    oADO.Open
    oADO.Write(BinArr)

    oADO.Position := 0
    oADO.Type := 2 ; adTypeText
    oADO.Charset  := Encoding 
    return oADO.ReadText, oADO.Close
}

BinArr_ToFile(BinArr, FileName) {
    oADO := ComObjCreate("ADODB.Stream")

    oADO.Type := 1 ; adTypeBinary
    oADO.Open
    oADO.Write(BinArr)
    oADO.SaveToFile(FileName, 2)
    oADO.Close
}
; -------------------------------/CreateFormData - Creates "multipart/form-data" for http post-------------------------------