AutoHotkey Community

Gui, Color, 000000
gui,add,text,cRed,Quick Google
Gui, +LastFound +ToolWindow
WinSet, Transparent, 200
WinSet, Region, 5-5 W460 H60 R10-10
Gui, -Caption
Gui, Font, S22 Default Cblack, EuroseWide Heavy
Gui, Add, Edit, x10 y20 w450 h40
Gui, Add, Button, w0 h0 Default, &Open
;Gui, Show, yCenter xCenter W472 H70,Googlewin
GuiActive=0
Menu,Tray,NoStandard
Menu,Tray,DeleteAll
Menu,Tray,Add,E&xit,CleanUp
Menu,Tray,Default
Return

~RCTRL::
   if GuiActive
      GoSub, GuiEscape2
   else
   {

   
      Gui, Show, yCenter xCenter W472 H70, Googlewin
               
      GuiActive = 1
               
      FadeIn(200, "Googlewin")
      KeyWait, RCTRL
   }   
Return

ButtonOpen:
ControlGetText, search, Edit1,Googlewin
StringLeft, www, search, 3
if (www=="www")
{
run %search%
GoSub, GuiEscape2
}
else if (search=="")
{
}
else
{
google = http://www.google.com/search?q=%search%
run %google%
GoSub, GuiEscape2
}




FadeIn(GUI_TRANS, WinName)
{
   transL := 0
   Loop, 20
   {
      transL += GUI_TRANS//20
      WinSet, Transparent, %transL%, %WinName%
      Sleep, 10
      GuiActive=0;
   }
}
FadeOut(GUI_TRANS, WinName)
{
   transL := GUI_TRANS
   Loop, 20
   {
      transL -= GUI_TRANS//20
      WinSet, Transparent, %transL%, %WinName%
      Sleep, 10
   }
}


         
Return

GuiEscape2:
   
   GuiActive = 0
   FadeOut(GUI_TRANS, "Googlewin")
   ControlSetText, Edit1, ,Googlewin
   Gui, Hide
Return

CleanUp:
ExitApp

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

#IfWinNotExist, SearchFriend ahk_class #32770
~Ctrl::
{
   If (A_PriorHotKey = A_ThisHotKey and A_TimeSincePriorHotkey < doubleClickTime and justClosed = 0)
   {
      justOpened=1
      SetTimer, SetOnTop, 500
      InputBox, searchQuery, SearchFriend, , , 400, 100
      if ErrorLevel = 0
      {
         StringReplace, searchQuery, searchQuery, %A_Space%, +, 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
}
#IfWinExist, SearchFriend ahk_class #32770
~Ctrl::
{
   If (A_PriorHotKey = A_ThisHotKey and A_TimeSincePriorHotkey < doubleClickTime and justOpened = 0)
   {
      WinClose, SearchFriend ahk_class #32770
      justClosed=1
      SetTimer, TripleClickProtection, 500
   }
   return
}
SetOnTop:
   WinSet, AlwaysOnTop, On, SearchFriend ahk_class #32770
   justOpened=0
   SetTimer SetOnTop, Off
return
TripleClickProtection:
   justClosed=0
   SetTimer TripleClickProtection, Off
return

#NoEnv ; Recommended for performance and compatibility with future AutoHotkey releases.
SendMode Input ; Recommended for new scripts due to its superior speed and reliability.
#SingleInstance, force

SEPre1 := "http://www.google.com/search?q="
SEPost1 :=

SEPre2 := "http://search.yahoo.com/search?p="
SEPost2 := "&fr=yfp-t-501&Toggle=1&cop=mss&ei=UTF-8"

SEPre3 := "http://www.dogpile.com/dogpile/ws/results/Web/"
SEPost3 := "/1/417/TopNavigation/Relevance/iq=true/zoom=off/_iceUrlFlag=7?_IceUrl=true"

Gui, Color, 000000
Gui, add, text, cRed, Quick Search
Gui, +LastFound +ToolWindow
WinSet, Transparent, 200
WinSet, Region, 5-5 W460 H120 R10-10
Gui, -Caption
Gui, Font, S22 Default Cblack, EuroseWide Heavy
Gui, Add, Button, w0 h0 Default, &Open
Gui, Add, Edit, x10 y20 w450 h40 -WantReturn
Gui, add, ddl, vSrchEngDDL AltSubmit, Google||Yahoo|DogPile

;Gui, Show, yCenter xCenter W472 H70,Googlewin
GuiActive=0
Menu,Tray,NoStandard
Menu,Tray,DeleteAll
Menu,Tray,Add,E&xit,CleanUp
Menu,Tray,Default
Return

~RCTRL::
   If GuiActive
      Gosub, GuiEscape2
   Else
   {
      Gui, Show, yCenter xCenter W472 H150, SearchWin
      GuiActive = 1
      FadeIn(200, "SearchWin")
      KeyWait, RCtrl
   }
Return

ButtonOpen:
   ControlGetText, SearchPram, Edit1, SearchWin
   ; msgBox, % SearchPram
   StringLeft, www, SearchPram, 3
   If (www=="www")
   {
      Run % SearchPram
      Gosub, GuiEscape2
   }
   Else If (SearchPram=="")
   {
      Gosub, GuiEscape2
   }
   Else
   {
      GuiControlGet, Srch_Eng_Sel,,SrchEngDDL
      SearchEngURL := SEPre%Srch_Eng_Sel% . SearchPram . SEPost%Srch_Eng_Sel%
      ; msgbox, % SearchEngURL
      Run % SearchEngURL
      Gosub, GuiEscape2
   }

FadeIn(Gui_TRANS, WinName)
   {
      transL := 0
      Loop, 20
      {
         transL += Gui_TRANS//20
         WinSet, Transparent, %transL%, %WinName%
         Sleep, 10
         GuiActive=0;
      }
   }
FadeOut(GUI_TRANS, WinName)
   {
      transL := Gui_TRANS
      Loop, 20
      {
         transL -= Gui_TRANS//20
         WinSet, Transparent, %transL%, %WinName%
         Sleep, 10
      }
   }
Return

GuiEscape2:
   GuiActive = 0
   FadeOut(Gui_TRANS, "SearchWin")
   ControlSetText, Edit1, ,SearchWin
   Gui, Hide
Return

CleanUp:
   ExitApp

"%Clipboard%"

;___________________________
; \____K - WebSearch_____/

; Send queries to your favourite internet search engines.

; How to use:
;     1: Highlight a word or phrase then run K - WebSearch and press the letter
;        in the first column that coresponds with the engine you want to use.
;        Google is the default engine so pressing enter does the same as pressing "G".
;     2: Run K - WebSearch, type your query in the edit box then click your choice
;        of search engine.

#NoEnv
SendMode Input
#SingleInstance Force
SetBatchLines -1
ClipSaved := ClipboardAll
Clipboard =
Send ^c
ClipWait 2
Clipboard = %Clipboard%
progName = K - WebSearch
list =
(
G¦Google¦www.google.co.uk/search?hl=en&q=@@
D¦Google Define¦www.google.co.uk/search?q=define:@@
I¦Google Images¦http://images.google.co.uk/images?hl=en&q=@@
V¦Google Video¦http://video.google.co.uk/videosearch?q=@@
Y¦YouTube¦http://www.youtube.com/results?search_type=&search_query=@@
W¦Wikipedia¦http://en.wikipedia.org/w/wiki.phtml?search=@@
M¦MultMap¦http://www.multimap.com/maps/?hloc=GB|@@
¦Astalavista¦http://astalavista.box.sk/cgi-bin/robot?srch=@@&submit=+search+
S¦ShareVirus¦www.google.co.uk/search?hl=en&q=@@ site:www.sharevirus.com
R¦RapidShare¦http://rapidshare-search-engine.com/index-s_submit=Search&sformval=1&s_type=2&what=1&s=@@&start=0.html
H¦Hansard¦http://hansard.millbanksystems.com/search/@@?sort=date
Z¦Amazon Uk¦http://www.amazon.co.uk/exec/obidos/external-search/202-5747633-4837436?field-keywords=@@
E¦EBay Uk¦http://search.ebay.co.uk/search/search.dll?from=R40&satitle=@@
C¦Dictionary.com¦http://dictionary.reference.com/browse/@@
O¦Online Etymology Dictionary¦http://www.etymonline.com/index.php?search=@@&searchmode=none
¦Word Origins¦http://www.google.com/custom?num=20&domains=www.wordorigins.org&sitesearch=www.wordorigins.org&q=@@
A¦AutoHotKey-Google¦www.google.co.uk/search?q=@@&sitesearch=autohotkey.com&btnG=Search&domains=autohotkey.com
¦AutoHotkey Forum¦www.autohotkey.com/forum/search.php?search_keywords=@@&search_terms=any&search_author=&search_forum=-1&search_time=0&search_fields=all&search_cat=-1&sort_by=0&sort_dir=DESC&show_results=topics&return_chars=200
K¦AutoHotkey Manual - Online¦www.autohotkey.com/docs/commands/@@.htm
)
Gosub buildGui
Clipboard := ClipSaved
ClipSaved =
Return

buildGui:
Gui -Caption 0x800000
;Gui Margin, 2, 2
Gui Add, Button, x0 y0 w0 h0 Default ggetResult
Gui Font, s12, Comic Sans Ms
Gui Add, Button, x5 y5 w202 h30 Disabled, %progName%
Gui Font
Gui Add, Text, x5 y5 w200 h30 gguiDrag +BackgroundTrans              ; Click and drag.
Gui Add, Edit, x6 yp+31 w200 vmySearch
Gui Add, ListView, x yp+23 w200 r14 -Hdr Grid AltSubmit vsEngine ggetResult, &|@ where to search ...|Address
Gosub fillLV
Gui Show, w211, %progName%
GuiControl,,Edit1, %Clipboard%
GuiControl Focus, sEngine
Return

getResult:
Gui Submit, NoHide
If (mySearch)                                                        ; Manual query via the edit box.
   Clipboard = %mySearch%                                            ; Send edit box contents to the clipboard.
If (A_GuiEvent = "Normal" || A_GuiEvent = "I" || A_GuiEvent = "K") {
   lvNo := LV_GetNext(0, "Focused")                                  ; Get row no. of selected entry.
   LV_GetText(Choice, lvNo,3)                                        ; Get info from column 3 of selected row.
   If (Choice = "Address")                                           ; No row selected ...
      Choice = www.google.co.uk/search?hl=en&q=@@                    ; so make Google the default.
   IfInString Choice, google.co.uk                                     ; Google "search query enclose in quotes"
   {
     q = "%Clipboard%"                                              ; \ ensures query enclosed in "" is accepted by Google.
     If Clipboard=                                                   ; If nothing selected...
        q=                                                            ; query will be empty, Google front page will load.
      Clipboard := q
      }
   StringReplace getResult, Choice, @@, %Clipboard%, All             ; Add query to search url.
   Run %getResult%                                                   ; Go get results.
   ExitApp
   }
Return

fillLV:
Loop Parse, list, `n
{
   l := A_LoopField
   If !l
      l = ¦¦¦
   StringSplit, r, l, ¦
   LV_Add("", r1, r2, r3)
   LV_ModifyCol(2, "145")
   LV_ModifyCol(3, "0")
   Cnt++
   l=
   }
Return

guiDrag:
PostMessage, 0xA1, 2,,, A
Return

GuiClose:
GuiEscape:
ExitApp