global activation_key := "Hello, myrusakov.ru!" ; ключ активации программы из пастбина писать свой нужно
global api_paste_key := "0JeNRG3D" ; свой api_paste_key из пастбина http://pastebin.com/0JeNRG3D

try {
  api_dev_key := "VwoHZ8NzHOg" ; свой api_dev_key: https://pastebin.com/doc_api
   api_user_key := "502d5b81c68ac20ab7" ; свой api_user_key
     api_option := "show_paste"

    show_paste_raw := "api_dev_key=" . api_dev_key . "&api_user_key=" . api_user_key . "&api_paste_key=" . api_paste_key . "&api_option=" . api_option

   url := "https://pastebin.com/api/api_raw.php"

   HttpObj := ComObjCreate("WinHttp.WinHttpRequest.5.1")
    HttpObj.Open("POST", url, True)
     HttpObj.SetRequestHeader("Content-Type", "application/x-www-form-urlencoded") ; есть еще вариант с utf-8 HttpObj.SetRequestHeader("Content-Type", "application/x-www-form-urlencoded;charset=utf-8")
  HttpObj.Send(show_paste_raw)
    HttpObj.WaitForResponse()
    Body := HttpObj.ResponseBody
     pData := NumGet(ComObjValue(Body)+8+A_PtrSize)
    ResponseText := StrGet(pData, Body.MaxIndex() + 1, "utf-8")
     If (ResponseText != activation_key)
   ; может нужно использовать InStr() надежней может будет работать
   ; if ResponseText not in %activation_key%
     {
    ; msgbox Ключ активации программы истек...
    msgbox Окончен период пробного использования ПО! Если хотите дальше использовать данное ПО, приобретите ключ активации у поставщика программы на сайте https://

       ExitApp
     }
     ; }
}
catch e {
    msgbox Не удается установить доступ к сети интернет...
    ExitApp
}

Whr := ComObjCreate("WinHttp.WinHttpRequest.5.1")
Whr.Open("GET", "https://pastebin.com/raw/ExvZbiDY", false)
Whr.Send()
MsgBox, % Whr.ResponseText