Simple google searcher

[Calster]

This script with a GUI will search google for whatever you want i have even included "Im Feeling Lucky" funtionality.

Dont Flame me please this is one of my first projects.

CODE

#include <IE.au3>

#include <GUICONSTANTS.au3>

GUICreate("Search Google",300,145)

GUISetState()

$SearchBox = GUICtrlCreateInput("",0,100,300)

$logo = GUICtrlCreatePic(@DesktopDir & "\logo.gif",0,0,300,100)

$SearchButton = GUICtrlCreateButton("Google Search",0,120,150)

$SearchButton2 = GUICtrlCreateButton("Im Feeling Lucky",150,120,150)

Func Search1($SearchData)

ShellExecute ("iexplore.exe", "about:blank")

WinWait ("Blank Page")

$oIE = _IEAttach ("about:blank", "url")

_IELoadWait ($oIE)

_IENavigate ($oIE, "http://www.google.co.uk/search?hl=en&q=" & $SearchData &"&meta=")

EndFunc

Func Search2($SearchData)

ShellExecute ("iexplore.exe", "about:blank")

WinWait ("Blank Page")

$oIE = _IEAttach ("about:blank", "url")

_IELoadWait ($oIE)

_IENavigate ($oIE, "www.google.com")

$oForm = _IEFormGetObjByName($oIE,"f")

$oSearch = _IEFormElementGetObjByName($oForm,"q")

_IEFormElementSetValue($oSearch,$SearchData)

$oSearchBut2 = _IEFormElementGetObjByName($oForm,"btnI")

_IEAction($oSearchBut2,"click")

EndFunc

While 1

$msg = GUIGetMsg()

Select

Case $msg = $GUI_EVENT_CLOSE

Exit

Case $msg = $SearchButton

Search1(GUICtrlRead($SearchBox))

Case $msg = $SearchButton2

Search2(GUICtrlRead($SearchBox))

EndSelect

WEnd

SSBot.au3

[GEOSoft]

Here is another one that you might want to check but it doesn't have the I'm Feeling Lucky option.

Opt ("GUICoordMode"," 2")

$Frm_1 = GUICreate("Google Search", 280, 60)
$In = GUICtrlCreateInput("", 5,5,270,20)
$Btn_Search = GUICtrlCreateButton("Search", -165, 5, 60, 25, 1)

GUISetState()
While 1
   $Msg = GuiGetMsg()
   Switch $Msg
      Case - 3
         Exit
      Case $Btn_Search
         $http = "Http://www.google.com/search?hl=en&q=" & StringReplace(GUICtrlRead($In), Chr(32), "+")
         $Http = StringReplace($Http, Chr(34), "%22")
         ShellExecute($Http)
         Exit
   EndSwitch
Wend

I used to keep it on my desktop all the time. Now I have another app that is running all the time which will search Google, MSDN and TechNet so I don't use this one now.

[gseller]

Here is another one... muttley

#include <GUIConstants.au3>

$Window = GUICreate("Google Search", 381, 55, 193, 115)
$Label = GUICtrlCreateLabel("Search:", 8, 8, 41, 17)
$Input = GUICtrlCreateInput("", 56, 8, 217, 21)
$Go = GUICtrlCreateButton("Go!", 280, 8, 89, 25, 0)
$clearwebsearch = GUICtrlCreateButton ("Clear", 250, 32, 60, 20)
GUISetState(@SW_SHOW)

While 1
 If GUICtrlRead($Input) = "" Then
  If GUICtrlGetState($Label) = 80 Then GUICtrlSetState($Label, 144)
  If GUICtrlGetState($Go) = 80 Then GUICtrlSetState($Go, 144)
  If GUICtrlGetState($clearwebsearch) = 80 Then GUICtrlSetState($clearwebsearch, 144)
Else
  If GUICtrlGetState($Label) > 80 Then GUICtrlSetState($Label, 80)
  If GUICtrlGetState($Go) > 80 Then GUICtrlSetState($Go, 80)
  If GUICtrlGetState($clearwebsearch) > 80 Then GUICtrlSetState($clearwebsearch, 80)
Endif
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
  case $clearwebsearch
  GUICtrlSetData($Input,"")    
        Case $Go
            ShellExecute("[url="http://www.google.com/search?q"]www.google.com/search?q[/url]=" & GUICtrlRead($Input))
    EndSwitch
WEnd

[GEOSoft]

Here is another one... muttley

<snipped>

I've had problems with not replacing spaces with + Edited July 17, 2008 by GEOSoft

[gseller]

I could see that possibly causing a problem.. I was mainly showing the dissable part.. You can just change the orig code with this for a neat effect

While 1
If GUICtrlRead($SearchBox) = "" Then
  If GUICtrlGetState($SearchButton) = 80 Then GUICtrlSetState($SearchButton, 144)
  If GUICtrlGetState($SearchButton2) = 80 Then GUICtrlSetState($SearchButton2, 144)

Else
  If GUICtrlGetState($SearchButton) > 80 Then GUICtrlSetState($SearchButton, 80)
  If GUICtrlGetState($SearchButton2) > 80 Then GUICtrlSetState($SearchButton2, 80)
Endif
 $msg = GUIGetMsg()
 Select
 Case $msg = $GUI_EVENT_CLOSE
  Exit
 Case $msg = $SearchButton
  Search1(GUICtrlRead($SearchBox))
 Case $msg = $SearchButton2
  Search2(GUICtrlRead($SearchBox))
 EndSelect
WEnd