AutoHotkey Community

; Run a Google search on any words he had highlighted (if any),  script can handle text in any app

; It has some smart analyzation of the highlighted string and can differentiate between a URL
; and just something you'd like to search for (a search query will have a Google Search run on it, in a new window,
; while a URL will be opened in a new window).


SendMode Input
RegRead, OutputVar, HKEY_CLASSES_ROOT, Applications\iexplore.exe\shell\open\command   ; C:\ProgramFiles\Internet Explorer\IEXPLORE.EXE
StringReplace, OutputVar, OutputVar,"
SplitPath, OutputVar,,OutDir,,OutNameNoExt, OutDrive
browser=%OutDir%\%OutNameNoExt%.exe


Menu, Tray, Add
Menu, Tray, add, MinimizeAllWindows
Menu, Tray, add, CloseAllWindows
Menu, Tray, Add, &Reload, ReloadScript
Menu, Tray, Add, Exit, Quit



^!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, +, `%2B, 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



MinimizeAllWindows:
WinMinimizeAll
return

CloseAllWindows:
WinGet, id, list, , , Program Manager
Loop, %id%
{
   StringTrimRight, this_id, id%a_index%, 0
   WinGetTitle, this_title, ahk_id %this_id%
   winclose,%this_title%
}
Return      

ReloadScript:
   ToolTip, Reloaded Script!, 700,600
   SetTimer, RemoveToolTip, 2000
return

RemoveToolTip:
  SetTimer, RemoveToolTip, Off
  ToolTip
  reload
Return

Quit:
    ExitApp
return

<.+?>

#Persistent

inputbox, url, , Check what website?, ,200, 130
inputbox, key, , Check for what keyword?, ,200, 130
inputbox, pos, , (N)egative or (P)ositive?, ,200, 130
inputbox, tim, , How often to check?, ,200, 130

tim:=tim*60000
settimer, check, %tim%
return

check:
UrlDownloadToFile, %url%, search.txt
FileRead, webpage, search.txt
If pos = p
{
  IfInString, webpage, %key%
  {
    msgbox, *The page now contains your term*
    exitapp
  }
}
else
{
  IfNotInString, webpage, %key%
  {
    msgbox, *The page now does not contain your term*
    exitapp
  }
}
return

webpage := RegExReplace(webpage,"<.+?>","")