searchgui

Menu, tray, add, Search AHK (Alt+F1), SearchAHK
return

!F1::        ;alt + F1
SearchAHK:
Gui, Add, Edit, vSearchText w180
Gui, Add, Radio, vSearchAt Checked, Forum
Gui, Add, Radio, x+6, Docs
Gui, Add, Radio, vSearchWith Checked x9 Group, DuckDuckGo
Gui, Add, Radio, x+6, Google
Gui, Add, Button, Default gSubmitSearch x9 w180, Search
Gui, Show, AutoSize, Search AHK
return

SubmitSearch:
Gui, Submit, NoHide
Gui, Destroy
StringReplace, SearchText, SearchText, `%, `%25, All           ;    %    This Replace must be first
StringReplace, SearchText, SearchText, `", `%22, All           ;    "
StringReplace, SearchText, SearchText, #, `%23, All            ;    #
StringReplace, SearchText, SearchText, &, `%26, All            ;    &
StringReplace, SearchText, SearchText, +, `%2B, All            ;    +
StringReplace, SearchText, SearchText, %A_Space%, +, All       ;        This Replace must always be below the line dirctly above it (+, `%2B)
StringReplace, SearchText, SearchText, :, `%3A, All            ;    :
StringReplace, SearchText, SearchText, `;, `%3B, All           ;    ;
StringReplace, SearchText, SearchText, =, `%3D, All            ;    =
StringReplace, SearchText, SearchText, ?, `%3F, All            ;    ?
StringReplace, SearchText, SearchText, @, `%40, All            ;    @
if (SearchWith = 1)
    SearchWith := "duckduckgo.com?"
else
    SearchWith := "encrypted.google.com/search?hl=en&"
if (SearchAt = 1)    ;Forum
    Run    %    "https://" SearchWith "q=site%3Aautohotkey.com+" SearchText
else                ;Docs
    Run    %    "https://" SearchWith "q=site%3Al.autohotkey.net+" SearchText
return

GuiClose:
Gui, Destroy
return