AutoHotkey Community

#g::
   googleLinkStart = C:\PROGRA~1\INTERN~1\IEXPLORE.EXE http://www.google.com/search?sourceid=navclient&ie=UTF-8&oe=UTF-8&q=
   AutoTrim, On
   searchTerm = %clipboard%
   if searchTerm =
   {
      MsgBox, 48, Search Google, No text in clipboard to google., 2
      return
   }
   StringReplace, searchTerm, searchTerm, `r`n, +, all
   StringReplace, searchTerm, searchTerm, %A_SPACE%, +, all
   searchTerm = %googleLinkStart%%searchTerm%
   Run, %searchTerm%
Return

#g::
   googleLinkStart = U:\apps\Firefox-3.5.3-portable\App\Firefox\firefox.exe -new-tab

http://www.google.com/search?sourceid=navclient&ie=UTF-8&oe=UTF-8&q=
   AutoTrim, On
   searchTerm = %clipboard%
   if searchTerm =
   {
      MsgBox, 48, Search Google, No text in clipboard to google., 2
      return
   }
   StringReplace, searchTerm, searchTerm, `r`n, +, all
   StringReplace, searchTerm, searchTerm, %A_SPACE%, +, all
   searchTerm = %googleLinkStart%%searchTerm%
   Run, %searchTerm%
Return

#G::
run explorer about:tabs,,max

#g::
   AutoTrim, On
   searchTerm = %clipboard%
   If searchTerm =
   {
      MsgBox, 48, Search Internet, No text in clipboard to search., 2
      Return
   }
   C_BROWSER="C:\Program Files\Mozilla Firefox\firefox.exe" ;replace that with the browser of your choice
   linkStart=http://www.google.com/search?complete=1&hl=en&q=
   linkEnd=&btnG=Google+Search
   searchTerm := RegExReplace(searchTerm, "[\s&]+", "+")
   searchTerm = %linkStart%%searchTerm%%linkEnd%
   SetTitleMatchMode,2 ;A window's title can contain WinTitle anywhere inside it to be a match.
   ; These are the four options of windows - add your own and copy&paste accordingly
   wintitle1 := "Google - Mozilla Firefox ahk_class MozillaUIWindowClass"
   wintitle2 := "Google Search - Mozilla Firefox ahk_class MozillaUIWindowClass"
   wintitle3 := "Google - Windows Internet Explorer ahk_class IEFrame"
   wintitle4 := "Google Search - Windows Internet Explorer ahk_class IEFrame"
   Loop, 4 {
      wintitle := wintitle%a_index%
      ifWinExist, %wintitle%
      {
         SetKeyDelay, -1
         WinActivate
         BlockInput, On
         SendInput, !d
         SendRaw, %searchTerm%
         SendInput, {enter}
         BlockInput, Off
         Return
      }
   }
   Run, %C_BROWSER% "%searchTerm%"
Return

/*
Alt+h Prompts for highlighted word to search at AutoHotkey, Google, Wikipedia, Dictionary, Thesaurus             
*/

!h::
Send ^c
Send {Shift Down}
Send {Home}
Send {Shift Up}
Gui, Add, Text, x10 y10 w415 h20 Center, Search Autohotkey's site documentation or search from Google:
Gui, Add, Edit, yp+20 wp vSearch,
Gui, Add, Button, yp+30 w77 h26 gfSearch, &AutoHotkey
Gui, Add, Button, xp+85 wp hp ggSearch, &Google It!
Gui, Add, Button, xp+85 wp hp gwSearch, &Wikipedia
Gui, Add, Button, xp+85 wp hp gdSearch, &Dictionary
Gui, Add, Button, xp+85 wp hp gtSearch, &Thesaurus
Gui, Show, AutoSize Center, Quick Search
Send ^v
Return

fSearch:
Gui, Submit
Gui, Destroy
Run
, % "http://www.autohotkey.com/search/search.php?site=0&path=&result_page=search.php&query_string="
. RegExReplace(RegExReplace(Search,"#","`%23"),A_Space,"`%20")
. "&option=start&search=Search"
return

wSearch:
Gui, Submit
Gui, Destroy
Run
, % "http://en.wikipedia.org/w/index.php?title=Special%3ASearch&search="
. RegExReplace(RegExReplace(Search,"#","`%23"),A_Space,"`%20")
. "&fulltext=Search"
return

gSearch:
Gui, Submit
Gui, Destroy
Run, http://www.google.com/search?q=%Search%
return

dSearch:
Gui, Submit
Gui, Destroy
Run, http://www.merriam-webster.com/dictionary/%Search%
return

tSearch:
Gui, Submit
Gui, Destroy
Run, http://www.merriam-webster.com/thesaurus/%Search%
Return

GuiClose:
Gui, Destroy
return