Quick Search!

[Damein]

I created this program for another language and decided to re-create it to learn some basics in AutoIt. So, here it is.

You can search from Google, Yahoo!, Bing, YouTube or Lyrics. And you can paste your clipboard straight to the edit box for quick searching from website to website or notepad to websites.

Thanks to Melba for the help.

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)
$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 $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 = "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

Edited October 7, 2010 by Damein

[wakillon]

It seems a GUISetState() was forget !

[Damein]

Where? I seem to have no problems with it o_o;

[wakillon]

when i start your script nothing happen !

If i add a guisetstate ( ) at the end of creation of the gui, it works...

And what's the utility of $state = 1 ?

[Damein]

Weird.. I don't have that problem, even when I copy/paste.

And, the $state = 1 was a test I forgot to remove ^^;

Thanks.

Did you press the ` key? Because the reason it doesn't have the show at the creation its suppose to be toggled.

If you did press ` and nothing happened.. then we might have a problem, lol.

[wakillon]

Sorry, i didn't see the hotkeyset !

[Damein]

Haha, no problem!