Quick Search (Updated)

[Damein]

I posted this when I first joined, but I updated it and I also added a couple websites to the search function.

It's pretty basic, you have a hotkey you set and that allows you to bring up the Search GUI and you first select what website you want to search on and then click submit once you enter into the field what you wish to search for. You can also paste from clipboard to do a quicker search.

Here is the source:

expandcollapse popup

#include <GUIConstantsEx.au3>
 
Global $Website

HotKeySet("`", "ShowGUI")
 
GUICreate("Quick Search", 200, 130)
    $WebsiteMenu = GUICtrlCreateMenu("Websites")
    $WebsiteItemGoogle = GUICtrlCreateMenuItem("Google", $WebsiteMenu)
    $WebsiteItemYahoo = GUICtrlCreateMenuItem("Yahoo!", $WebsiteMenu)
    $WebsiteItemBing = GUICtrlCreateMenuItem("Bing", $WebsiteMenu)
    $WebsiteItemWiki = GuiCtrlCreateMenuItem("Wikipedia", $WebsiteMenu)
    $WebsiteItemYouTube = GUICtrlCreateMenuItem("YouTube", $WebsiteMenu)
    $WebsiteItemLyrics = GUICtrlCreateMenuItem("Lyrics", $WebsiteMenu)
    $hLabel = GUICtrlCreateLabel("You are currently not searching", 0, 0, 200, 20)
    $SearchEdit = GUICtrlCreateEdit("", 0, 20, 200, 20)
    GUICtrlSetState(-1, $GUI_HIDE) ; Hide this control until we have a website to search
    $SearchButton = GUICtrlCreateButton("Submit", 60, 50, 60, 20)
    GUICtrlSetState(-1, $GUI_HIDE) ; Hide this control until we have a website to search
    $Clipboard = GUICtrlCreateButton("Paste", 60, 80, 60, 20)
    $sCurrWebsite = ""
 
While 1
    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            Exit
        Case $WebsiteItemGoogle
            $WebSite = "Google"
        Case $WebsiteItemYahoo
            $WebSite = "Yahoo"
        Case $WebsiteItemBing
            $WebSite = "Bing"      
  Case $WebsiteItemWiki
            $WebSite = "Wikipedia"
        Case $WebsiteItemYouTube
            $WebSite = "YouTube"
        Case $WebsiteItemLyrics
            $WebSite = "Lyrics"
        Case $SearchButton
            If $WebSite = "Google" Then
            $SearchQuery = ControlGetText("Quick Search", "", "Edit1")
            ShellExecute("http://www.google.ca/search?hl=en&safe=off&q=" & $SearchQuery)
            GUISetState(@SW_HIDE)
        EndIf
            If $WebSite = "Yahoo" Then
            $SearchQuery = ControlGetText("Quick Search", "", "Edit1")
            ShellExecute("http://search.yahoo.com/search;_ylt=Ah1UsM_xzvpK1uhhoabYUSqbvZx4?p=" & $SearchQuery & "&toggle=1&cop=mss&ei=UTF-8&fr=yfp-t-701")
            GUISetState(@SW_HIDE)
        EndIf
            If $WebSite = "Bing" Then
            $SearchQuery = ControlGetText("Quick Search", "", "Edit1")
            ShellExecute("http://www.bing.com/search?q=" & $SearchQuery & "&go=&form=QBLH&scope=web&qs=n&sk=&sc=8-4")
            GUISetState(@SW_HIDE)
        EndIf          
  If $WebSite = "Wikipedia" Then
            $SearchQuery = ControlGetText("Quick Search", "", "Edit1")
            ShellExecute("http://en.wikipedia.org/wiki/Special:Search?search=" & $SearchQuery & "&go=Go")
            GUISetState(@SW_HIDE)
        EndIf
            If $WebSite = "YouTube" Then
            $SearchQuery = ControlGetText("Quick Search", "", "Edit1")
            ShellExecute("http://www.youtube.com/results?search_query=" & $SearchQuery & "&aq=f")
            GUISetState(@SW_HIDE)
        EndIf
            If $WebSite = "Lyrics" Then
            $SearchQuery = ControlGetText("Quick Search", "", "Edit1")
            ShellExecute("http://www.lyrics.com/search.php?keyword=" & $SearchQuery & "&what=all&search_btn.x=0&search_btn.y=0")
            GUISetState(@SW_HIDE)
        EndIf
    Case $Clipboard
        $ClipBoardContents = ClipGet()
        ControlSetText("Quick Search", "", "Edit1", $ClipBoardContents)
    EndSwitch
 
 
If $WebSite <> $sCurrWebsite Then ; If we do check then we get flickering as we SHOW the controls on each pass
        GUICtrlSetData($hLabel, "You are currently searching: " & $WebSite) ; This is how you change the text of a control
        GUICtrlSetState($SearchEdit, $GUI_SHOW) ; We have a website, so SHOW the control
        GUICtrlSetState($SearchButton, $GUI_SHOW) ; We have a website, so SHOW the control
        ControlFocus("Quick Search", "", "Edit1")
        $sCurrWebsite = $WebSite
    EndIf
WEnd
 
 
    Func ShowGUI()
    GUISetState(@SW_SHOW)
EndFunc

[Damein]

150 views, but no comments or anything

[PCI]

Thank you Damein, for the search Gui

I find it Interesting , i noticed in the begining when i added my hotkey , i got the Gui then clicked on paste and nothing happened.

Did not notice Websites until i've read the script , then i clicked on it. which in turn had the search providers.

Thank you Again.