pass-clipboard-to-torrent-search-engines.ahk

; ###################################################
; #  COPY ANY HIGHLIGHTED TEXT TO THE CLIPBOARD OR  #
; #  USE THE CURRENT CLIPBOARD CONTENTS AND SEARCH  #
; #  MULTIPLE TORRENT WEBSITES.                     #
; ###################################################

; Created By: SlyFox1186
; Pastebin: https://pastebin.com/u/slyfox1186

#InstallKeybdHook
#InstallMouseHook
#Persistent
#SingleInstance, Force
#WinActivateForce
#KeyHistory, 0
ListLines, Off
SetBatchLines -1
DetectHiddenText, On
DetectHiddenWindows, On
CoordMode, Mouse, Screen
SetDefaultMouseSpeed, 0
SetMouseDelay, 125
SetControlDelay, 1
SetKeyDelay, 100
SetWinDelay, 10
SetTitleMatchMode, 2
SetWorkingDir, "C:\Windows\System32"
DllCall("SetThreadDpiAwarenessContext", "ptr", -3, "ptr")

#t::
    KeyWait, LWin
    KeyWait, t

    _BROWSER := "REPLACE-THIS-WITH-BROWSER.EXE-FULL-PATH"
    ; Example: _BROWSER := "C:\Program Files\Google\Chrome Beta\Application\chrome.exe"

/*____________________________________________________________________________________
    THE BELOW COMMANDS WILL PASS ANY HIGHLIGHTED TEXT TO GOOGLE'S SEARCH ENGINE.
*/

    ClipSaved := ClipBoardAll
    Clipboard := ""
    Send, ^c
    ClipWait, .5

    If !(ErrorLevel)
    {
        Gosub, _SearchTorrents
        Return
    }
    Else
    {
        ClipBoard := ClipSaved
        Gosub, _SearchTorrents
        Return
    }
    _SearchTorrents:
        ; MODIFY THE STRING STORED IN THE CLIPBOARD VAR
        StringReplace, ClipBoard, ClipBoard, `r`n, %A_Space%, All
        StringReplace, ClipBoard, ClipBoard, %A_Space%, `%20, All
        StringReplace, ClipBoard, ClipBoard, !, `%21, All
        StringReplace, ClipBoard, ClipBoard, #, `%23, All
        StringReplace, ClipBoard, ClipBoard, $, `%24, All
        StringReplace, ClipBoard, ClipBoard, `%`%, `%25, All
        StringReplace, ClipBoard, ClipBoard, &, `%26, All
        StringReplace, ClipBoard, ClipBoard, ', `%27, All
        StringReplace, ClipBoard, ClipBoard, (, `%28, All
        StringReplace, ClipBoard, ClipBoard, ), `%29, All
        StringReplace, ClipBoard, ClipBoard, +, `%2B, All
        StringReplace, ClipBoard, ClipBoard, -, `%2D, All
        StringReplace, ClipBoard, ClipBoard, ., `%2E, All
        StringReplace, ClipBoard, ClipBoard, *, `%30, All
        StringReplace, ClipBoard, ClipBoard, :, `%3A, All
        StringReplace, ClipBoard, ClipBoard, ?, `%3F, All
        StringReplace, ClipBoard, ClipBoard, @, `%40, All
        StringReplace, ClipBoard, ClipBoard, [, `%5B, All
        StringReplace, ClipBoard, ClipBoard, ], `%5D, All
        StringReplace, ClipBoard, ClipBoard, ^, `%5E, All
        StringReplace, ClipBoard, ClipBoard, _, `%5F, All
        StringReplace, ClipBoard, ClipBoard, ``, `%60, All
        StringReplace, ClipBoard, ClipBoard, {, `%7B, All
        StringReplace, ClipBoard, ClipBoard, |, `%7C, All
        StringReplace, ClipBoard, ClipBoard, }, `%7D, All
        StringReplace, ClipBoard, ClipBoard, ~, `%7E, All
        StringReplace, ClipBoard, ClipBoard, \, /, All

; TRIM THE BEGINNING AND END OF THE STRING
ClipBoard := Trim(ClipBoard)
; OPEN 1337X.TO AND SEARCH FOR THE STRING
_URL =
( LTRIM Join`s
"http://www.limetorrents.cc/search/all/%ClipBoard%/"
"https://thepiratebay.org/search.php?q=%ClipBoard%`&all=on`&search=Pirate`+Search`&page=0`&orderby="
"https://www.torlock.com/?qq=1`&q=%ClipBoard%"
"https://www.torrentfunk2.com/all/torrents/%ClipBoard%.html"
)
Run, %_BROWSER% --new-window %_URL%,, Max, _myPID
WinWaitActive, ahk_pid %_myPID%,, 2
ClipBoard := ""
Return