AutoHotkey Community

SendMode Input
RegRead, OutputVar, HKEY_CLASSES_ROOT, http\shell\open\command
StringReplace, OutputVar, OutputVar,"
SplitPath, OutputVar,,OutDir,,OutNameNoExt, OutDrive
browser=%OutDir%\%OutNameNoExt%.exe

^g::
{
   BlockInput, on
   prevClipboard = %clipboard%
   clipboard =
   Send, ^c
   BlockInput, off
   ClipWait, 2
   if ErrorLevel = 0
   {
      searchQuery=%clipboard%
      GoSub, GoogleSearch
   }
   clipboard = %prevClipboard%
   return
}

GoogleSearch:
   StringReplace, searchQuery, searchQuery, `r`n, %A_Space%, All
   Loop
   {
      noExtraSpaces=1
      StringLeft, leftMost, searchQuery, 1
      IfInString, leftMost, %A_Space%
      {
         StringTrimLeft, searchQuery, searchQuery, 1
         noExtraSpaces=0
      }
      StringRight, rightMost, searchQuery, 1
      IfInString, rightMost, %A_Space%
      {
         StringTrimRight, searchQuery, searchQuery, 1
         noExtraSpaces=0
      }
      If (noExtraSpaces=1)
         break
   }
   StringReplace, searchQuery, searchQuery, \, `%5C, All
   StringReplace, searchQuery, searchQuery, %A_Space%, +, All
   StringReplace, searchQuery, searchQuery, `%, `%25, All
   IfInString, searchQuery, .
   {
      IfInString, searchQuery, +
         Run, %browser% http://www.google.com/search?hl=en&q=%searchQuery%
      else
         Run, %browser% %searchQuery%
   }
   else
      Run, %browser% http://www.google.com/search?hl=en&q=%searchQuery%
return

^g:: ; GoogleSearch or Show Link with CTRL+G
  prevClipboard := ClipboardAll
  SendInput, ^c
  ClipWait, 1
  if !(ErrorLevel)  {
    Clipboard := RegExReplace(RegExReplace(Clipboard, "\r?\n"," "), "(^\s+|\s+$)")
    If SubStr(ClipBoard,1,7)="http://"
      Run, % Clipboard
    else
      Run, % "http://www.google.com/search?hl=en&q=" Clipboard
  }
  Clipboard := prevClipboard
return

; ----------------------------------------------
;### Search Google for selection, or open URL ###
#space::
;Copy Clipboard to prevClipboard variable, clear Clipboard.
  prevClipboard := ClipboardAll
  Clipboard =
;Copy current selection, continue if no errors.
  SendInput, ^c
  ClipWait, 2
  if !(ErrorLevel) {
;Convert Clipboard to text, auto-trim leading and trailing spaces and tabs.
    Clipboard = %Clipboard%
;Clean Clipboard: change carriage returns to spaces, change >=1 consecutive spaces to +
    Clipboard := RegExReplace(RegExReplace(Clipboard, "\r?\n"," "), "\s+","+")
;Open URLs, Google non-URLs. URLs contain . but do not contain + or .. or @
    if Clipboard contains +,..,@
      Run, %browser% www.google.com/search?q=%Clipboard%
    else if Clipboard not contains .
      Run, %browser% www.google.com/search?q=%Clipboard%
    else
      Run, %browser% %Clipboard%
  }
;Restore Clipboard, clear prevClipboard variable.
  Clipboard := prevClipboard
  prevClipboard =
return

Clipboard := RegExReplace(RegExReplace(Clipboard, "\r?\n"," "), "(^\s+|\s+$)")

; IE AutoOpen Hotkeys
#w::IEAutoOpen("URL","")  ; WinKey+w            ;;AutoOpen Link
#g::IEAutoOpen("Google","www.google.com/search?q=")  ; WinKey+g   ;;AutoOpen Google and Search
#p::IEAutoOpen("Yahoo profiles","profiles.yahoo.com/")  ; WinKey+p   ;;AutoOpen Yahoo Profiles Link
#u::IEAutoOpen("Free Dictionary search","http://www.thefreedictionary.com/")  ; Win+u   ;;AutoOpen Free Dictionary

IEAutoOpen(Desc,URL)      ; v1.0.2, 09/18/07
{
  ClipSaved := ClipboardAll   ; Save the entire clipboard to a variable of your choice.
  Clipboard = %Clipboard%
  TextClip = %Clipboard% 
  Clipboard =
  Send, ^c
  ClipWait, 1
  IEClip = %Clipboard%
  Clipboard = %TextClip%
  InputBox, URLString, %Desc%, Please enter the %Desc% string to be opened in IE:, , , , , , , , %IEClip%
  If (GetKeyState("Control")) And (URL = "")   ; Suggested by Lexikos
    URLString = www.%URLString%.com      ; Suggested by Lexikos
  Clipboard := ClipSaved   ; Restore the original clipboard. Note the use of Clipboard (not ClipboardAll).
  ClipSaved =         ; Free the memory in case the clipboard was very large.
  If ErrorLevel <> 0
    Return
  Run, iexplore.exe %URL%%URLString%
}

#singleInstance Force
SetTitleMatchMode, 2
SendMode Input

^g::
{
   BlockInput, on
   prevClipboard = %clipboard%
   clipboard =
   Sleep, 50
   Send, ^c
   BlockInput, off
   ClipWait, 2
   if ErrorLevel = 0
   {
      searchQuery=%clipboard%
      GoSub, GoogleSearch
   }
   clipboard = %prevClipboard%
   return
}

GoogleSearch:
   StringReplace, searchQuery, searchQuery, `r`n, %A_Space%, All
   Loop
   {
      noExtraSpaces=1
      StringLeft, leftMost, searchQuery, 1
      IfInString, leftMost, %A_Space%
      {
         StringTrimLeft, searchQuery, searchQuery, 1
         noExtraSpaces=0
      }
      StringRight, rightMost, searchQuery, 1
      IfInString, rightMost, %A_Space%
      {
         StringTrimRight, searchQuery, searchQuery, 1
         noExtraSpaces=0
      }
      If (noExtraSpaces=1)
         break
   }
   ;StringReplace, searchQuery, searchQuery, \, `%5C, All
   StringReplace, searchQuery, searchQuery, %A_Space%, +, All
   StringReplace, searchQuery, searchQuery, `%, `%25, All
   IfInString, searchQuery, .
   {
      IfInString, searchQuery, +
         Search := "http://www.google.com/search?hl=en&q=" . searchQuery
      else
         Search := searchQuery
   }
   else
      Search := "http://www.google.com/search?hl=en&q=" . searchQuery
   COM_CoInitialize()
   If Not   pweb := GetWebBrowser()
      Run, %Search%
   Else
   COM_Invoke(pweb, "Navigate", search)
   COM_Release(pweb)
   COM_CoUninitialize()
   WinActivate, Windows Internet Explorer
return

GetWebBrowser()
{
   ControlGet, hIESvr, hWnd, , Internet Explorer_Server1, ahk_class IEFrame
   If Not   hIESvr
      Return
   DllCall("SendMessageTimeout", "Uint", hIESvr, "Uint", DllCall("RegisterWindowMessage", "str", "WM_HTML_GETOBJECT"), "Uint", 0, "Uint", 0, "Uint", 2, "Uint", 1000, "UintP", lResult)
   DllCall("oleacc\ObjectFromLresult", "Uint", lResult, "Uint", COM_GUID4String(IID_IHTMLDocument2,"{332C4425-26CB-11D0-B483-00C04FD90119}"), "int", 0, "UintP", pdoc)
   IID_IWebBrowserApp := "{0002DF05-0000-0000-C000-000000000046}"
   pweb := COM_QueryService(pdoc,IID_IWebBrowserApp,IID_IWebBrowserApp)
   COM_Release(pdoc)
   Return   pweb
}