Advertisement
cacw

ESV Bible API AHK

Jun 21st, 2018
269
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. #b::
  2.     Input, ref, V, {enter}{tab}
  3.     If InStr(ErrorLevel, "EndKey:")
  4.     {
  5.         url := "https://api.esv.org/v3/passage/text/?q=" . ref
  6.         url := url . "include-passage-references=false"
  7.         url := url . "&include-first-verse-numbers=false"
  8.         url := url . "&include-verse-numbers=false"
  9.         url := url . "&include-footnotes=false"
  10.         url := url . "&include-footnote-body=false"
  11.         url := url . "&include-short-copyright=false"
  12.         url := url . "&include-copyright=false"
  13.         url := url . "&include-passage-horizontal-lines=true"
  14.         url := url . "&include-headings=false"
  15.         url := url . "&include-short-copyright=true"
  16.  
  17.         oWhr := ComObjCreate("WinHttp.WinHttpRequest.5.1")
  18.         oWhr.Open("GET", url, 0)
  19.         oWhr.SetRequestHeader("Content-Type", "application/json")
  20.         oWhr.SetRequestHeader("Authorization", "Token XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX")
  21.         Body = {}
  22.         oWhr.Send(Body)
  23.  
  24.         ClipSaved := ClipboardAll ; backup clipboard
  25.         Clipboard := oWhr.ResponseText
  26.  
  27.         Send ^v
  28.  
  29.         Sleep 500
  30.         Clipboard := ClipSaved ; restore clipboard
  31.         ClipSaved = ; free memory
  32.  
  33.         Return
  34.     }
  35. Return
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement