Sign in to follow this  
Followers 0
flip209

Bored At work

Is this useful or a waste of time?   6 members have voted

  1. 1. Is this useful or a waste of time?

    • Very Useful
      3
    • I may use it
      1
    • Waste of time
      2

Please sign in or register to vote in this poll.

14 posts in this topic

#1 ·  Posted (edited)

I am bored at work today and made this it is pretty handy thou. Please commit and if you can think of any other search engines please feel free. The GUI is kinda bad thou... LOL

CODE
#include <GUIConstants.au3>

#include <IE.au3>

GUICreate("The Searcher", 400, 200) ; will create a dialog box that when displayed is centered

GUISetBkColor(0x000000)

$btn_Exit = GUICtrlCreateButton("Exit", 350, 170, 40)

$btn_Google = GUICtrlCreateButton("Google", 0, 30, 50)

$btn_Yahoo = GUICtrlCreateButton("Yahoo", 49, 30, 50)

$btn_Dogpile = GUICtrlCreateButton("Dogpile", 98, 30, 50)

$btn_Ask = GUICtrlCreateButton("Ask", 147, 30, 50)

$btn_Wiki = GUICtrlCreateButton("Wikipedia", 197, 30, 60)

$btn_Alta = GUICtrlCreateButton("AltaVista", 257, 30, 60)

$line = GUICtrlCreateInput("Enter Search", 0, 0, 350)

GUISetState(@SW_SHOW) ; will display an empty dialog box

Func _Google()

$Search = GUICtrlRead($line)

String($Search)

$Array = StringSplit($Search, " ")

If $Array[0] = 1 Then

$form = $Array[1]

ElseIf $Array[0] = 2 Then

$form = $Array[1] & "+" & $Array[2]

ElseIf $Array[0] = 3 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3]

ElseIf $Array[0] = 4 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3] & "+" & $Array[4]

ElseIf $Array[0] = 5 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3] & "+" & $Array[4] & "+" & $Array[5]

ElseIf $Array[0] = 6 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3] & "+" & $Array[4] & "+" & $Array[5] & "+" & $Array[6]

EndIf

_IECreate("http://www.google.com/search?hl=en&q=" & $form, 0, 1)

EndFunc ;==>_Google

Func _yahoo ()

$Search = GUICtrlRead($line)

String($Search)

$Array = StringSplit($Search, " ")

If $Array[0] = 1 Then

$form = $Array[1]

ElseIf $Array[0] = 2 Then

$form = $Array[1] & "+" & $Array[2]

ElseIf $Array[0] = 3 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3]

ElseIf $Array[0] = 4 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3] & "+" & $Array[4]

ElseIf $Array[0] = 5 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3] & "+" & $Array[4] & "+" & $Array[5]

ElseIf $Array[0] = 6 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3] & "+" & $Array[4] & "+" & $Array[5] & "+" & $Array[6]

EndIf

_IECreate("http://search.yahoo.com/search?p=" & $form, 0, 1)

EndFunc ;==>_yahoo

Func _Dogpile ()

$Search = GUICtrlRead($line)

String($Search)

$Array = StringSplit($Search, " ")

If $Array[0] = 1 Then

$form = $Array[1]

ElseIf $Array[0] = 2 Then

$form = $Array[1] & "+" & $Array[2]

ElseIf $Array[0] = 3 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3]

ElseIf $Array[0] = 4 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3] & "+" & $Array[4]

ElseIf $Array[0] = 5 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3] & "+" & $Array[4] & "+" & $Array[5]

ElseIf $Array[0] = 6 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3] & "+" & $Array[4] & "+" & $Array[5] & "+" & $Array[6]

EndIf

_IECreate("http://www.dogpile.com/info.dogpl/search/web/" & $form, 0, 1)

EndFunc ;==>_Dogpile

Func _Ask ()

$Search = GUICtrlRead($line)

String($Search)

$Array = StringSplit($Search, " ")

If $Array[0] = 1 Then

$form = $Array[1]

ElseIf $Array[0] = 2 Then

$form = $Array[1] & "+" & $Array[2]

ElseIf $Array[0] = 3 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3]

ElseIf $Array[0] = 4 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3] & "+" & $Array[4]

ElseIf $Array[0] = 5 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3] & "+" & $Array[4] & "+" & $Array[5]

ElseIf $Array[0] = 6 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3] & "+" & $Array[4] & "+" & $Array[5] & "+" & $Array[6]

EndIf

_IECreate("http://www.ask.com/web?q=" & $form, 0, 1)

EndFunc ;==>_Ask

Func _Wiki ()

$Search = GUICtrlRead($line)

String($Search)

$Array = StringSplit($Search, " ")

If $Array[0] = 1 Then

$form = $Array[1]

ElseIf $Array[0] = 2 Then

$form = $Array[1] & "+" & $Array[2]

ElseIf $Array[0] = 3 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3]

ElseIf $Array[0] = 4 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3] & "+" & $Array[4]

ElseIf $Array[0] = 5 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3] & "+" & $Array[4] & "+" & $Array[5]

ElseIf $Array[0] = 6 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3] & "+" & $Array[4] & "+" & $Array[5] & "+" & $Array[6]

EndIf

_IECreate("http://en.wikipedia.org/wiki/Special:Search?search=" & $form, 0, 1)

EndFunc

Func _Alta ()

$Search = GUICtrlRead($line)

String($Search)

$Array = StringSplit($Search, " ")

If $Array[0] = 1 Then

$form = $Array[1]

ElseIf $Array[0] = 2 Then

$form = $Array[1] & "+" & $Array[2]

ElseIf $Array[0] = 3 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3]

ElseIf $Array[0] = 4 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3] & "+" & $Array[4]

ElseIf $Array[0] = 5 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3] & "+" & $Array[4] & "+" & $Array[5]

ElseIf $Array[0] = 6 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3] & "+" & $Array[4] & "+" & $Array[5] & "+" & $Array[6]

EndIf

_IECreate("http://www.altavista.com/web/results?itag=ody&q=" & $form, 0, 1)

EndFunc

; Run the GUI until the dialog is closed

While 1

$msg = GUIGetMsg()

Select

Case $msg = $GUI_EVENT_CLOSE Or $msg = $btn_Exit

ExitLoop

Case $msg = $btn_Google

Call("_Google")

Case $msg = $btn_Yahoo

Call("_yahoo")

Case $msg = $btn_Dogpile

Call("_Dogpile")

Case $msg = $btn_Ask

Call("_Ask")

Case $msg = $btn_Wiki

Call("_Wiki")

Case $msg = $btn_Alta

Call("_Alta")

EndSelect

WEnd

Edited by flip209

" I haven't failed. I've just found 10,000 ways that won't work." Thomas Edison "You cannot help men permanently by doing for them what they could and should do for themselves." Abraham Lincoln

Share this post


Link to post
Share on other sites



Update Version: I just fixed the GUI; I do have a question thou. Is there a way to clear the inputbox when the user clicks on it? I have looked but have failed to find anything?

CODE
#include <GUIConstants.au3>

#include <IE.au3>

GUICreate("The Searcher", 420, 70) ; will create a dialog box that when displayed is centered

GUISetBkColor(0x70a9da)

$row1 = 35

$btn_Exit = GUICtrlCreateButton("Exit", 358, $row1, 60)

$btn_Google = GUICtrlCreateButton("Google" ,0, $row1, 60,25)

$btn_Yahoo = GUICtrlCreateButton("Yahoo", 59, $row1, 60)

$btn_Dogpile = GUICtrlCreateButton("Dogpile", 118, $row1, 60)

$btn_Ask = GUICtrlCreateButton("Ask", 178, $row1, 60)

$btn_Wiki = GUICtrlCreateButton("Wikipedia", 238, $row1, 60)

$btn_Alta = GUICtrlCreateButton("AltaVista", 298, $row1, 60)

$line = GUICtrlCreateInput("Enter Search", 1, 2, 418)

GUISetState(@SW_SHOW) ; will display an empty dialog box

Func _Google()

$Search = GUICtrlRead($line)

String($Search)

$Array = StringSplit($Search, " ")

If $Array[0] = 1 Then

$form = $Array[1]

ElseIf $Array[0] = 2 Then

$form = $Array[1] & "+" & $Array[2]

ElseIf $Array[0] = 3 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3]

ElseIf $Array[0] = 4 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3] & "+" & $Array[4]

ElseIf $Array[0] = 5 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3] & "+" & $Array[4] & "+" & $Array[5]

ElseIf $Array[0] = 6 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3] & "+" & $Array[4] & "+" & $Array[5] & "+" & $Array[6]

EndIf

_IECreate("http://www.google.com/search?hl=en&q=" & $form, 0, 1)

EndFunc ;==>_Google

Func _yahoo ()

$Search = GUICtrlRead($line)

String($Search)

$Array = StringSplit($Search, " ")

If $Array[0] = 1 Then

$form = $Array[1]

ElseIf $Array[0] = 2 Then

$form = $Array[1] & "+" & $Array[2]

ElseIf $Array[0] = 3 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3]

ElseIf $Array[0] = 4 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3] & "+" & $Array[4]

ElseIf $Array[0] = 5 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3] & "+" & $Array[4] & "+" & $Array[5]

ElseIf $Array[0] = 6 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3] & "+" & $Array[4] & "+" & $Array[5] & "+" & $Array[6]

EndIf

_IECreate("http://search.yahoo.com/search?p=" & $form, 0, 1)

EndFunc ;==>_yahoo

Func _Dogpile ()

$Search = GUICtrlRead($line)

String($Search)

$Array = StringSplit($Search, " ")

If $Array[0] = 1 Then

$form = $Array[1]

ElseIf $Array[0] = 2 Then

$form = $Array[1] & "+" & $Array[2]

ElseIf $Array[0] = 3 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3]

ElseIf $Array[0] = 4 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3] & "+" & $Array[4]

ElseIf $Array[0] = 5 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3] & "+" & $Array[4] & "+" & $Array[5]

ElseIf $Array[0] = 6 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3] & "+" & $Array[4] & "+" & $Array[5] & "+" & $Array[6]

EndIf

_IECreate("http://www.dogpile.com/info.dogpl/search/web/" & $form, 0, 1)

EndFunc ;==>_Dogpile

Func _Ask ()

$Search = GUICtrlRead($line)

String($Search)

$Array = StringSplit($Search, " ")

If $Array[0] = 1 Then

$form = $Array[1]

ElseIf $Array[0] = 2 Then

$form = $Array[1] & "+" & $Array[2]

ElseIf $Array[0] = 3 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3]

ElseIf $Array[0] = 4 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3] & "+" & $Array[4]

ElseIf $Array[0] = 5 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3] & "+" & $Array[4] & "+" & $Array[5]

ElseIf $Array[0] = 6 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3] & "+" & $Array[4] & "+" & $Array[5] & "+" & $Array[6]

EndIf

_IECreate("http://www.ask.com/web?q=" & $form, 0, 1)

EndFunc ;==>_Ask

Func _Wiki ()

$Search = GUICtrlRead($line)

String($Search)

$Array = StringSplit($Search, " ")

If $Array[0] = 1 Then

$form = $Array[1]

ElseIf $Array[0] = 2 Then

$form = $Array[1] & "+" & $Array[2]

ElseIf $Array[0] = 3 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3]

ElseIf $Array[0] = 4 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3] & "+" & $Array[4]

ElseIf $Array[0] = 5 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3] & "+" & $Array[4] & "+" & $Array[5]

ElseIf $Array[0] = 6 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3] & "+" & $Array[4] & "+" & $Array[5] & "+" & $Array[6]

EndIf

_IECreate("http://en.wikipedia.org/wiki/Special:Search?search=" & $form, 0, 1)

EndFunc

Func _Alta ()

$Search = GUICtrlRead($line)

String($Search)

$Array = StringSplit($Search, " ")

If $Array[0] = 1 Then

$form = $Array[1]

ElseIf $Array[0] = 2 Then

$form = $Array[1] & "+" & $Array[2]

ElseIf $Array[0] = 3 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3]

ElseIf $Array[0] = 4 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3] & "+" & $Array[4]

ElseIf $Array[0] = 5 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3] & "+" & $Array[4] & "+" & $Array[5]

ElseIf $Array[0] = 6 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3] & "+" & $Array[4] & "+" & $Array[5] & "+" & $Array[6]

EndIf

_IECreate("http://www.altavista.com/web/results?itag=ody&q=" & $form, 0, 1)

EndFunc

; Run the GUI until the dialog is closed

While 1

$msg = GUIGetMsg()

Select

Case $msg = $GUI_EVENT_CLOSE Or $msg = $btn_Exit

ExitLoop

Case $msg = $btn_Google

Call("_Google")

Case $msg = $btn_Yahoo

Call("_yahoo")

Case $msg = $btn_Dogpile

Call("_Dogpile")

Case $msg = $btn_Ask

Call("_Ask")

Case $msg = $btn_Wiki

Call("_Wiki")

Case $msg = $btn_Alta

Call("_Alta")

Case $msg = $line

GUICtrlSetData($line, "")

EndSelect

WEnd


" I haven't failed. I've just found 10,000 ways that won't work." Thomas Edison "You cannot help men permanently by doing for them what they could and should do for themselves." Abraham Lincoln

Share this post


Link to post
Share on other sites

Well for me, I input something to search and click a se button and the search engine opens but does not put my desired search in the se input or submit...

Share this post


Link to post
Share on other sites

#4 ·  Posted (edited)

Replace

$Array = StringSplit($Search, " ")
    If $Array[0] = 1 Then
        $form = $Array[1]
    ElseIf $Array[0] = 2 Then
        $form = $Array[1] & "+" & $Array[2]
    ElseIf $Array[0] = 3 Then
        $form = $Array[1] & "+" & $Array[2] & "+" & $Array[3]
    ElseIf $Array[0] = 4 Then
        $form = $Array[1] & "+" & $Array[2] & "+" & $Array[3] & "+" & $Array[4]
    ElseIf $Array[0] = 5 Then
        $form = $Array[1] & "+" & $Array[2] & "+" & $Array[3] & "+" & $Array[4] & "+" & $Array[5]
    ElseIf $Array[0] = 6 Then
        $form = $Array[1] & "+" & $Array[2] & "+" & $Array[3] & "+" & $Array[4] & "+" & $Array[5] & "+" & $Array[6]
    EndIfoÝ÷ Û­«­¢+ØÀÌØí½É´ôMÑÉ¥¹IÁ± ÀÌØíMÉ °ÅÕ½ÐìÅÕ½Ðì°ÅÕ½Ðì¬ÅÕ½Ðì¤

:)

Edited by BananaFredSoft

Share this post


Link to post
Share on other sites

Sorry I was trying to clear the input, I worked with more then one word, I fixed it

CODE
#include <GUIConstants.au3>

#include <IE.au3>

GUICreate("The Searcher", 420, 70) ; will create a dialog box that when displayed is centered

GUISetBkColor(0x70a9da)

$row1 = 35

$btn_Exit = GUICtrlCreateButton("Exit", 358, $row1, 60)

$btn_Google = GUICtrlCreateButton("Google" ,0, $row1, 60,25)

$btn_Yahoo = GUICtrlCreateButton("Yahoo", 59, $row1, 60)

$btn_Dogpile = GUICtrlCreateButton("Dogpile", 118, $row1, 60)

$btn_Ask = GUICtrlCreateButton("Ask", 178, $row1, 60)

$btn_Wiki = GUICtrlCreateButton("Wikipedia", 238, $row1, 60)

$btn_Alta = GUICtrlCreateButton("AltaVista", 298, $row1, 60)

$line = GUICtrlCreateInput("Enter Search", 1, 2, 418)

GUISetState(@SW_SHOW) ; will display an empty dialog box

Func _Google()

$Search = GUICtrlRead($line)

String($Search)

$Array = StringSplit($Search, " ")

If $Array[0] = 1 Then

$form = $Array[1]

ElseIf $Array[0] = 2 Then

$form = $Array[1] & "+" & $Array[2]

ElseIf $Array[0] = 3 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3]

ElseIf $Array[0] = 4 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3] & "+" & $Array[4]

ElseIf $Array[0] = 5 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3] & "+" & $Array[4] & "+" & $Array[5]

ElseIf $Array[0] = 6 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3] & "+" & $Array[4] & "+" & $Array[5] & "+" & $Array[6]

Else

$form = $Array[1]

EndIf

_IECreate("http://www.google.com/search?hl=en&q=" & $form, 0, 1)

EndFunc ;==>_Google

Func _yahoo ()

$Search = GUICtrlRead($line)

String($Search)

$Array = StringSplit($Search, " ")

If $Array[0] = 1 Then

$form = $Array[1]

ElseIf $Array[0] = 2 Then

$form = $Array[1] & "+" & $Array[2]

ElseIf $Array[0] = 3 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3]

ElseIf $Array[0] = 4 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3] & "+" & $Array[4]

ElseIf $Array[0] = 5 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3] & "+" & $Array[4] & "+" & $Array[5]

ElseIf $Array[0] = 6 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3] & "+" & $Array[4] & "+" & $Array[5] & "+" & $Array[6]

EndIf

_IECreate("http://search.yahoo.com/search?p=" & $form, 0, 1)

EndFunc ;==>_yahoo

Func _Dogpile ()

$Search = GUICtrlRead($line)

String($Search)

$Array = StringSplit($Search, " ")

If $Array[0] = 1 Then

$form = $Array[1]

ElseIf $Array[0] = 2 Then

$form = $Array[1] & "+" & $Array[2]

ElseIf $Array[0] = 3 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3]

ElseIf $Array[0] = 4 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3] & "+" & $Array[4]

ElseIf $Array[0] = 5 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3] & "+" & $Array[4] & "+" & $Array[5]

ElseIf $Array[0] = 6 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3] & "+" & $Array[4] & "+" & $Array[5] & "+" & $Array[6]

EndIf

_IECreate("http://www.dogpile.com/info.dogpl/search/web/" & $form, 0, 1)

EndFunc ;==>_Dogpile

Func _Ask ()

$Search = GUICtrlRead($line)

String($Search)

$Array = StringSplit($Search, " ")

If $Array[0] = 1 Then

$form = $Array[1]

ElseIf $Array[0] = 2 Then

$form = $Array[1] & "+" & $Array[2]

ElseIf $Array[0] = 3 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3]

ElseIf $Array[0] = 4 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3] & "+" & $Array[4]

ElseIf $Array[0] = 5 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3] & "+" & $Array[4] & "+" & $Array[5]

ElseIf $Array[0] = 6 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3] & "+" & $Array[4] & "+" & $Array[5] & "+" & $Array[6]

EndIf

_IECreate("http://www.ask.com/web?q=" & $form, 0, 1)

EndFunc ;==>_Ask

Func _Wiki ()

$Search = GUICtrlRead($line)

String($Search)

$Array = StringSplit($Search, " ")

If $Array[0] = 1 Then

$form = $Array[1]

ElseIf $Array[0] = 2 Then

$form = $Array[1] & "+" & $Array[2]

ElseIf $Array[0] = 3 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3]

ElseIf $Array[0] = 4 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3] & "+" & $Array[4]

ElseIf $Array[0] = 5 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3] & "+" & $Array[4] & "+" & $Array[5]

ElseIf $Array[0] = 6 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3] & "+" & $Array[4] & "+" & $Array[5] & "+" & $Array[6]

EndIf

_IECreate("http://en.wikipedia.org/wiki/Special:Search?search=" & $form, 0, 1)

EndFunc

Func _Alta ()

$Search = GUICtrlRead($line)

String($Search)

$Array = StringSplit($Search, " ")

If $Array[0] = 1 Then

$form = $Array[1]

ElseIf $Array[0] = 2 Then

$form = $Array[1] & "+" & $Array[2]

ElseIf $Array[0] = 3 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3]

ElseIf $Array[0] = 4 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3] & "+" & $Array[4]

ElseIf $Array[0] = 5 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3] & "+" & $Array[4] & "+" & $Array[5]

ElseIf $Array[0] = 6 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3] & "+" & $Array[4] & "+" & $Array[5] & "+" & $Array[6]

EndIf

_IECreate("http://www.altavista.com/web/results?itag=ody&q=" & $form, 0, 1)

EndFunc

; Run the GUI until the dialog is closed

While 1

$msg = GUIGetMsg()

Select

Case $msg = $GUI_EVENT_CLOSE Or $msg = $btn_Exit

ExitLoop

Case $msg = $btn_Google

Call("_Google")

Case $msg = $btn_Yahoo

Call("_yahoo")

Case $msg = $btn_Dogpile

Call("_Dogpile")

Case $msg = $btn_Ask

Call("_Ask")

Case $msg = $btn_Wiki

Call("_Wiki")

Case $msg = $btn_Alta

Call("_Alta")

Case $msg = $line

EndSelect

WEnd


" I haven't failed. I've just found 10,000 ways that won't work." Thomas Edison "You cannot help men permanently by doing for them what they could and should do for themselves." Abraham Lincoln

Share this post


Link to post
Share on other sites

Thank you.. Much cleaner


" I haven't failed. I've just found 10,000 ways that won't work." Thomas Edison "You cannot help men permanently by doing for them what they could and should do for themselves." Abraham Lincoln

Share this post


Link to post
Share on other sites

Off the subject what are the blue X's mean? I have one but I am not sure why?


" I haven't failed. I've just found 10,000 ways that won't work." Thomas Edison "You cannot help men permanently by doing for them what they could and should do for themselves." Abraham Lincoln

Share this post


Link to post
Share on other sites

O so like if you post say 25 times you get 1 x 50 you get 2 and so on lol. I feel stupid....


" I haven't failed. I've just found 10,000 ways that won't work." Thomas Edison "You cannot help men permanently by doing for them what they could and should do for themselves." Abraham Lincoln

Share this post


Link to post
Share on other sites

Cool, Yep. That fixed it...

Share this post


Link to post
Share on other sites

Added a Poll..


" I haven't failed. I've just found 10,000 ways that won't work." Thomas Edison "You cannot help men permanently by doing for them what they could and should do for themselves." Abraham Lincoln

Share this post


Link to post
Share on other sites

Well from the pole, it looks like no one likes this?


" I haven't failed. I've just found 10,000 ways that won't work." Thomas Edison "You cannot help men permanently by doing for them what they could and should do for themselves." Abraham Lincoln

Share this post


Link to post
Share on other sites

Why did you not use my suggestion? :)

What Suggestion?

$form = StringReplace($Search, " ", "+")

I used this i just never reposted.....


" I haven't failed. I've just found 10,000 ways that won't work." Thomas Edison "You cannot help men permanently by doing for them what they could and should do for themselves." Abraham Lincoln

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0